Hallo :)
wir sollen für unser Schulprojekt eine Datenbank für ein "Sprachinstitute" erstellen. Wir haben hierzu ein Formular Personal in Tabellenform erstellt. Zur Bearbeitung der einzelnen Datensätze wollten wir durch Klicken auf den Datensatz bzw. mit einem Button entsprechenden DS als Einzeldatenblatt öffnen, hierzu müsste beim öffnen direkt zu dem angeklickten Datensatz gesprungen werden. Bislang haben wir unten stehenden Code erstellt, doch leider funktioniert dieser Code nur wenn alle DS vollständig sind und Datensatznr mit ID-Nr. übereinstimmt. Wird allerdings ein Datensatz gelöscht und der Datensatz Nr. 3 hat Bespielsweise nun die ID 4, dann öffnet sich nicht der Datensatz mit der ID 4, wenn ich den Datensatz mit der ID 4 anklicke, sondern Datensatz Nr. 4, der dann die ID 5 beinhaltet. Gibt es hierzu evtl. noch eine Formel die eingefügt werden kann, um dieses Problem zu beheben?
Private Sub cmd_openRecord_Click()
On Error GoTo Err_cmd_openRecord_Click
Dim personal As String
Dim criteria As String
Dim i As Integer
i = Me.id
personal = "frm_personaleinzel2"
DoCmd.OpenForm personal, , , criteria
DoCmd.GoToRecord , , acGoTo, i
Exit_cmd_openRecord_Click:
Exit Sub
Err_cmd_openRecord_Click:
MsgBox Err.Description
Resume Exit_cmd_openRecord_Click
End Sub
Über hilfreiche Antworten wäre ich mehr als dankbar!!
Liebe Grüße
Tina
|