2003 ekleyemiyor musun örneğini.

---

'tablo1 verileri alacağın tablo
'tablo2 verileri göndereceğin tablo

Dim rst1 As dao.Recordset
Dim rst2 As dao.Recordset

Set rst1 = CurrentDb.OpenRecordset("select * from tablo1")
Set rst2 = CurrentDb.OpenRecordset("select * from tablo2")

With rst1
Do While Not .EOF
rst2.AddNew
rst2!tablo2dekialanadı = !tablo1dekialanadı
rst2!tablo2dekialanadı = !tablo1dekialanadı
rst2!tablo2dekialanadı = !tablo1dekialanadı
rst2.Update
.MoveNext
Loop
End With
bu kodu denermisin.