Filter form

[Hillbillie]

I am currently using a command button to filter certain records to the form. For example. I have one button called "A" that filters all lastnames that are like "A"
I have buttons A thru Z and an ALL button

These work great, unless there is no Lastnames like A, then it opens the form in a blank form. I want it to popup a msgbox, telling me there are no records, and then after I press ok, it will go end and go back to where it was.

Current Script:

Private Sub Abutton_Click()
Me.Filter = "Lastname like 'A*'"
Me.FilterOn = True
End Sub

Thanks

 

[spizotfl]

could you use something like:
If DCount("Lastname","table or query that is recordsource", "Lastname like 'A*'") > 0 then
Me.Filter="Lastname like 'A*'"
Me.FilterOn=True
Else
msgbox "no records"
End If

 

[Hillbillie]

Thanks spizotfl, it worked like a champ.

Below is my final code.

If DCount("Lastname", "Donors", "Lastname like 'A*'") > 0 Then
Me.Filter = "Lastname like 'A*'"
Me.FilterOn = True
Else
MsgBox "There are no records with this lastname"
End If
End Sub

 

[spizotfl]

glad to help