How do I determine a SQL query result?

[Trainman]

Private Sub FindCPU_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Dim strSearchStr As String
 
    ' Clear Location Text Box.
    Me!Search_Location.SetFocus
    Me!Search_Location.Text = ""
 
    Me!Search_CPU.SetFocus
 
    ' Build the SQL query.
    strSearchStr = "SELECT CPUs.* FROM CPUs WHERE Name LIKE '" _
                & Me!Search_CPU.Text & "'"
 
    ' Set the query.
    Me.RecordSource = strSearchStr
 
End Sub

With the code above, how can I determine the result of an SQL query? More importantly, how can I determine if zero records were found?

Thanks in advance.

[dcrake]

strSearchStr = "SELECT CPUs.* FROM CPUs WHERE Name LIKE '" _
& Me!Search_CPU.Text & "'"

For a start using a field named Name is very bad naming convention as this is an Access reserved word. At the very least you should put [] around it so that it can be interpreted as a field name.

Secondly you do not need to use the .Text element.

Finally to determine if there are any records you first need to do a dcount

x = Nz(DCount("*","CPUs","Where [Name] Like *" & Me.Search_CPU & "*"),0)

If no records exist the Nz() function will return zero otherwise x = number of records found.

In your syntax your Like operator was acting as an equals operator as there was no wildcard mask in the string.

David