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