Kod:
If MsgBox("" & Me.lstMalzeme.Column(2) & " Malzemesini Listeden Çıkarmak İstediğinize Emin Misiniz ?", vbCritical + vbYesNo, "Deneme") = vbYes Then
DoCmd.SetWarnings False
DoCmd.RunSQL "DELETE FROM kullanici_girisi WHERE [no]=" & Me.lstMalzeme.Column(0)
DoCmd.SetWarnings True
Me.lstMalzeme.Requery
Else
Exit Sub
End If