DoCmd.FindRecord c, acEntire, True, acSearchAll, True, acCurrent, True
Private Sub name_Change() Dim c As String c = Me!name