View Single Post
  #3 (permalink)  
Old February 25th, 2005, 04:53 PM
yami56 yami56 is offline
Authorized User
 
Join Date: Feb 2004
Location: london, uk, United Kingdom.
Posts: 56
Thanks: 0
Thanked 0 Times in 0 Posts
Default

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
Reply With Quote