Kod:
DoCmd.RunSQL "SELECT Alis.Aciklama, Sum(Alis.Miktar) AS ToplaMiktar INTO tmpX FROM Alis GROUP BY Alis.Aciklama;" 'Açıklama ve miktar alanlı geçici tablo oluşturur
DoCmd.RunSQL "UPDATE Stok INNER JOIN tmpX ON Stok.Aciklama = tmpX.Aciklama SET Stok.GirenAd = tmpX.ToplaMiktar;" 'Stok tablosunu günceller
DoCmd.RunSQL "DROP TABLE tmpX;" '' Geçici tabloyu siler