Merhabalar,
kaydi sil dugmesine bastigimda benden sifre sorsun sifrenin dogru girilmesi durumunda kayit silme islemi gerceklessin.
bunu nasil yapabiliriz acaba ?
Sayın moskovic;
Aşağıdaki kodu düğmenin kodu ile değiştirin istediğiniz olacaktır.
Tabi bu programınızın diğer modülleri ile entegre edilebilir. Örneğin kullanıcı girişi modülünüz varsa oradaki şifreyi kullanabilirsiniz.
Kolay gelsin.
Private Sub Komut12_Click()
On Error GoTo Err_Komut12_Click
Dim sifre As String
sifre = "www.accesstr.net"
If InputBox("Silme Şifresini Giriniz") = sifre Then
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
Else
MsgBox "Hatalı Şifre"
Exit Sub
End If
Exit_Komut12_Click:
Exit Sub
Err_Komut12_Click:
MsgBox Err.Description
Resume Exit_Komut12_Click
ek olarak
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
şeklindeki kodları
DoCmd.SetWarnings False
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
DoCmd.SetWarnings True
şeklinde ayaparsan acces uyarısını kaldırmış olursun
Teşekkürler Celoyce Hocam...