Liste kutusunun ilk sütunundaki veri stoknumarası
tablodaki stok_numarası alanı metin olarak ayarlanmış,
Bu yüzden
DoCmd.RunSQL "DELETE stok_numarası FROM tbl_malzemeler WHERE (((stok_numarası)=" & Me.Liste0.ItemData(GItem) & "))"
Kodunu çalıştırdığında tür uyuşmazlığı hatası verecektir. Veri metin olduğu için ölçütteki koşulun tek tırnak içerisine yazılması gerekli
(((stok_numarası)='" & Me.Liste0.ItemData(GItem) & "'))"
koddaki kırmızı tek tırnağı eklemeniz gerekiyor.
Kod aşağıdaki gibi olacak
DoCmd.RunSQL "DELETE stok_numarası FROM tbl_malzemeler WHERE (((stok_numarası)='" & Me.Liste0.ItemData(GItem) & "'))"