Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
tạo form tổng hợp theo nhóm
#1
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é 015
đây là db của mình: http://www.mediafire.com/file/dxnybcxyl2fex88/db1.rar
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
#2
(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é 015
đâ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 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" "'));"
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.


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
#3
mình làm nhưng không được, bạn làm mẫu giúp mình được không?
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
#4
(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.RecordsetDim db As DAO.Database
Dim lsSQL 
As StringDim i As IntegerDim txt As Control
Set db 
CurrentDb

For 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" "'));"
    
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.


File đính kèm
.zip   FillTextBox.zip (Kích cỡ: 28.67 KB / Tải về: 45)
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
#5
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.
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
#6
(04-10-11, 05:02 PM)nguyenthien0908 Đã viết: 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ị ?


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
#7
Vâng đúng rồi ạ: SL*đơn giá
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
#8
(04-10-11, 05:46 PM)nguyenthien0908 Đã viết: 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.
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
#9
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.
Chữ ký của haquocquan Guest, you are welcome!
ღღღღღTài sản của haquocquan (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#10
(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 à.
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.
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
  Tự động hiện Form khi loading hết thời gian ChiMai 1 37 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 187 22-11-16, 09:23 AM
Bài mới nhất: jason
  Query hiện lên trên form? feeling 4 162 09-11-16, 09:49 PM
Bài mới nhất: toancvp
  Thay đổi hình ảnh theo mã feeling 3 149 04-11-16, 05:18 PM
Bài mới nhất: maidinhdan
  [Help] Chỉnh giúp Form thống kê hoanghai902 2 124 28-10-16, 06:15 PM
Bài mới nhất: hoanghai902

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ơ