Silme Kodu - Baskı Önizleme

Silme Kodu - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Silme Kodu (/konu-silme-kodu.html)

Silme Kodu - enginbeyy - 26/06/2020

Merhaba,
Aşağıdaki kodu uyguladığım dosyamda sürekli formdaki kayıtlardan seçim yaparak silme işlemi yapmak istiyorum. parola soruyor ama silme işlemi yapmıyor. Bakabilir misiniz?

Private Sub Komut12_Click()

On Error GoTo Err_Komut12_Click



Dim sifre

sifre = InputBox(" Parola Gerekli!", "Uyarı")



If sifre = 123 Then

DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70

DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70



Else

MsgBox "Yanlış Şifre", , "Uyarı!"



End If

Exit_Komut12_Click:

Exit Sub



Err_Komut12_Click:

MsgBox Err.Description

Resume Exit_Komut12_Click

End Sub

RE: Silme Kodu - enginbeyy - 26/06/2020

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?

RE: Silme Kodu - feraz - 27/06/2020

(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.

RE: Silme Kodu - enginbeyy - 27/06/2020

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

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.

Teşekkür ederim. oldu.

RE: Silme Kodu - feraz - 27/06/2020

Rica ederim.