28.03.2021, 22:00
In meinem Onlinekurs habe ich die Aufgabe, eine Suchabfrage für eine Kundendatenbank (4 spalten) zu erstellen. Ich soll einen Kunden nach Kundennummer ermitteln und den vollständigen Datensatz ausgeben.
Irgendwie bricht es aber immer ab.
Würde mich freuen, wenn jemand mal drüber schauen könnte! Vielleicht gehts auch etwas anders. Die Tabelle in Access ist "Kunde" und die Spalte "Kundennummer". Als Ergebnis soll der "vollständige" Datensatz in Zeile 2 ausgegeben werden.
Danke
Roy
Irgendwie bricht es aber immer ab.
Code:
Private Sub CommandButton1_Click()
Dim strSQL As String
Dim LastRow As Integer
Call a_mod_DB_Zugriff.DB_Zugang_check
Set rs = CreateObject("ADODB.Recordset")
strSQL = "SELECT * FROM Kunde Where Kundennummer = textbox1.value"
rs.Open strSQL, objConn
Do While Not rs.EOF
LastRow = Tabelle1.Cells(Rows.Count, 1).End(xlUp).Row + 1
Tabelle1.Cells(LastRow, 1) = rs!Kundennummer
Tabelle1.Cells(LastRow, 2) = rs!Name
Tabelle1.Cells(LastRow, 3) = rs!Str
Tabelle1.Cells(LastRow, 4) = rs!Ort
rs.movenext
Loop
Call Aufraeumen
End SubWürde mich freuen, wenn jemand mal drüber schauen könnte! Vielleicht gehts auch etwas anders. Die Tabelle in Access ist "Kunde" und die Spalte "Kundennummer". Als Ergebnis soll der "vollständige" Datensatz in Zeile 2 ausgegeben werden.
Danke
Roy
