Unmatched record and msgbox

[Daryl2106]

Hi,

I was wondering how you write the vba for msgbox to say "No records match the Student ID entered" when a query is opened from a form button. That is if the query can't find a record to match the data in an unbound text box.Thanks in advance.



Take care,

Daryl

[June7]

I presume you mean an Access query object. Why open a query object?

If you open a query object then have to do a search of the query with domain aggregate function (such as DLookup or DCount). Why not just do a search of the table with code in the button event?

[Daryl2106]

The code associated with the button is simply Me.Requery. If there is no mtch for the ID in the query criteria (as entered on a forum) then no records are returned. I need to let the user know that they have entered and invalide ID.

[June7]

So you are not opening a query, just filtering a form?

Why not help the user make a valid selection? This can be managed with a LimitToList combobox or a listbox.

Don't let the requery take place if there is not a valid entry. The code can do a lookup on data.

If IsNull(DLookup("ID", "tablename", "ID=" & Me.ID)) Then
MsgBox "Invalid ID. Try again."
Me.tbxID.SetFocus
Else
Me.Requery
End If