+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Silmeden önce şifre isteme hk (/konu-silmeden-once-sifre-isteme-hk.html)
Cvp: Silmeden önce şifre isteme hk - C*e*l*o*y*c*e - 27/08/2010
Dim c As Integer
c = MsgBox("Müşteri kaydı silinecek..! Eminmisiniz?", vbOKCancel + vbQuestion, "PapirDüğünSalonu")
If c = vbOK Then
DoCmd.SetWarnings False
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
DoCmd.SetWarnings True
ElseIf c = vbCancel Then
Me.Undo
End If