ใช้การดักจับ 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
ถ้าไม่ได้จะหาวิธีอื่นให้ครับ