How can I check for no records

[OldSlowDog]

I have a subform with a query as Recordsource. How can I tell there is no record matching the criteria in the query so I can display a "No record found" message to the user.
Thanks for helping.

Ed

 

[roltrap]

hi Ed,

you could do this after querying:

Dim rst As Recordset
Dim totrec As Integer

Set rst = Me.RecordsetClone
totrec = rst.RecordCount

if totrec=0 then msgbox "no records"

regards Guido

 

[MakeItSo]

Or you could use the DCount function:

If not DCount("[ID]", "Your query&quot then msgbox "no records"

whereas you need to replace ID with some field of your query.

Regards,
MakeItSo

Andreas Galambos
EDP / Technical Support Specialist
(andreas.galambos@bowneglobal.de)
HP:

http://www.andygalambos.de

 

[OldSlowDog]

Thank you all for the great help. You all have a nice day.