(27/06/2020, 00:13)feraz yazdı:Teşekkür ederim. oldu.(26/06/2020, 23:57)enginbeyy yazdı: Tekrar merhaba,En sondaki End if in üst satırına else yazıp altına msgbox"hata" gibi ekleyebilirsiniz.
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
arola yanlış girildiğinde hata mesajını vermesi için yardımcı olur musunuz?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
Silme Kodu
Bu Konudaki Yorumlar |
Silme Kodu - Yazar: enginbeyy - 26/06/2020, 21:41
RE: Silme Kodu - Yazar: enginbeyy - 26/06/2020, 23:57
RE: Silme Kodu - Yazar: feraz - 27/06/2020, 00:13
RE: Silme Kodu - Yazar: enginbeyy - 27/06/2020, 00:30
RE: Silme Kodu - Yazar: feraz - 27/06/2020, 00:34
|
Konuyu Okuyanlar: 1 Ziyaretçi