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