Message box shows twice

[EleanorG]

I have a search form...with a list box..

If there are no results - the message box comes up

If there are results - the message box comes up

I am totally bumfuzzled -

Private Sub cmdSearch_Click()
Me.Found.RowSource = "qrySearch"
Me.Found.Visible = True
If Me.Found.ItemsSelected.Count = 0 Then
MsgBox "Enter a New Search."
Exit Sub
End If


End Sub

 

[Bat17]

I would assume that assining a row source and making visible at the start of the code means that there are no records slected by the time it gets to the if line

Peter

 

[EleanorG]

Right - the click runs the query - and populates the list with the results but that blinking message box pops up even when there ARE results. I stuck the message box in as an afterthought and now it comes up with or without results from the query...

Hope this makes sense

 

[boblarson]

Private Sub cmdSearch_Click()
    Me.Found.RowSource = "qrySearch"
    [B]Me.Found.Requery[/B]
    Me.Found.Visible = True
       If Me.Found[B].ListCount[/B] = 0 Then
            MsgBox "Enter a New Search."
            Exit Sub
       End If
End Sub

 

[EleanorG]

Thank you - Thank you - I certainly do appreciate your help!!!!