dilerim işinize yarar
Kod:
Private Sub Komut13_Click()
If MsgBox("" & Me.lstMalzeme.Column(2) & " Malzemesini Listeden Çıkarmak İstediğinize Emin Misiniz ?", vbCritical + vbYesNo, "VEDAŞ Bakım Onarım") = vbYes Then
DoCmd.SetWarnings False
DoCmd.RunSQL "DELETE FROM kullanici_girisi WHERE [Kimlik]=" & me.lstMalzeme.column(0)
DoCmd.SetWarnings True
Me.lstMalzeme.Requery
Else
Exit Sub
End If
End Sub