How to test what is returned by query?

[JamesP]

HI
I am testing attempt to test if a specific record exists within a table in Form Module.
SQLstr = "SELECT tblInspectionFootages.FootTaken" _
& " FROM tblInspectionFootages" _
& " WHERE tblInspectionFootages.Eid=" & [Me].[EqipmentID] _
& " AND tblInspectionFootages.FootTaken)=" & [Me].[Footage] & ";"

Using this query. Is there a way to test if the query returns nothing?
<font color=red>Thanks!</font color=red>

[Bart]

Hi,

Use the dCount function, it will return the number of records that complies with your WHERE clause.

It should look something like this:

lngNumberOfRec = dCount("FootTaken", "tblInspectionFootages", "Eid=" & [Me].[EqipmentID]& " AND FootTaken=" & [Me].[Footage])

[Caz]

dim rst as recordset

SQLstr = "SELECT tblInspectionFootages.FootTaken" _
& " FROM tblInspectionFootages" _
& " WHERE tblInspectionFootages.Eid=" & [Me].[EqipmentID] _
& " AND tblInspectionFootages.FootTaken)=" & [Me].[Footage] & ";"


'open the recordset
Set rst = db.OpenRecordset(SQLstr)

'check for 0 records returned
If rst.Recordcount = 0 Then
'this does nothing if no records found
Else
rst.MoveFirst
Do Until rst.EOF = True
'carry on here

[JamesP]

Thanks Caz and Bart!
Just what I was looking for!
[img]/w3timages/icons/cool.gif[/img]