Code problem

[Bjorn]

whats wrong with this code???

Set rs = Db.OpenRecordset("SELECT * FROM MyNames")
With rs Do
strFind = "Name='Bjorn'"
rs.FindFirst strFind
If Not .NoMatch Then
i = i + 1
Do Until .NoMatch
rs.FindNext strFind
i = i + 1
Debug.Print .Name & ", " & i & " records found!"
Loop
Else
MsgBox "No name found"
End If
Loop

if i have 2 names that are the same and if i search at the name that are 2 times in my database how can i get that 2 persons ore more

[Surgeon]

Why don't you use this one, I think it's a bit more simple :

Dim strFind As String
Dim rs As Recordset
strFind = "bjorn"
Set rs = Db.OpenRecordset("SELECT * FROM MyNames WHERE (Name=""" & strFind & """);")
If rs.BOF And rs.EOF _
Then
Beep
MsgBox "No name found"
Else
rs.MoveLast
rs.MoveFirst
Beep
MsgBox "A number of " & rs.RecordCount & " records were found"
End If
rs.Close

[Stevie]

Try this ...

strFind = "bjorn"

strSQL = "SELECT COUNT(*) AS TotalCount " & _
         "FROM MyNames " & _
         "WHERE Name = '" & strFind & "'"

Set rs = db.OpenRecordset(strSQL)

MsgBox "Records Found : " & rs!TotalCount

rs.Close
Set rs = Nothing

[Bjorn]

like if i have to bjorn in my database i wanne output it on a textbox for example thats all

[paulw]

Bjorn,

Your original code looks OK except you have one Do and two Loops, one With and no End With.

Replace the last 'Loop' with 'End With'.

Are you sure it compiles?

P.