Sorularınızı iletirken her zaman örnek bir Access çalışması eklemeniz gerekmektedir.
Sorunuz ile ilgili olarak ta formdaki mevcut "Kaydet" butonunuza aşağıdaki kodu yazın.
Kod:
If MsgBox("Değişiklikler kaydedilsin mi?", vbCritical + vbYesNo + vbDefaultButton1, "UYARI") = vbYes Then
DoCmd.GoToRecord , , acNewRec
Else
Me.Undo
End If
Bunun için Kapat butonuna aşağıdaki kodu ekleyiniz.
Kod:
If Me.Dirty Then
If MsgBox("Forma veri girdiniz ve Kaydet butonuna basmadan formu Kapatmak istiyorsunuz. Değişiklikler kaydedilsin mi?", vbCritical + vbYesNo + vbDefaultButton1, "UYARI") = vbYes Then
DoCmd.GoToRecord , , acNewRec
DoCmd.Close
Else
Me.Undo
DoCmd.Close
End If
Else
DoCmd.Close
End If