ใช้การดักจับ error ได้ไหมครับ ลองดูครับ
Private Sub rptTest_Click()
On Error GoTo ErrHandler
DoCmd.OpenReport "ReportNotifyMulti", acViewPreview
Exit Sub
ErrHandler:
If Err = 2501 Then
Resume Next
Else
MsgBox Err.Description, vbExclamation
End If
End Sub
ถ้าไม่ได้จะหาวิธีอื่นให้ครับ