DoCmd.SetWarnings False
DoCmd.RunSQL "INSERT INTO stok_tbl ( stok, miktar, [no] ) SELECT stok_temp_tbl.stok, stok_temp_tbl.miktar, [Formlar]![ana_frm]![id] AS idno FROM stok_temp_tbl;"
Me.stok_alt_frm.Requery
DoCmd.SetWarnings True
MsgBox ("veri aktarıldı")
Forma buton ekle, tıklandığında olayına aşağıdaki kodu yaz.