No Data Query

[Quan9r]

I'm in a form with a button click to another form based on a qurey.
If there is no data in the query/form I would like a messge box to pop up. I have seen the code for a report but I cannot use that same code in a form. Can someone help?

I have tried this: No luck
Private Form_NoData(Cancel As Integer)
MsgBox "There is no data for this report"
Cancel = True
End Sub

 

[RickSpr]

To do it when the button is clicked, without opening the form:

Private Sub Command1_Click()
    If DCount("*", "[red]query name[/red]") = 0 Then
        MsgBox "There are no records to display"
    Else
        DoCmd.OpenForm ...
    End If
End Sub

To do it after opening the blank form (and closing it after the message is displayed):

Private Sub Form_Open(Cancel As Integer)
    If Me.Recordset.RecordCount = 0 Then
        MsgBox "There are no records to display"
        Cancel = True
        Exit Sub
    End If

Rick Sprague
Want the best answers? See faq181-2886
To write a program from scratch, first create the universe. - Paraphrased from Albert Einstein