نقل بيانات من جداول الى جداول مربوطة

[jamal2080]

السلام عليكم ورحمة الله وبركاته

تم انشاء علاقات بين الجدوال اريد نقل البيانات من جدول اخر 

مرفق ملف الجداول مربوطة  والجداول مرد نقله

 

ولكم منى جزيل الشكر

 

Data.rar

[ابوخليل]

عليكم السلام

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

الافضل ان تبدأ بربط الجداول الاساسية التي تشتمل على بيانات واحدا واحدا

اذا امتنع عن الربط في احد الجداول فهذا يعني وجود قيم مخالفة في الرأس او في الطرف ... هنا عليك بتتبع مكان الخلل واصلاحه اي تعديل القيمة او حذف السجل المخالف

هذا رأيي والاختيار لك

[jamal2080]

شكرا اخى الفاضل ابوخليل

[دروب مبرمج]

سوف نطبق الطريقة على جدول 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

[jamal2080]

السلام عليكم 

شكر على مجهوداتكم 

ولكن عندى ملفين عدد السجلات كبير

1 - receiptRD   هذا ملف يوجد بة اكثر من 4000 سجل

2 - subtable_Receipt  هذا ملف يوجد بة اكثر من 22000 سجل

-------------------------------------------------

س 1 - هل انشاء العلاقات بين الجداول يجب انا يكون بدون بيانات اما لا ؟

وشكر على حسن تعاونكم معا