Çıkarken Kaydetmesin

22/03/2011, 18:16

arslaney

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.
22/03/2011, 18:26

ozanakkaya

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
22/03/2011, 18:32

arslaney

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