forma buton ekle, butonun tıklandığında olayına aşağıdaki kodu ekle.
DoCmd.SetWarnings False
'stoktan düş
If MsgBox("Üretilen Ürün Stoktan Düşülsün mü?", vbYesNo) = vbYes Then
DoCmd.RunSQL "UPDATE (Formuller INNER JOIN Urunler ON Formuller.Urun_adi = Urunler.Urun_adi) INNER JOIN Hammaddeler ON Formuller.Hammadde_adi = Hammaddeler.Hammadde_adi SET Hammaddeler.Hammadde_StkMik = [Hammadde_StkMik]-([Hammadde_Kulmik]*[Formlar]![Uretilen]![Uretim_Miktari]) WHERE (((Urunler.UID)=[Formlar]![Uretilen]![Urun_adi]));"
End If
'üretilene ekle
If MsgBox("Üretilen Ürün Üretime Eklensin mi?", vbYesNo) = vbYes Then
DoCmd.RunSQL "UPDATE Urunler SET Urunler.Urun_StkMik = [Urun_StkMik]+Val([Formlar]![Uretilen]![Uretim_Miktari]) WHERE (((Urunler.UID)=[Formlar]![Uretilen]![Urun_adi]));"
End If
DoCmd.SetWarnings True