Kod:
sub sil()
If MsgBox("" & Me.Liste491.Column(0) & " " & " isimli şahsa ait veri silinecek. Devam edilsin mi?", vbCritical + vbYesNo) = vbYes Then
DoCmd.SetWarnings False
DoCmd.RunSQL "DELETE TbLevci.Evci_ID, * FROM TbLevci WHERE TbLevci.Evci_ID = " & Liste491.Column(0)
Me.Liste491.Requery
Else
Exit Sub
End If