Check if query is empty but not using SQl & Recordsets?

[MottoK]

Hi,

I have a module which opens a simple select query called "Duplicate User IDs" and I want to check if it returns an empty recordset or not.

Ok simple enough using SQL and a recordset but I don't want to have to use these (I have my reasons!) - I want to stick to using docmd's and the like - is there anyway of doing this?

Many thanks.

 

[Ed2020]

MottoK,

Not that I'm aware of.

What are your reasons for not wanting to use a recordset?

Ed Metcalfe.

Please do not feed the trolls.....

 

[pjm]

isnull (dlookup ("[column name]", "[Duplicate User IDs]")) will be true if the query returns no records.

pjm

 

[Ed2020]

Hadn't thought of that.

Ed Metcalfe.

Please do not feed the trolls.....

 

[MottoK]

Excellent - will give that a whirl, thanks.

 

[MottoK]

Hi - I've tried this suggestion but I keep getting the error "You cancelled the previous operation" (I have ran through it and it is the:

If IsNull(DLookup("[User_ID]", "[Duplicate User IDs]"))
line which is causing the error.

Any suggestions? Thanks Code below:


Private Sub Check_For_New_Staff_Click()
On Error GoTo Err_Check_For_New_Staff_Click



If IsNull(DLookup("[User_ID]", "[Duplicate User IDs]")) Then

MsgBox "There are still duplicate Agent ID's - this Check will not be run"


Else

Dim stDocName As String

stDocName = "Check_For_New_Staff"
DoCmd.OpenQuery stDocName, acNormal, acEdit

Exit_Check_For_New_Staff_Click:
Exit Sub

Err_Check_For_New_Staff_Click:
MsgBox Err.Description
Resume Exit_Check_For_New_Staff_Click


End If

End Sub

 

[MottoK]

Sorry my fault - have sorted it.

Cheers.