Count of Query results = 0

[shmoussa]

Hi,

I have a button on my form. I want it so that when I click this
button, it will check the count of the results in my query1 query. If
the count is zero, I would like a popup that says "There are no
records found." If the count is 1 or greater, I would like it to run
and display that query. Any idea how to accomplish this?

Thanks

 

[Marshall Barton]

I have a button on my form. I want it so that when I click this
button, it will check the count of the results in my query1 query. If
the count is zero, I would like a popup that says "There are no
records found." If the count is 1 or greater, I would like it to run
and display that query. Any idea how to accomplish this?

Displaying a query as a datasheet is kind of crude, but this
kind of code should do that:

If DCount("*", "query1") > 0 Then
DoCmd.OpenQuery "query1"
Else
MsgBox "There are no records found."
End If

 

[shm135]

Displaying a query as a datasheet is kind of crude, but this
kind of code should do that:

If DCount("*", "query1") > 0 Then
        DoCmd.OpenQuery "query1"
Else
        MsgBox "There are no records found."
End If

Thanks! Worked perfectly!