G
Guest
Hi all,
Can I use a case select for the following form code? Any help will be most
appreciated, I've tried it but so far have failed. I prefer to not have the
Debug option show up if a search criteria is entered incorrectly.
Private Sub Form_Timer()
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "frmVMP5"
stLinkCriteria = "[tblVMP].[VMPHiddenNumber]=" & Me![VMPHiddenNumber]
DoCmd.OpenForm stDocName, , , stLinkCriteria
DoCmd.Close acForm, "frmFindVMPByReportNumber", acSaveYes
End Sub
What I want is if stLinkCriteria returns an error for form "frmVMP3" to open.
Again any help is most appreciated.
Mary
Can I use a case select for the following form code? Any help will be most
appreciated, I've tried it but so far have failed. I prefer to not have the
Debug option show up if a search criteria is entered incorrectly.
Private Sub Form_Timer()
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "frmVMP5"
stLinkCriteria = "[tblVMP].[VMPHiddenNumber]=" & Me![VMPHiddenNumber]
DoCmd.OpenForm stDocName, , , stLinkCriteria
DoCmd.Close acForm, "frmFindVMPByReportNumber", acSaveYes
End Sub
What I want is if stLinkCriteria returns an error for form "frmVMP3" to open.
Again any help is most appreciated.
Mary