Guten Morgen zusammen!
In meine Access- DB möchte ich ein Formular einfügen, mit dem es möglich sein soll, sich Datensätze anzeigen zu lassen. Man kann hier die Personalnummer angeben und bekommt sofort den entsprechenden Datensatz angezeigt. Das sieht dann so aus:
Dim cnn As ADODB.Connection
Dim rs As ADODB.Recordset
Set cnn = CurrentProject.Connection
Set rs = New ADODB.Recordset
rs.Open „Select *from Azubis“, cnn, adOpenKeyset, adLockOptimistic
Do While rs![Personalnummer] Me.txtPersonalnummer
rs.MoveNext
If rs.EOF Then
MsgBox „Die Personalnummer ist in der Tabelle nicht enthalten. Bitte prüfen Sie die Schreibweise und geben Sie die Personalnummer erneut ein“
[txtPersonalnummer].SetFocus
[txtNachname] = „“
[txtVorname] = „“
[txtAusbildung] = „“
[txtKlasee] = „“
rs.Close
cnn.Close
Exit Sub
End If
Loop
[txtPersonalnummer] = rs![Personalnummer]
[txtNachname] = rs![Nachname]
[txtVorname] = rs![Vorname]
[txtAusbildung] = rs![Ausbildung zum/ zur]
[txtKlasse] = rs![Klasse]
rs.Close
cnn.Close
Soweit läuft das auch, aber leider kann ich mir so immer nur einen Datensatz anzeigen lassen.
Es ist durchaus möglcih, dass eine Personalnummer auch mehrmals in der Tabelle vorkommt. Wie kann ich den Code abändern, so dass ich mir alle Datensätze einer Personalnummer hintereinander anzeigen lassen kann???
Wäre super, wenn da jemand ne Idee hätte.
Schonmal Danke und Liebe Grüße
Claudia