-
RE: tạo form tổng hợp theo nhóm
domfootwear > 06-10-11, 12:24 PM
(06-10-11, 10:30 AM)nguyenthien0908 Đã viết: mình muốn đưa cột STK_sub bạn ạ.
Bạn sửa code lại 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: Dim txt As Control
Set db = CurrentDb
lsSQL = "SELECT tbl_DmTenCP.stt_nh, Sum(tblxuat_sub.STK_sub) AS Tong " & _
"FROM tblNhomCP INNER JOIN (tbl_DmTenCP INNER JOIN tblxuat_sub ON tbl_DmTenCP.machiphi = " & _
"tblxuat_sub.Machiphi) ON tblNhomCP.stt_nh = tbl_DmTenCP.stt_nh " & _
"GROUP BY tbl_DmTenCP.stt_nh;"
Set rs = db.OpenRecordset(lsSQL)
For i = 1 To rs.RecordCount
lsSQL = "SELECT tbl_DmTenCP.stt_nh, Sum(tblxuat_sub.STK_sub) AS Tong " & _
"FROM tblNhomCP INNER JOIN (tbl_DmTenCP INNER JOIN tblxuat_sub ON tbl_DmTenCP.machiphi = " & _
"tblxuat_sub.Machiphi) ON tblNhomCP.stt_nh = tbl_DmTenCP.stt_nh " & _
"GROUP BY tbl_DmTenCP.stt_nh " & _
"HAVING (((tbl_DmTenCP.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
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 > 06-10-11, 02:40 PM
Cảm ơn domfootwear: -
RE: tạo form tổng hợp theo nhóm
nguyenthien0908 > 09-10-11, 11:08 AM
(06-10-11, 12:24 PM)domfootwear Đã viết: Bạn sửa code lại 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: Dim txt As Control
Set db = CurrentDb
lsSQL = "SELECT tbl_DmTenCP.stt_nh, Sum(tblxuat_sub.STK_sub) AS Tong " & _
"FROM tblNhomCP INNER JOIN (tbl_DmTenCP INNER JOIN tblxuat_sub ON tbl_DmTenCP.machiphi = " & _
"tblxuat_sub.Machiphi) ON tblNhomCP.stt_nh = tbl_DmTenCP.stt_nh " & _
"GROUP BY tbl_DmTenCP.stt_nh;"
Set rs = db.OpenRecordset(lsSQL)
For i = 1 To rs.RecordCount
lsSQL = "SELECT tbl_DmTenCP.stt_nh, Sum(tblxuat_sub.STK_sub) AS Tong " & _
"FROM tblNhomCP INNER JOIN (tbl_DmTenCP INNER JOIN tblxuat_sub ON tbl_DmTenCP.machiphi = " & _
"tblxuat_sub.Machiphi) ON tblNhomCP.stt_nh = tbl_DmTenCP.stt_nh " & _
"GROUP BY tbl_DmTenCP.stt_nh " & _
"HAVING (((tbl_DmTenCP.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
Tham khảo thêm file đính kèm nhé
Thân mến.
vẫn chưa đúng ý mình domfootwear à, mình muốn số tiền của từng nhóm tổng hợp theo từng phiếu xuất, tức là khi sang phiếu xuất khác thì số tiền của từng nhóm bằng tổng của những chi phí tương ứng phát sinh chỉ trong phiếu xuất đó. bạn xem lại giúp mình nhé.
Còn một trường hợp nữa là: mình nhập thử một chi phí có nhóm khác với những chi phí bạn đã nhập thì bào lỗi.
Bạn xem giúp mình với nhé
-
RE: tạo form tổng hợp theo nhóm
domfootwear > 10-10-11, 10:21 AM
(09-10-11, 11:08 AM)nguyenthien0908 Đã viết: vẫn chưa đúng ý mình domfootwear à, mình muốn số tiền của từng nhóm tổng hợp theo từng phiếu xuất, tức là khi sang phiếu xuất khác thì số tiền của từng nhóm bằng tổng của những chi phí tương ứng phát sinh chỉ trong phiếu xuất đó. bạn xem lại giúp mình nhé.
Còn một trường hợp nữa là: mình nhập thử một chi phí có nhóm khác với những chi phí bạn đã nhập thì bào lỗi.
Bạn xem giúp mình với nhé
Ý Bạn là muốn cộng theo nhóm của những loại hàng có trong Subform ? -
RE: tạo form tổng hợp theo nhóm
nguyenthien0908 > 12-10-11, 10:43 AM
(10-10-11, 10:21 AM)domfootwear Đã viết:
Vâng đúng rồi ạ. chỉ cộng theo nhóm của những loại hàng có trong subform, khi nhập một phiếu mới thì tính lại.(09-10-11, 11:08 AM)nguyenthien0908 Đã viết: còn một trường hợp nữa là: mình nhập thử một chi phí có nhóm khác với những chi phí bạn đã nhập thì bào lỗi.
Bạn xem giúp mình với nhé
Ý Bạn là muốn cộng theo nhóm của những loại hàng có trong Subform ? -
RE: tạo form tổng hợp theo nhóm
domfootwear > 12-10-11, 01:27 PM
(12-10-11, 10:43 AM)nguyenthien0908 Đã viết:
(10-10-11, 10:21 AM)domfootwear Đã viết:
Vâng đúng rồi ạ. chỉ cộng theo nhóm của những loại hàng có trong subform, khi nhập một phiếu mới thì tính lại.(09-10-11, 11:08 AM)nguyenthien0908 Đã viết: còn một trường hợp nữa là: mình nhập thử một chi phí có nhóm khác với những chi phí bạn đã nhập thì bào lỗi.
Bạn xem giúp mình với nhé
Ý Bạn là muốn cộng theo nhóm của những loại hàng có trong Subform ?
Bạn dùng Dsum, ví dụ như bên dưới.
Mã PHP:Private Sub cmdLoad_Click()
t_QA = DSum("[STK_sub]", _
"qryxuat_SUB", "[qryxuat_SUB.ID]=1 And [qryxuat_SUB.stt_nh] like '01'")
End Sub
Để cho nó linh hoạt, bạn tùy biến sử dụng nhé. -
RE: tạo form tổng hợp theo nhóm
nguyenthien0908 > 12-10-11, 05:57 PM
Cảm ơn domfootwear nhiều nhé mình làm được rồi.