دمج سجلات جدولين

[moham_q]

السلام عليكم الاخوة الاعزاء في المنتدى ... في المرفق لدي جدولين و اريد دمج سجلات الجدولين مع بعض مع الاخذ بنظر الاعتبار عدم تكرار السجلات عند الدمج بحيث يصبح الجدول الرئيسي هو table1 بعد عملية الدمج ... خالص الشكر والامتنان لجميع الاخوة في المنتدى .. تحياتي

دمج سجلات جدولين.rar

[محمد ايمن]

تفضل اخي الكريم

دمج سجلات جدولين1.rar

[moham_q]

الاستاذ محمد ايمن المحترم .. اشكرك على المجهود الرائع والاجابة المميزة وفقك و جزاك الله خيرا .. لكن هناك استفسار على اجابتك في حالة دمج اعداد كبيرة سوف اضطر للضغط على رسائل append التي تظهر وتخص دمج القيود كثيرا فهل نستطيع الغاءها واظهار فقط الرسالة النهائية ان تنفيذ الدمج قد تم و اظهار عدد السجلات التي تم دمجها .. خالص شكري وامتناني لك

[محمد ايمن]

18 ساعات مضت, moham_q said:

لكن هناك استفسار على اجابتك في حالة دمج اعداد كبيرة سوف اضطر للضغط على رسائل append التي تظهر وتخص دمج القيود كثيرا فهل نستطيع الغاءها واظهار فقط الرسالة النهائية ان تنفيذ الدمج قد تم و اظهار عدد السجلات التي تم دمجها

عذرا اخي الكريم لكن عن اي رسالة تتحدث ؟؟؟

المرفق يعطيك رسالة واحدة فقط عند الانتهاء من الدمج ومفادها انه تم دمج عدد معين من السجلات 

ارجو منك التوضيح اكثر

[moham_q]

الاخ محمد ايمن المحترم .. هذه صورة الرسالة التي تظهر قبل الرسالة التي تؤكد دمج السجلات ... خالص امتناني لك وتحياتي

you are about to append 1 row

هذا على افتراض انه تم دمج 1 سجل

تم تعديل نوفمبر 12, 2016 بواسطه moham_q

[محمد ايمن]

الصور لا تفتح ارجو منك اعادة رفعها

[moham_q]

سوف ارفعها مرة اخرى للصورة   .....  you are about to append 1 row

تظهر هذه العبارة اعلاه في رسالة التحذير قبل رسالة الدمج

اخ محمد اذا الحقل emp_cod اذا حولت نوع بياناته datatype  الى text هل يتغير شي ام لا  على الكود ؟؟؟

تم تعديل نوفمبر 12, 2016 بواسطه moham_q

[محمد ايمن]

اعتذر منك اخي الكريم فعلا يوجد خطا في الكود وقد ظهر عندما جربت المرفق على 2016

تفضل المرفق بعد التعديل

دمج سجلات جدولين1.rar

[moham_q]

اخ محمد العزيز بارك الله فيك و زادك الله من علمه .. فقط سؤال اخير اذا الحقل emp_cod اذا حولت نوع بياناته datatype  الى text هل يتغير شي ام لا  على الكود ؟؟؟

[محمد ايمن]

تحية طيبة اخي الكريم

اذا اردت تحويل الحقل الى نص يجب عليك تعديل الشرط من

U1 = DLookup("[emp_cod]", "table1", "[emp_cod]=" & rs.Fields(3))

الى 

U1 = DLookup("[emp_cod]", "table1", "[emp_cod]='" & rs.Fields(3) & "'")

 

[moham_q]

الاخ محمد ايمن المحترم .. سوف اجرب ما طرحته حضرتك و اوافيك بالنتيجة .. تحياتي لك

[moham_q]

الاخ محمد ايمن المحترم ... لقد جربت تحويل نوع الحقل الى نوع نص text وغيرت الكود و تم تنفيذها بشكل صحيح بارك الله فيك ... ولكن ارجو منك توضيح الكود الذي ادرجته اعلاه لكي نعرف ما الفرق اذا كان الحقل رقمي او نصي في الكود ... تحياتي لك لقد اتعبتك معي كثيرا وفقك الله و جزاك الله خيرا

[محمد ايمن]

اخي الكريم

الفرق في الكود هو اضافة علامة الاقتباس المفردة (')

تستخدم هذه العلامة عند التعامل مع البيانات النصية

في التعامل مع البيانات الرقيمة لا نحتاج الى هذه العلامة

اما اذا كانت البيانات ( تاريخ ) يجب اضافة علامة المربع #

 

[moham_q]

سلمت يداك على توضيح الفرق في الكود ... تحياتي لك استاذ محمد