Please HELP.....Listbox Row 1

[zishan619]

Hi:
I have a button that would run a query based on criteria placed into the form. The results would output into a listbox. Now If the criteria goes through and brings up only the headings on the listbox I need a msgbox to pop up and say there are no records that much your criteria. How can I do this. I tried:
If isNull (Me.lstAccount.Rowsource) Then
msgbox "There are no records that match your account No. " & Me.txtAccount & "", vbInformation
Exit Sub
End If
It doesn't work. Please Help.
Thanks
Zishan

 

[jmeadows7]

Have you tried:

if isnull(lstAccount.column(0,1) then
msgbox "There are no records that match your account No. " & Me.txtAccount & "", vbInformation
Exit Sub
End If


The 1 is actually the first row that is suppose to have data if you have column headings turned on.

 

[Clothahump]

Instead of If isNull (Me.lstAccount.Rowsource) Then

try using

If Me.lstAccount.ListCount = 0 Then

 

[theog]

I have a similar function on one of my forms. If your query is a recordset object, something like this will work for you (in the button's Click event):

*****************************************************
Dim con As Object
Dim rs As Object
Dim stSql As String

Set con = Application.CurrentProject.Connection
Set rs = CreateObject("ADODB.Recordset&quot
stSql = "YOUR_QUERY_HERE"
rs.Open stSql, con, 1 ' 1 = adOpenKeyset

' If no item matches, report the error and exit
If (rs.EOF) Then
MsgBox "There are no records that match your account
No. " & Me.txtAccount, vbInformation
Exit Sub
End If
*****************************************************

Hope this helps.

 

[jmeadows7]

Yep clothahump that's the better answer. Late in the day don't know what I was thinking!!!

 

[zishan619]

Thank you JMeadows that code help...And Thanks everyone else as well.
Star for everyone