ให้เขียน code ข้างล่างนี้ไว้ที่ report ที่ต้องการจะเปิด ที่ Event On Nodata Private Sub Report_NoData(Cancel As Integer) MsgBox "ไม่มีรายงานข้อมูล ในขณะนี้.!", vbInformation + vbOKOnly DoCmd.CancelEvent End Sub

ใช้ไม่ได้ครับคุณ BADMan ขึ้นเหมือนเก่า

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

เงื่อนไขก็ปกตินะครับ อ้างอิงเลขที่ฟอร์มปัจจุบัน

เงื่อนไขก็ปกตินะครับ อ้างอิงเลขที่ฟอร์มปัจจุบัน

ลองทีละจุดครับ 1. ลองดับเบิลคลิก Report จากไอค่อนดูหรือเปล่าครับ (โดยไม่คลิกจากฟอร์ม) 2. ลองลบเงื่อนไขดีละจุด แล้วลองเรียกดูใหม่ครับ (เพื่อความแน่ใจ) 3. set warning false

คุณ Access2000 ครับ ผมทดลองตามที่คุณแนะนำดังนี้นะครับ 1. ดับเบิลคลิกที่ Report มันก็ขึ้น Parameter สองครั้ง ผมก็ O.K. ทั้งสองครั้ง ได้ผลตามที่ต้องการคือมี Message NoData ขึ้นเตือน แล้ว Report ไม่เปิด แต่ถ้าคลิกที่ฟอร์มก็ยังมี Message The OpenReport action was canceled ขึ้นอยู่ 3. Set Warning False ก็ใส่เรียบร้อยแล้ว แต่ผมก็สงสัยนะครับว่า อีกดาต้าเบส ผมก็ใช้ Events No Data ได้ไม่มีปัญหา แล้วก็ทำเหมือนกันทุกอย่าง

ตัดแบ่งแล้วแนบไฟล์มาได้ไหมครับ convert เป็น version 97 จะได้ช่วยๆกันดู

Access 97 นะครับ

ผมแก้ไปที่ปุ่ม preview ครับ Private Sub Command12_Click() On Error Resume Next Dim stDocName As String DoCmd.SetWarnings False stDocName = "RSPS2A4" DoCmd.OpenReport stDocName, acPreview End Sub

Private Sub Command12_Click() On Error GoTo Err_Command12_Click Dim stDocName As String DoCmd.SetWarnings False stDocName = "RSPS2A4" DoCmd.OpenReport stDocName, acPreview Exit_Command12_Click: Exit Sub Err_Command12_Click: ' MsgBox Err.Description Resume Exit_Command12_Click ทำอย่างที่ อ.access hotline ก็ได้ครับ หรือ remark ตรง MsgBox Err.Description ไว้ก็จะไม่มีคำเตือนออกมาครับ(ดังที่ผม remark ไว้ให้ดูครับ) End Sub

ขอบคุณครับ