انتقال چند رکورد از یک جدول (تحت فرم) به جدول دیگر

[h.moshfeghi]

چطور می شه چند رکورد که در فرم انتخاب شده را به جدول دیگر منتقل کرد>>>

[hasanhzd]

درود
با append کوئری

[ali.m.a]

با این کد میتونی رکوردهاتو به جدول اضافه کنی ...

Dim rst As Recordset
Dim db As Database
Set db = CurrentDb
Set rst = db.OpenRecordset("MYTabel")
rst.AddNew
rst.fields ("field1") = me.text1.value
.
.
.
rst.fields ("fieldn") = me.textn.value
rst.update
rst.close

[h.moshfeghi]

میشه با یک مثال توضیح بدهید
می خواهم در فرم جاری یک یا چند رکورد را انتخاب کرده و با زدن دکمه ای اطلاعات فوق به جدول دیگر منتقل شود.