Form.Refresh
Dim ekle
ekle = "INSERT INTO SİP1 ( İŞLEMYERİ, MALZEMEADI, STOKNO, SINIFI, KATEGORİSİ, ÖLÇÜCİNSİ, MİK )" _
& " SELECT DB.MUTEMETLİK, DB.MALZEMEADI, DB.STOKNO, DB.SINIFI, DB.KATEGORİSİ, DB.ÖLÇÜCİNSİ, DB.İSMİK" _
& " FROM DB LEFT JOIN SİP1 ON DB.MUTEMETLİK = SİP1.İŞLEMYERİ" _
& " WHERE (((Exists (SELECT 1 FROM SİP1 as trz WHERE SİP1.SIRANO = trz.SIRANO))=False))"
CurrentDb.Execute ekle
MsgBox " SİP1 tablosuna kayıtlar eklendi"