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 no, malzeme_kodu, malzeme_adi, malzeme_birimi, fiili_stok, kullanılan_miktar, is_emri_detayi FROM kullanici_girisi WHERE (((malzeme_adi)= Eval('[Forms]![malzeme_giris]![lstMalzeme].Column(2)')));")
DoCmd.SetWarnings True
Me.lstMalzeme.Requery
Else
Exit Sub
End If
End Sub