Option Button with "stLinkCriteria" if no criteria how to create a message.

[MAXINE via AccessMonster.com]

I am using the code below on [Event Procedure]of the option Buttons. This
opens my form correctly BUT it also opens a blank form when No job number
matches the criteria. Is there a way I can create a message box to show
there is know match.

Private Sub Value_Click()
Select Case Me!Value
Case 1
stDocName = "1 master cis"
stLinkCriteria = "[job number]=" & Me![Job Number]
DoCmd.OpenForm stDocName, , , stLinkCriteria, acFormReadOnly
Case 2
stDocName = "1 master cis"
stLinkCriteria = "[job number]=" & Me![Job Number]
DoCmd.OpenForm stDocName, , , stLinkCriteria, acFormReadOnly
Case 3
stDocName = "1 master cis"
stLinkCriteria = "[job number]=" & Me![Job Number]
DoCmd.OpenForm stDocName, , , stLinkCriteria, acFormReadOnly
Case Else
strFilterSQL = strSQL & ";"
End Select
End Sub


Thanks

Max

 

[Dirk Goldgar]

Answered elsewhere; I don't remember where.