sayın hözsoy
formun üzerine koyacagınız butonun olay yordamına bu kodu yapıştırın sizin butonun adı ne ise onu komut11 ile değiştirin
Private Sub Komut11_Click() 'sizin butonunuzun adı komut11
On Error GoTo Err_Komut11_Click
Dim sifre
sifre = InputBox("Parolayı yazınız", " ")
If sifre = 123 Then '123 yerine şifre belirleyebilirsiniz
DoCmd.RunCommand acCmdSaveRecord 'kayıt butonunun kodu
Else
MsgBox "Yanlış Şifre"
End If
Exit_Komut11_Click:
Exit Sub
Err_Komut11_Click:
MsgBox Err.Description
Resume Exit_Komut11_Click
End Sub
kaydet butonuna bastıgınızda sizden şifre isteyecektir şifre 123 isteginize göre değiştirbilir siniz kolay gelsin
#3
