tạo form tổng hợp theo nhóm

[nguyenthien0908]

mình làm một form xuất các mặt hàng, các mặt hàng phân theo từng nhóm. Mình muốn trên form có các textbox, mỗi textbox là tổng số tiền của mỗi nhóm hàng. mình làm mà không được các bạn chỉ giúp mình với nhé
đây là db của mình: http://www.mediafire.com/file/dxnybcxyl2fex88/db1.rar

[domfootwear]

mình làm một form xuất các mặt hàng, các mặt hàng phân theo từng nhóm. Mình muốn trên form có các textbox, mỗi textbox là tổng số tiền của mỗi nhóm hàng. mình làm mà không được các bạn chỉ giúp mình với nhé
đây là db của mình: http://www.mediafire.com/file/dxnybcxyl2fex88/db1.rar

Tạo 1 nút bấm có tên là cmdLoad, code của nó như sau:

Mã PHP:

Private Sub cmdLoad_Click()
Dim rs As DAO.Recordset
Dim db As DAO.Database
Dim lsSQL As String
Dim i As Integer
Set db = CurrentDb

For i = 1 To 5
lsSQL = "SELECT tblNhomCP.stt_nh, tblNhomCP.Ten_nh, Sum(tbl_DmTenCP.giachiphi) AS Tong " & _
        "FROM tblNhomCP INNER JOIN tbl_DmTenCP ON tblNhomCP.stt_nh = tbl_DmTenCP.stt_nh " & _
        "GROUP BY tblNhomCP.stt_nh, tblNhomCP.Ten_nh " & _
        "HAVING (((tblNhomCP.stt_nh)='0" & i & "'));"
Set rs = db.OpenRecordset(lsSQL)

MsgBox rs!Ten_nh & " Co tong Gia Tri la: " & rs!tong

Next
End Sub 


Bạn tự gán giá trị thu được vào TextBox bạn cần nhé.

Thân mến.

[nguyenthien0908]

mình làm nhưng không được, bạn làm mẫu giúp mình được không?

[domfootwear]

mình làm nhưng không được, bạn làm mẫu giúp mình được không?

Dùng thử code sau:

Mã PHP:

Private Sub cmdLoad_Click()
Dim rs As DAO.Recordset: Dim db As DAO.Database
Dim lsSQL As String: Dim i As Integer: Dim txt As Control
Set db = CurrentDb

For i = 1 To 5
    lsSQL = "SELECT tblNhomCP.stt_nh, tblNhomCP.Ten_nh, Sum(tbl_DmTenCP.giachiphi) AS Tong " & _
            "FROM tblNhomCP INNER JOIN tbl_DmTenCP ON tblNhomCP.stt_nh = tbl_DmTenCP.stt_nh " & _
            "GROUP BY tblNhomCP.stt_nh, tblNhomCP.Ten_nh " & _
            "HAVING (((tblNhomCP.stt_nh)='0" & i & "'));"
    Set rs = db.OpenRecordset(lsSQL)

        For Each txt In Me.Controls
            If TypeOf txt Is TextBox Then
                If txt.Tag = i Then txt = rs!tong
            End If
        Next

Next

End Sub 


Bạn tham khảo thêm file đính kèm nhé.
Thân mến.

[nguyenthien0908]

Cảm ơn domfootwear nhiều nhé.
số tiền từng nhóm vẫn chưa đúng bạn à, mình sẽ tìm hiểu thêm có gì bạn lại giúp mình nữa nha.

[domfootwear]

Cảm ơn domfootwear nhiều nhé.
số tiền từng nhóm vẫn chưa đúng bạn à, mình sẽ tìm hiểu thêm có gì bạn lại giúp mình nữa nha.

Đấy chỉ là ví dụ, do bạn không nói rõ ràng nên tôi làm đại, tôi chưa hiểu bạn muốn lấy cái gì. SL*Giá Trị ?

[nguyenthien0908]

Vâng đúng rồi ạ: SL*đơn giá

[domfootwear]

Vâng đúng rồi ạ: SL*đơn giá

Tôi thấy bạn làm 1 Query trong đó có 3 cột tiền (TT_sub, TK_sub, STK_sub) như vậy tôi sẽ lấy cột nào để đưa vào từng TextBox trong form?

Thân mến.

[haquocquan]

Nếu nhóm hàng của bạn tăng, thì phải thiết kế thêm các textbox à.
Mình chưa xem file. Nhưng gợi ý: tạo thêm một subform: chỉ lấy tổng giá trị của từng nhóm, số nhóm tăng, textbox sẽ tự tăng.

[nguyenthien0908]

Tôi thấy bạn làm 1 Query trong đó có 3 cột tiền (TT_sub, TK_sub, STK_sub) như vậy tôi sẽ lấy cột nào để đưa vào từng TextBox trong form?

Thân mến.

mình muốn đưa cột STK_sub bạn ạ.

Nếu nhóm hàng của bạn tăng, thì phải thiết kế thêm các textbox à.
Mình chưa xem file. Nhưng gợi ý: tạo thêm một subform: chỉ lấy tổng giá trị của từng nhóm, số nhóm tăng, textbox sẽ tự tăng.

Cảm ơn haquocquan đã gợi ý nhưng bạn có thế làm thêm file mẫu không, vì mình tự tìm hiểu về access nên kiến thức còn hạn chế. rất mong bạn chỉ bảo.