If Me.Dirty = True Then
If MsgBox("Değişiklikler kaydedilsin mi?", vbCritical + vbYesNo + vbDefaultButton1, "UYARI") = vbYes Then
DoCmd.GoToRecord , , acNewRec
Else
Me.Undo
End If
Else
DoCmd.GoToRecord , , acNewRec
End If
şeklinde kod kullanılabilir.