ถ้าเปิด Query โดยการ double click ที่ Query โดยตรง ก็คงจะไม่สามารถตรวจเช็คได้

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

อาจใช้ DCount() ช่วยก็ได้

If DCount("*","Query1") > 0 Then
' ทำงานต่อเมื่อมีข้อมูล
Else
MsgBox "ไม่มีข้อมูล"
End If

เรียนอาจารย์สุภาพครับ
ขอบคุณครับสำหรับคำแนะนำ ผมลองเอาไปใช้แล้วสงสัยผมใช้ไม่เป็นครับ
ผมก็เลยหาวิธีใหม่ โดยการแก้ไขQuery1ทำให้เป็นคิวรี่แบบมีพารามิเตอร์ครับ โดยให้ค้นหาในฟิลด์ Title ครับ
แล้วสร้าง Form1 จาก Query1ครับ
แล้วตอนรัน Form1 จะมีส่วนของกล่องข้อความและช่องกรอกข้อมูลให้เรากรอกชื่อเรื่องที่เราต้องการค้นหา
แล้วถ้าไม่มีข้อมูลใดๆ มันก็จะแสดงฟอร์มเปล่าขึ้นมา ในกรณีที่ไม่มีข้อมูลผมอยากให้แสดงกล่องข้อความว่า "ไม่มีข้อมูล" และก็ปิดฟอร์มเปล่านั้นไป
ผมต้องเช็คที่ตรงไหนครับ

ขอบคุณครับ

ผมขออนุญาตแนบไฟล์ประกอบครับ

ผมทำได้แล้วครับ
Private Sub Form_Load()
If IsNull(Title) Then
MsgBox "äÁèÁÕ¢éÍÁÙÅ"
DoCmd.Close
End If
End Sub