Private Sub Komut27_Click()
On Error GoTo Err_Komut27_Click
Dim c As Integer
c = MsgBox("Seçilen satış silinecek..! Eminmisiniz?", vbOKCancel + vbQuestion, "Bilgi")
If c = vbOK Then
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
Me.Liste22.Requery
ElseIf c = vbCancel Then
Me.Undo
End If
Exit_Komut27_Click:
Exit Sub
Err_Komut27_Click:
MsgBox Err.Description
Resume Exit_Komut27_Click
End Sub
Arkadaşlar merhaba kod ile veri silerken şifre sorması için ne eklemem lazım? Yardımcı olursanız sevinirim.