-
Thông báo khi không có dữ liệu trong Report
anhemnhangu > 19-06-14, 11:17 AM
Mình có viết đoạn Code trên Form khi in dữ liệu nếu trong Report không có dữ liệu thì
nó sẽ báo " Không có dữ liệu" nhưng Code đã báo lỗi, mình không biết sửa.
Các bạn góp ý giúp minh,
http://www.mediafire.com/download/4l70lw.../Test1.rar -
RE: Thông báo khi không có dữ liệu trong Report
anhemnhangu > 20-06-14, 03:11 PM
Các bạn vui lòng hướng dẫn mình.
Cám ơn -
RE: Thông báo khi không có dữ liệu trong Report
Minh Tiên > 20-06-14, 03:52 PM
Chào bạn !
1. Bạn bị lỗi ở câu lệnh:
Vì Q_xacnhan_thunhap là query nên bạn ko thể dùng như trên được.Mã:Set rs = CurrentDb.OpenRecordset("Q_xacnhan_thunhap")
Bạn nên đổi thành đoạn code này nhé:
2. Trong query Q_xacnhan_thunhap bạn đổi điều kiện của field thang thành:Mã:Private Sub cmdthuchien_Click()
If IsNull(DLookup("[ho]", "Q_xacnhan_thunhap")) = False Then
DoCmd.OpenReport "R_xacnhan_thunhap", acViewPreview, , , acWindowNormal
Else
MsgBox "Khong co du lieu", vbOKOnly, "Thong bao"
End If
End Sub
Là Ok !Mã:Between [forms]![F_Xacnhan_thunhap]![txttungay] And [forms]![F_Xacnhan_thunhap]![txtdenngay]
File của bạn
Chúc bạn thành công ! -
RE: Thông báo khi không có dữ liệu trong Report
anhemnhangu > 21-06-14, 08:21 AM
Cám ơn bạn Minh Tiên rất nhiều. -
RE: Thông báo khi không có dữ liệu trong Report
Xuân Thanh > 21-06-14, 12:08 PM
Nên đưa vào event NoData cho gọn
Thân mến