Jag har en fråga

Jag vill inte lägga till en kund två gånger så jag ställde en sql fråga men det funkar inte som det ska..här är koden:

Private Sub Command4_Click()
Dim SQL As String

Set rsKunder = New ADODB.Recordset

SQL = "SELECT fnamn,enamn FROM person Where fnamn LIKE '" & Text2.Text & "%'"
rsKunder.Open SQL, dbkoppling, adOpenStatic
MsgBox (SQL)

If rsKunder.RecordCount <> 0 Then ....här är det felet???
MsgBox ("DET FINNS INTE")
Exit Sub
End If

Do Until rsKunder.EOF
List1.AddItem rsKunder.Fields("fnamn") & " " & rsKunder.Fields("enamn")
rsKunder.MoveNext
Loop
End Sub

Det är nåt fel på koden if - satsen

finns det nån som kan hjälpa mig

MVH
/Abbe

du vill veta ifall din Recordest är tom, då måste du evaluera rsKunder.RecordCount = 0
dvs, din if-sats bör se ut något sånt här:

If rsKunder.RecordCount = 0 Then
MsgBox "DET FINNS INTE"
Exit Sub
End If

hej igen
Jag har skrivit
If rsKunder.RecordCount = 0 Then
MsgBox ("DET FINNS INTE")
Exit Sub
End If

men det registreras ändå samma kund flera gånger,,förstår vad jag menar
finns det en annan lösning för att inte ska registreras en kund två eller flera gånger..

MVH
/Abbe

testa såhär då..?
If rsKunder.RecordCount = 0 Then
MsgBox ("DET FINNS INTE")
'Exit Sub
Else
Do Until rsKunder.EOF
List1.AddItem rsKunder.Fields("fnamn") & " " & rsKunder.Fields("enamn")
rsKunder.MoveNext
Loop
End If

Tyvärr funkar det inte,,kan det vara nånting annat som är felet??

Testa:

If rsKunder.EOF = True Then
MsgBox ("DET FINNS INTE")
Exit Sub
Else


Vet inte om det är rätt men jag tog det bara ur huvudet. Du kan ju testa iaf.

//Petter

HEJ MAN

TACKAR det funkar hyfsat bra nu och jag tackar för din hjälp..jag ska fortsätter jobba...
Have nice evening man

MVH
/Abbe

Tack detsamma och det är ju alltid bra när man kan hjälpa till...

//Petter