Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
tạo form tổng hợp theo nhóm
#11
(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.


File đính kèm
.zip   FillTextBox.zip (Kích cỡ: 26.94 KB / Tải về: 9)
Chữ ký của domfootwear Xin chào Guest, nếu Guest biết thủ thuật nào thì nên chia sẻ cho cộng đồng nhé.
ღღღღღTài sản của domfootwear (View All Items) ღღღღღ
Reply
Những người đã cảm ơn nguyenthien0908 , Noname
#12
Cảm ơn domfootwear:coffee
Chữ ký của nguyenthien0908 Hãy chia sẻ kinh nghiệm cùng mình trên ThuThuatAccess nhé! Chúc vui vẻ rose
Reply
Những người đã cảm ơn
#13
(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

Chữ ký của nguyenthien0908 Hãy chia sẻ kinh nghiệm cùng mình trên ThuThuatAccess nhé! Chúc vui vẻ rose
Reply
Những người đã cảm ơn
#14
(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 ?
Chữ ký của domfootwear Xin chào Guest, nếu Guest biết thủ thuật nào thì nên chia sẻ cho cộng đồng nhé.
ღღღღღTài sản của domfootwear (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#15
(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.
Chữ ký của nguyenthien0908 Hãy chia sẻ kinh nghiệm cùng mình trên ThuThuatAccess nhé! Chúc vui vẻ rose
Reply
Những người đã cảm ơn
#16
(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é.
Chữ ký của domfootwear Xin chào Guest, nếu Guest biết thủ thuật nào thì nên chia sẻ cho cộng đồng nhé.
ღღღღღTài sản của domfootwear (View All Items) ღღღღღ
Reply
Những người đã cảm ơn nguyenthien0908
#17
Cảm ơn domfootwear nhiều nhé mình làm được rồi. Beer_smile
Chữ ký của nguyenthien0908 Hãy chia sẻ kinh nghiệm cùng mình trên ThuThuatAccess nhé! Chúc vui vẻ rose
Reply
Những người đã cảm ơn


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  [Hỏi] Cách thêm dữ liệu vào form Main_Sub NganNguyen 1 38 06-12-16, 02:23 AM
Bài mới nhất: maidinhdan
  Tự động hiện Form khi loading hết thời gian ChiMai 1 49 02-12-16, 08:59 PM
Bài mới nhất: ongke0711
Photo [Hỏi] Mở Form trên access 2007 báo lỗi jason 5 194 22-11-16, 09:23 AM
Bài mới nhất: jason
  Query hiện lên trên form? feeling 4 165 09-11-16, 09:49 PM
Bài mới nhất: toancvp
  Thay đổi hình ảnh theo mã feeling 3 150 04-11-16, 05:18 PM
Bài mới nhất: maidinhdan

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ