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

I bi chly deheime hie... ich kann alles fragen - es ist auf meine Situation angepasst! Office 365