Tùy chọn
tạo form tổng hợp theo nhóm
- tạo form tổng hợp theo nhóm
-
tạo form tổng hợp theo nhóm
nguyenthien0908 > 04-10-11, 10:32 AM
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 -
RE: tạo form tổng hợp theo nhóm
domfootwear > 04-10-11, 01:51 PM
(04-10-11, 10:32 AM)nguyenthien0908 Đã viết: 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.
-
RE: tạo form tổng hợp theo nhóm
nguyenthien0908 > 04-10-11, 03:12 PM
mình làm nhưng không được, bạn làm mẫu giúp mình được không? -
RE: tạo form tổng hợp theo nhóm
domfootwear > 04-10-11, 04:31 PM
(04-10-11, 03:12 PM)nguyenthien0908 Đã viết: 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.
-
RE: tạo form tổng hợp theo nhóm
nguyenthien0908 > 04-10-11, 05:02 PM
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. -
RE: tạo form tổng hợp theo nhóm
domfootwear > 04-10-11, 05:18 PM
-
RE: tạo form tổng hợp theo nhóm
nguyenthien0908 > 04-10-11, 05:46 PM
Vâng đúng rồi ạ: SL*đơn giá -
RE: tạo form tổng hợp theo nhóm
haquocquan > 05-10-11, 02:07 PM
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. -
RE: tạo form tổng hợp theo nhóm
nguyenthien0908 > 06-10-11, 10:30 AM
(05-10-11, 09:57 AM)domfootwear Đã viết: 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 ạ.
(05-10-11, 02:07 PM)haquocquan Đã viết: Nếu nhóm hàng của bạn tăng, thì phải thiết kế thêm các textbox à.
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.
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.