How to show a message box when criteria doesn't match

[OldSlowDog]

I use the following openform with a criteria:
DoCmd.OpenForm stDocName, , , stLinkCriteria, acFormReadOnly

My question is that I got a blank screen when there is nothing in the DB matching the criteria.

If possible, I like to display a message saying"
Msgbox "No matching Record"

Would some experts show me how to tell such "no matching record" condition in VBA.

Appreciate very much.

 

[raskew]

Try looking up the HasData property in the Help File.

 

[joenoxl9801026]

edpoon,

try this....

dim x as string
Set rs = CurrentDb.OpenRecordset("tblname&quot
x = False
Do While Not rs.EOF
If Trim(txtname) = Trim(rs!tblfield) Then
x = True
Exit Do
End If
rs.MoveNext
Loop
If x = True Then

stDocName = "frmname"
stLinkCriteria = "[tblfield]=" & "'" & Me![txtname] & "'"
DoCmd.OpenForm stDocName, , , stLinkCriteria

Else
MsgBox "Record not Found"

End If