MsgBox if NoData found

[mauricionava]

Hello guys, how can I set a message in a form that runs a query in the back that, if there is no data found, display a message saying that there was no data found?

I have a query that looks up fields in a table and does some calculations and if there is no data found it freezes and does not show anything, no fields, no lables, etc.

I want a msgbox to display a message when there is no data found.
Thanks!

 

[HarleyQuinn]

You can do this, but the code used depends on how you are getting the data from the query.

Could you post an example of your code to show us how you are retrieving the data?

Cheers

HarleyQuinn
---------------------------------
Get the most out of Tek-Tips, read FAQ222-2244 before posting.

 

[mauricionava]

Sure,
the query looks for ACCT, LAST, FIRST, STATUS, INTEREST, and calculations in the TOTAL.
The criteria in ACCT is [ENTER ACCT NUMBER] and [ENTER INTEREST AMOUNT] for INTEREST.

 

[DJN]

Try this

Private Sub Command0_Click()
Dim msg As String
If IsNull(DLookup("FieldName", "QueryName")) Then
msg = "No data. "
MsgBox msg
End If
End Sub

 

[mauricionava]

Where should I put that code?
I have a switchboard with a button that when I click on it, it automatically asks for the criterias and then it shows the form with the data.

 

[mauricionava]

I got an error message "You canceled the previous operation