zur Gesamtübersicht

Gehe zu letztem Datensatz in Unterformular 

Private Sub GeheZuDatensatz_Click()
Forms![HF]![UF01d].SetFocus
DoCmd.GoToRecord , , acLast
MsgBox Me!UF01d.Form!DingID.Value
Screen.PreviousControl.SetFocus
End Sub

Es war informativ und spannend. Jede(r) der Gruppe kann dem Kurs etwas entnehmen, was er/sie braucht. Office Dienste