• tạo form tổng hợp theo nhóm
  • 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.RecordsetDim db As DAO.Database
    Dim lsSQL 
    As StringDim i As IntegerDim 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 
    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" "'));"
            
    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:coffee
  • 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.RecordsetDim db As DAO.Database
    Dim lsSQL 
    As StringDim i As IntegerDim 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 
    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" "'));"
            
    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é happy

  • 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é happy

    Ý 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:
    (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é happy

    Ý Bạn là muốn cộng theo nhóm của những loại hàng có trong Subform ?
    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.
  • 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:
    (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é happy

    Ý Bạn là muốn cộng theo nhóm của những loại hàng có trong Subform ?
    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.

    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. Beer_smile