Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Thủ Thuật] Tự động đóng report khi report không có dữ liệu
#1
Hỏi : Làm thế nào tôi có thể đóng một báo cáo tự động nếu không có dữ liệu trả về bởi truy vấn cơ bản?

Trả lời : Bạn có thể sử dụng sự kiện OnNoData của Report cho việc này. Ví dụ, đoạn mã sau

Mã:
Private Sub Report_NoData(Cancel As Integer)
    MsgBox "No data found! Closing report."
    Cancel = True
End Sub

Báo cáo của bạn sẽ tự động đóng khi không có dữ liệu nguồn. Tuy nhiên, nếu bạn đang mở các báo cáo từ một mã lệnh phía sau một hình thức nào đó, bạn cần phải xử lý các lỗi đó để có kết quả như ý muốn

Mã:
Private Sub TestNoData_Click()
    On Error Resume Next
    DoCmd.OpenReport "SomeReport", acViewPreview
    If Err = 2501 Then Err.Clear
End Sub
Chữ ký của Xuân Thanh Trăm năm trước thì ta chưa gặp
Trăm năm sau biết gặp được không?
Cuộc đời sắc sắc không không
Thì thôi ta cứ hết lòng vì nhau
ღღღღღTài sản của Xuân Thanh (View All Items) ღღღღღ
Reply
Những người đã cảm ơn Noname , Cafe Via He , cpucloi , thanhthienhg
#2
Một thủ thuật rất hay
Chữ ký của cpucloi Tôi chỉ biết mỗi một điều là những điều tôi biết được còn quá ít 021
Gmail: cgiahuy13@gmail.com


ღღღღღTài sản của cpucloi (View All Items) ღღღღღ
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
  [Thủ Thuật] Demo_Code Ẩn tất cả mọi thứ, ngoại trừ Form+Report maidinhdan 127 7,441 21-11-16, 01:57 PM
Bài mới nhất: nghiep
  Kinh nghiệm nhỏ phân tích cơ sở dữ liệu tranthanhan1962 7 903 09-11-15, 09:38 AM
Bài mới nhất: Yến
  Xây dựng đồng hồ đếm ngược Noname 7 4,265 17-03-15, 04:57 PM
Bài mới nhất: ledungddk001
  Không cho hiện thông báo khi xóa record nguyenbalai 13 4,811 07-01-15, 02:55 AM
Bài mới nhất: MatTroiNguQuen
Wink [Thủ Thuật] Tùy biến Msgbox Unicode dễ dàng mà không lỗi font tranthanhan1962 0 516 31-10-14, 01:43 AM
Bài mới nhất: tranthanhan1962

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ơ