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 ein cooler Tag. Zu Hause will ich nun ordnen und büschelen und schauen, was ich umsetzen kann. Office Dienste