Thanks!!! that helped i went with
Private Sub LastName_AfterUpdate()
Dim strMsg As String
With Me.LastName
If Not IsNull(.OldValue) Then
strMsg = "Change the name from " & .OldValue & _
" to " & Nz(.Value, "nothing") & "?"
If MsgBox(strMsg, vbYesNo +...