Çıkarken Kaydetmesin

Merhaba;

Ekli formda herhangi bir değişiklik yaptıktan sonra kayıt tuşuna basmadan cıksan bile son işlemi kaydetmektedir. Benim istediğim kaydet tuşuna basmadan kaydetmemesi.

Teşekkürler.

Buton kodlarını aşağıdaki ile değiştir.

Private Sub Komut46_Click()

On Error GoTo Err_Komut46_Click





If MsgBox("Kapatmadan önce kaydedilsin mi?", vbYesNo, "Kaydediliyor...") = vbYes Then

    DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

    DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70

    DoCmd.Quit

Else

    Me.Undo

    DoCmd.Quit

End If

 

Exit_Komut46_Click:

    Exit Sub



Err_Komut46_Click:

    MsgBox Err.Description

    Resume Exit_Komut46_Click

    

End Sub

Teşekkür ederim. Buna benzer kodlar kullandım ama hep hata aldım. Bu tabiri caiz ise cuk diye oturdu.. + 1