سوف نطبق الطريقة على جدول EMPLOYEES1
انشئ موديول جديد و الصق فيه الشفرة التالية
*** للعلم الشفرة سوف نستخدمها لجميع الجداول الاساسية
Public Function TransData(TABLE1 As String, TABLE2 As String)
Dim SetSql As String
SetSql = "INSERT INTO "
SetSql = SetSql & TABLE2
SetSql = SetSql & " SELECT * FROM "
SetSql = SetSql & TABLE1
DoCmd.RunSQL SetSql
End Function
للتنفيذ ضع اسم الجدول الاساسي ثم اسم الجدول الجديد الذي سيتم نقل البيانات عليه
Call TransData("EMPLOYEES1", "EMPLOYEES")
تفضل المثال الخاص بك و التنفيذ من خلال نموذج
Data.rar