Verileri silmek icin sifre sorsun

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...