Hallo,
ich habe hier ein kleines Problem mit meinem Quellcode, in Bezug auf den "Suchen" String. Die Daten werden im Direktfenster angezeigt, aber nur wenn ich "Suchen" durch den Namen ersetzet.
Ich glaube ich habe den String irgendwie falsch zusammen gesetzt. Oder was weiss ich.
Bin noch ein Frischling was Programmieren angeht.
Vielen Dank im Vorab für die Hilfe
Gruss Agent
**********************************************
Private Sub cmdSuchen_Click()
Dim Suchen$, Prompt$
Dim rst As New ADODB.Recordset
Dim Conn As ADODB.Connection
Dim Abfrage$
Prompt = "Geben Sie den zu suchenden Begriff ein."
Suchen = InputBox(Prompt, "Suchfunktion")
If Suchen = "" Then
MsgBox "Geben Sie den Begriff erneut ein", vbInformation, "Suchen"
End If
Set Conn = New ADODB.Connection
With Conn
.ConnectionString = "DSN=VB_Eigene;"
.Open
End With
rst.Open "SELECT * From tblKundendaten", Conn, adOpenStatic
Do Until rst.EOF
rst.Find "Nachname like '" & Suchen & ""
If Not rst.EOF Then
Debug.Print rst!Nachname
rst.MoveNext
End If
Loop
rst.Close
Conn.Close
End Sub