Nhờ giúp đỡ tính tổng bằng Dsum với nhiều điều kiện trong access

[danght]

Trong form: F_ts , khi bấm nút " search" thì số liệu sẽ được tính bằng sự kiện "one click" của nút "Search". khi test chỉ đúng khi chọn ngày lớn 12, những ngày nhỏ hơn 12 chương trình chạy sai. chắc có lẽ format ngày tháng chưa đúng. nhờ các ace giúp đỡ dùm!


File access mẫu:
https://drive.google.com/file/d/0B4hsVFIuDEtBYzJBUkg4cHJDdTQ/view?usp=sharing

 

[ongke0711]

Bạn set textbox ngày [t1] sai. Xem hình đính kèm.

 

[danght]

Bạn set textbox ngày [t1] sai. Xem hình đính kèm.

cám ơn bạn đã trả lời nhưng mình set theo cách của bạn vẫn không được, máy tính mình đang định dạng dd/mm/yyyy, office 2003.bạn có thể gửi file đã sửa cho mình được ko?
Thank!

 

[ongke0711]

Bạn chỉ cần đổi format theo dạng "mm/dd/yyyy" trong Dlookup là được rồi. Đây là vấn đề thường gặp của định dạng ngày tháng. Mặc định trong vba của access sẽ xử lý theo dạng "mm/dd/yyyy" mặc dù bạn có thay đổi định dạng khi nhập liệu. 12/05/2015 sẽ hiểu thành "tháng 12". Khi xử lý textbox dạng ngày bạn phải chuyển về mm/dd/yyyy trong các code VBA để chương trình chạy đúng.

Private Sub search_Click()
nhap11 = DSum("[soluong]", "ts", "[lnofcno]='" & [Forms]![f_ts]![cb1] & "' AND [cltpcd]='" & [Forms]![f_ts]![loai1] & "' AND [clholdcd]='N' AND [plgdt]= #" & Format([Forms]![f_ts]![t1], "mm/dd/yyyy") & "#")

 

[danght]

Bạn chỉ cần đổi format theo dạng "mm/dd/yyyy" trong Dlookup là được rồi. Đây là vấn đề thường gặp của định dạng ngày tháng. Mặc định trong vba của access sẽ xử lý theo dạng "mm/dd/yyyy" mặc dù bạn có thay đổi định dạng khi nhập liệu. 12/05/2015 sẽ hiểu thành "tháng 12". Khi xử lý textbox dạng ngày bạn phải chuyển về mm/dd/yyyy trong các code VBA để chương trình chạy đúng.

Private Sub search_Click()
nhap11 = DSum("[soluong]", "ts", "[lnofcno]='" & [Forms]![f_ts]![cb1] & "' AND [cltpcd]='" & [Forms]![f_ts]![loai1] & "' AND [clholdcd]='N' AND [plgdt]= #" & Format([Forms]![f_ts]![t1], "mm/dd/yyyy") & "#")

Cám ơn bạn nhiều.nhờ bạn chỉ mình làm được rùi!