i dont know what you are exactly look for but here is some solutions
docmd.setwarnings false
or another example
Private Sub cmdclick_Click()
On Error GoTo Err_cmdclick_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "someform"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_cmdclick_Click:
Exit Sub
Err_cmdclick_Click:
rem here you can put what ever you want do show
MsgBox "There was a problem while opening your form",vbinformation,"some title"
Resume Exit_cmdclick_Click
End Sub
Best Regards,
Hamed Gholamian
|