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