Yukarıdaki kodu aşağıdaki şekilde güncelledim. Bu defa parola doğru girildiğinde kayıt silme yapıyor. Ama parolayı yanlış girdiğimde hiç bir şey olmamış gibi duruyor. P
Private Sub Komut12_Click()
On Error GoTo Err_Komut12_Click
Dim sifre
sifre = InputBox(" Parola Gerekli!", "Uyarı")
If sifre = 123 Then
DoCmd.SetWarnings False
Me.altforum.SetFocus
With Me.altforum
If MsgBox("Kayıt silinecek!! Emin misiniz?", vbYesNo, "Uyarı!") = vbYes Then
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
MsgBox "Kayıt Silindi!", vbOKOnly, "Bilgi!"
Else
Dim msg, style, title, response
msg = "Yanlış Şifre"
style = vbOKOnly + vbExclamation
title = "Şifre Hatası"
response = MsgBox(msg, style, title)
Exit_Komut12_Click:
Exit Sub
Err_Komut12_Click:
MsgBox Err.Description
Resume Exit_Komut12_Click
Exit Sub
End If
End With
End If
End Sub
arola yanlış girildiğinde hata mesajını vermesi için yardımcı olur musunuz?