اذهب الي المحتوي
أوفيسنا

الردود الموصى بها

قام بنشر

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

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

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

 

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

 

Data.rarFetching info...

قام بنشر

عليكم السلام

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

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

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

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

  • Like 1
قام بنشر

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

  • Like 1
قام بنشر

السلام عليكم 

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

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

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

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

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

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

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

 

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information