msg box code

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

RipperT - 31 Mar 2005 10:48 GMT

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

Signature

Ripper T Smith
rippertsmith<nospam>@comcast.net

Reply to this Message

Douglas J. Steele - 31 Mar 2005 11:54 GMT

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

Signature

Doug Steele, Microsoft Access MVP
http://I.Am/DougSteele
(no e-mails, please!)

> Hello,
>
[quoted text clipped - 16 lines]
>
> Ripper

Reply to this Message

Dirk Goldgar - 31 Mar 2005 17:44 GMT

> 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

Signature

Dirk Goldgar, MS Access MVP
www.datagnostics.com

(please reply to the newsgroup)

Reply to this Message