[asto]

هي الطريقة انه تنشا جدول جديد للنقل نفس الجدول السابق تماما لكنه فارغ

و تكتب التالي :

كود :

Set db = DBEngine.OpenDatabase(App.Path & "\DB1.MDB", False, False)
Set Rs2 = db.OpenRecordset("Select * From [table]", dbOpenDynaset)
Set Rs1 = db.OpenRecordset("Select * From [tablel 2]", dbOpenDynaset)

If Rs2.RecordCount > 0 Then Rs2.MoveLast
Do Until Rs1.EOF
Rs2.AddNew
الكود الذي تريد
       Rs2.Update
       Rs1.MoveNext
    Loop

حيث ال table اسم الجدول الاول و tablel2 اسم الجدول الثاني

ثم :

كود :

Set db = DBEngine.OpenDatabase(App.Path & "\DB1.mdb")
db.Execute "DELETE FROM [table]"

ثم نكتب كود مشابه للكود الاول في ردي اي قبل ال ثم