Private Sub GeheZuDatensatz_Click()

Forms![HF]![UF01d].SetFocus

DoCmd.GoToRecord , , acLast

MsgBox Me!UF01d.Form!DingID.Value

Screen.PreviousControl.SetFocus

End Sub