msg box code

[RipperT]

Hello,

I've used the combo box wizard to create a combo box that looks up records.
It's after_update event code looks like this:

Private Sub Combo16_AfterUpdate()
' Find the record that matches the control.
Dim rs As Object

Set rs = Me.Recordset.Clone
rs.FindFirst "[InmateId] = '" & Me![Combo16] & "'"
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub

What could I add to generate a message box that says "record was not found"

Many thanx,

Ripper

 

[Douglas J. Steele]

If Not rs.EOF Then
Me.Bookmark = rs.Bookmark
Else
MsgBox "Record was not found"
End If

 

[Dirk Goldgar]

If Not rs.EOF Then
Me.Bookmark = rs.Bookmark
Else
MsgBox "Record was not found"
End If

But if this code is an an MDB file, not an ADP, you need to check the
NoMatch property instead of EOF (no matter what the wizard says):

If rs.NoMatch Then
MsgBox "Record was not found"
Else
Me.Bookmark = rs.Bookmark
End If