DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE T_İlac SET mevcut = [mevcut]-[Formlar]![İlac_satis]![miktar] WHERE (((T_İlac.barkod)=[Formlar]![İlac_satis]![barkod]));"
DoCmd.SetWarnings True
Kaydet butonunuza kod eklememişsiniz. Sadece stoktan düşüm yapacak kodu yazdım. Üstteki kodu butonun tıklandığında olayına eklerseniz aynı barkodlu ürünün miktarını "T_İlac" tablosundan çıkarır.