Skip to main content

AccessTr.neT


Verileri korumak

Verileri korumak

Çözüldü #2
silme butonun tıklandığında olayına;


On Error GoTo Err_Komut153_Click

Dim sifre As String
sifre = "7"
If InputBox("Lütfen Silme Şifresini Giriniz") = sifre Then
DoCmd.SetWarnings False
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
DoCmd.SetWarnings TrueElse
MsgBox "Aferin, Silme Başarılı..."
Exit Sub
End If

Exit_Komut153_Click:
   Exit Sub

Err_Komut153_Click:
   MsgBox Err.Description
   Resume Exit_Komut153_Click
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
Verileri korumak - Yazar: kenan827 - 12/03/2014, 20:03
Cvp: Verileri korumak - Yazar: ozanakkaya - 29/05/2014, 23:02
Cvp: Verileri korumak - Yazar: kenan827 - 09/06/2014, 19:35