DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE Tablo1 INNER JOIN tablo2 ON Tablo1.name = tablo2.name SET tablo2.surname = [Tablo1].[surname], tablo2.adress = [tablo1].[adress];"
DoCmd.SetWarnings True
veya
UPDATE Tablo1 INNER JOIN tablo2 ON Tablo1.name = tablo2.name SET tablo2.surname = [Tablo1].[surname], tablo2.adress = [tablo1].[adress];
Sql kodunu sorgu olarak kaydedip çalıştır.