Need MsgBox to state data entered not found in DB

[bvbowes]

I have a form that opens data in another form. But if I enter data that isn't in the database, it doesn't do anything, so I want a msgbox telling the user that they entered a case number that isn't in the database.

Maybe a dlookup, I'm not sure? Here's the code so far.
*******************************************************

Private Sub cmdOpenCaseinMainEntry_Click()

Dim rs As DAO.Recordset

If Trim(Me!txtOpenCase & " ") = "" Then
MsgBox "Please enter a case number", vbOKOnly, "Oops..."

Else 'this is where I need some code for a msgbox

Set rs = Forms!frmMainEntry.RecordsetClone
rs.FindFirst "CaseNumber=" & Me!txtOpenCase

If Not rs.NoMatch Then MsgBox "Case number not found." 'Forms!frmMainEntry.Bookmark = rs.Bookmark"

DoCmd.Close

End If
End

End Sub

 

[straybullet]

Im sure there's more to this but for now - NoMatch returns True if the desired record was not found.

Try:
If rs.NoMatch Then MsgBox "Case number not found."

Let them hate - so long as they fear... Lucius Accius

 

[bvbowes]

Oh...I had the Not in there on accident, thanks. Just needed a second pair of eyes, thanks.