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

Professionelles Skript - fand ich sehr gut Office 365