Skip to main content

AccessTr.neT


Çıkarken Kaydetmesin

Çıkarken Kaydetmesin

Çözüldü #2
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
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
Çıkarken Kaydetmesin - Yazar: arslaney - 22/03/2011, 18:16
Cvp: Cıkarken Kaydetmesin - Yazar: ozanakkaya - 22/03/2011, 18:26
Cvp: Cıkarken Kaydetmesin - Yazar: arslaney - 22/03/2011, 18:32
Task