ตัวอย่างการเข้าถึง

การป้องกันไม่ให้เปิดรายงานถ้าไม่มีข้อมูลที่จะแสดง

เราสามารถป้องกันไม่ให้รายงานที่เปิดถ้าไม่มีข้อมูลที่จะแสดงและสำหรับครั้งนี้เราจะใช้สองรูปแบบขึ้นอยู่กับรุ่นของ 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

ย่อยสิ้นสุด

หากต้องการดูตัวอย่างการเรียกใช้ดาวน์โหลด: การป้องกันไม่ให้รายงานการเปิด

โพสต์ใน Uncategorized | 13 Comments »

วิธีการป้องกันแบบฟอร์มที่เปิดอยู่ถ้ามีระเบียนที่ไม่มีการแสดง?

บางครั้งก็เป็นสิ่งที่จำเป็นเพื่อป้องกันไม่ให้แบบฟอร์มที่เปิดอยู่ถ้ามีระเบียนที่ต้องการแสดงตัวอย่างเช่นเมื่อทำแบบสอบถามและการลงทะเบียนไม่ถูกไม่จำเป็นที่เราไม่จำเป็นต้องเป็นรูปแบบที่เปิดมาตั้งแต่เรามีข้อมูลที่จะแสดง ดังนั้นสิ่งที่เราต้องตรวจสอบว่ามีระเบียนที่จะแสดงและหากไม่มีการแสดงข้อความและขัดขวางการเปิดฟอร์ม ได้อย่างไร

มันง่ายที่จะเพียงแค่ใส่โค้ดด้านล่างในคุณสมบัติของฟอร์มในเหตุการณ์ 'เปิด':

= 0 แล้วถ้า Form.RecordsetClone.RecordCount
MsgBox "ระเบียนไม่พบ.", VbExclamation, "ผิดพ​​ลาด!"
DoCmd.Close acForm "ค้นหาข้อมูล"
Exit Sub
End If

เมื่อต้องการดูตัวอย่างดาวน์โหลด: แบบฟอร์มการป้องกันไม่ให้เปิด

โพสต์ใน ตัวอย่าง , รูปแบบ , Modules | 2 Comments »