Kod:
Private Sub Komut20_Click()
On Error GoTo Err_Komut20_Click
Dim c As Integer
c = MsgBox("Müşteri kaydı silinecek..! Eminmisiniz?", vbYesNo + vbQuestion, "Dikkat")
If c = vbYes Then
DoCmd.SetWarnings False
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
End If
Exit_Komut20_Click:
Exit Sub
Err_Komut20_Click:
MsgBox Err.Description
Resume Exit_Komut20_Click
End Sub