(27/06/2020, 00:13)feraz yazdı:

(26/06/2020, 23:57)enginbeyy yazdı: Tekrar merhaba,
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?

En sondaki End if in üst satırına else yazıp altına msgbox"hata" gibi ekleyebilirsiniz.