การป้องกันไม่ให้เปิดรายงานถ้าไม่มีข้อมูลที่จะแสดง
พุธ 20 พฤษภาคม, 2009เราสามารถป้องกันไม่ให้รายงานที่เปิดถ้าไม่มีข้อมูลที่จะแสดงและสำหรับครั้งนี้เราจะใช้สองรูปแบบขึ้นอยู่กับรุ่นของ Access:
1 - ทุกรุ่น ACCESS
วางโค้ดด้านล่างในคุณสมบัติของรายงาน, 'เปิดใช้' เหตุการณ์
ใช้เหตุการณ์ทำให้รายงาน (Activate):
ตำบลเอกชน Report_Activate ()
หาก DCount ("*", Me.RecordSource) = 0 แล้ว
MsgBox "ไม่มีระเบียนที่ต้องการแสดง" vbDefaultButton1, "ผิดพลาด!"
AcReport DoCmd.Close, "ชื่อรายงาน"
End If
ย่อยสิ้นสุด
2 - ตั้งแต่ 7 รุ่น (95 ชั่วโมง) ถูกบันทึกอยู่ในเหตุการณ์ 'ถ้าไม่มีข้อมูล' แล้วเราสามารถ urilizar รหัสต่อไปนี้:
Private Sub Report_NoData (ยกเลิก As Integer)
MsgBox "ไม่มีข้อมูลในรายงาน.", VbInformation, "ผิดพลาด!"
ยกเลิก = True
ย่อยสิ้นสุด
หากต้องการดูตัวอย่างการเรียกใช้ดาวน์โหลด: การป้องกันไม่ให้รายงานการเปิด
