Kod:
Dim GMalzemeAdi As String
GMalzemeAdi = [malzeme alt formu].Form![malzeme_adi]
DoCmd.SetWarnings False
DoCmd.RunSQL "INSERT INTO stok ( malzeme_adi_satok, malzeme_miktari_stok ) SELECT tarif_malzeme_adi, miktari FROM malzeme WHERE (((malzeme_adi)='" & GMalzemeAdi & "'));"
DoCmd.SetWarnings True
[stok alt formu].Form.Requery