การยกเลิกการพิมพ์รายงานถ้าไม่มีระเบียนใดๆ อยู่

สร้างแมโคร

1. ในบานหน้าต่างนําทาง ให้คลิกขวาที่รายงานที่คุณต้องการเปลี่ยนแปลง แล้วคลิก มุมมองออกแบบ

2. บนแท็บ ดีไซน์ ในกลุ่ม แสดง/ซ่อน ให้คลิก แผ่นคุณสมบัติ

   หรือ

   ดับเบิลคลิกที่กล่องที่มุมบนซ้ายหรือขวาของรายงาน ขึ้นอยู่กับการตั้งค่าภูมิภาคและภาษาของคุณ

3. คลิกแท็บ เหตุการณ์ และในกล่องคุณสมบัติ เมื่อไม่มีข้อมูล ให้คลิก

   กล่องโต้ตอบ เลือกตัวสร้าง จะปรากฏขึ้น

4. คลิก ตัวสร้างแมโคร แล้วคลิก ตกลง

   ตัวออกแบบแมโครจะเริ่มทํางานและแสดงแมโครเปล่า

5. ในรายการดรอปดาวน์ของแมโครแอคชันบนหน้าต่างการออกแบบแมโคร ให้เลือก กล่องข้อความ จากรายการ

6. ในกล่อง ข้อความ ให้พิมพ์ข้อความสําหรับข้อความแจ้งเตือนของคุณ

   ตัวอย่างเช่น คุณสามารถป้อนข้อมูลต่อไปนี้: ไม่มีระเบียนที่จะรายงาน

7. อีกทางหนึ่งคือ เปลี่ยนค่าอาร์กิวเมนต์ในกล่อง Beep จาก ใช่ เป็น ไม่ใช่ และในรายการ ชนิด ให้เลือกชนิดของไอคอนที่คุณต้องการให้ปรากฏในข้อความแจ้งเตือนของคุณ

8. ในกล่อง ชื่อเรื่อง ให้พิมพ์ชื่อเรื่องสําหรับข้อความแจ้งเตือนของคุณ

   ตัวอย่างเช่น คุณสามารถป้อน ไม่มีระเบียน

9. เลือกรายการดรอปดาวน์ของแมโครแอคชันที่ด้านล่างของแอคชัน MessageBox แล้วเลือก CancelEvent

10. บนแท็บ ออกแบบ ในกลุ่ม ปิด ให้คลิก บันทึก

11. บนแท็บ ออกแบบ ในกลุ่ม ปิด ให้คลิก ปิด ถ้าข้อความแจ้งเตือนปรากฏขึ้นและถามว่าคุณต้องการบันทึกการเปลี่ยนแปลงแมโครและคุณสมบัติของรายงานหรือไม่ ให้คลิก ใช่ ปิดรายงานของคุณ บันทึกการเปลี่ยนแปลงของคุณถ้าได้รับพร้อมท์ และดําเนินการขั้นตอนถัดไปเพื่อทดสอบ

ทดสอบแมโครของคุณ

• ในบานหน้าต่างนําทาง ให้คลิกขวาที่รายงานที่มีแมโคร แล้วคลิก พิมพ์ Access จะแสดงข้อความแจ้งเตือน โดยขึ้นอยู่กับตัวเลือกที่คุณเลือก

  เมื่อคุณคลิก ตกลง เพื่อปิดข้อความ การดําเนินการ CancelEvent จะหยุดการดําเนินการพิมพ์ เนื่องจากคุณไม่ได้ระบุเหตุการณ์อื่น (เช่น การเปิดรายงานเพื่อดู) รายงานจึงปิด

ด้านบนของหน้า

เพิ่มโค้ด VBA

1. ในบานหน้าต่างนําทาง ให้คลิกขวาที่รายงานที่คุณต้องการเปลี่ยนแปลง แล้วคลิก มุมมองออกแบบ

   หมายเหตุ: เมื่อต้องการทํากระบวนงานนี้ให้เสร็จสมบูรณ์ ให้ใช้รายงานที่ไม่มีระเบียนใดๆ

2. บนแท็บ ดีไซน์ ในกลุ่ม แสดง/ซ่อน ให้คลิก แผ่นคุณสมบัติ

   หรือ

   ดับเบิลคลิกที่กล่องที่มุมบนซ้ายหรือขวาของรายงาน ขึ้นอยู่กับการตั้งค่าภูมิภาคและภาษาของคุณ

3. คลิกแท็บ เหตุการณ์ และในกล่องคุณสมบัติ เมื่อไม่มีข้อมูล ให้คลิก

   กล่องโต้ตอบ เลือกตัวสร้าง จะปรากฏขึ้น

4. คลิก ตัวสร้างโค้ด แล้วคลิก ตกลง

   Visual Basic Editor จะเริ่มทํางานและแสดงกระบวนงานเหตุการณ์เปล่า

5. พิมพ์โค้ดต่อไปนี้ใน Visual Basic Editor เพื่อให้กระบวนงาน Report_NoData ปรากฏขึ้นในลักษณะนี้เมื่อคุณทําเสร็จแล้ว:

   Private Sub Report_NoData (Cancel As Integer)
     MsgBox "There are no records to report", vbExclamation, "No Records"
     Cancel = True
   End Sub
   

6. เมื่อคุณทําเสร็จแล้ว ให้คลิก ไฟล์ แล้วคลิก บันทึก

7. คลิก ไฟล์ แล้วคลิก ปิด และ กลับไปยัง Microsoft Access

8. ปิดรายงานที่เปิดอยู่ แล้วคลิก ใช่ เพื่อยืนยันการบันทึก

9. ในบานหน้าต่างนําทาง ให้คลิกขวาที่รายงานที่คุณเพิ่งเปลี่ยน แล้วคลิก พิมพ์ Access จะแสดงข้อความแจ้งเตือน โดยขึ้นอยู่กับตัวเลือกที่คุณเลือก

กระบวนงาน Report_NoData จะใช้ฟังก์ชัน MsgBox เพื่อแสดงข้อความ ไม่มีระเบียนที่จะรายงานและปุ่ม ตกลง เมื่อคุณคลิก ตกลง บรรทัด "ยกเลิก=จริง" ในกระบวนงานจะสั่งให้ Access ยกเลิกรายงาน Cancel คืออาร์กิวเมนต์ที่ถูกส่งผ่านไปยังกระบวนงานเหตุการณ์โดยอัตโนมัติ และจะถูกตรวจสอบโดย Access เสมอเมื่อกระบวนงานเหตุการณ์เสร็จสมบูรณ์

ด้านบนของหน้า