الأخوة أبو هاجر و محمد طاهر
قمت بتحميل الملف الجديد وسأحاول تجربته :)
كانت هناك تساؤلات بالنسبة للملف الأول سأرجها حتى تجربة الملف الجديد
تحياتى (gift)
*كود* يقوم بنفس عمل إستعلام الإلحاق (append) من عدة قواعد فى مجلد
مغلق
الأخ العزيز أبو هاجر
قمت بتحميل الملف ووضعته فى نفس المجلد
وقمت باختيار قاعدتى بيانات متماثلتين فظهر هذا رسالة الخطأ object required فى الكود التالى
Dim MAAR As String Set AbA = CurrentDb For Each tbl In AbA.TableDefs If tbl.Name Like "MSys*" Then Else DoCmd.DeleteObject acTable, tbl.Name End If Next tbl Set AbA = ctl.ItemData(0)'<-----------هنا For Each tbl In AbA.TableDefs If tbl.Name Like "MSys*" Then Else
واخترت واحدة فقط فظهر نفس الخطأ
فبرجاء التوضيح
الأخ سهم
السلام عليكم
جرب استخدام الملف الأول الذي أرفقته بالطريقة التي وضحتها
اقتباسضع الملف المرفق مع قواعد البيانات التي تريد تجميع البيانات فيها في مجلد واحداستورد جميع الجداول إلى الملف المرفق واحذف أي جداول أخري موجودة في الملف
بالطبع يجب أن تكون الجداول في جميع الملفات وفي الملف المرفق متماثلة تماماً
بعد ذلك افتح المثال وسوف يعرض عليك قائمة بأسماء جميع قواعد البيانات الموجودة المجلد
حدد قواعد البيانات التي تريد الاستيراد منها بالنقر عليها لتحديد أكثر من قاعدة بيانات استخدم مفتاحي SHIFT لتحديد مجموعة متوالية أو CTRL لتحديد مجموعة متفرقة من قواعد البيانات المعروضة في القائمة
انقر زر استيراد البيانات وسوف يتم تجميع البيانات في الجداول الموجودة في الملف المرفق
أخيراً لا تغير اسم الملف المرفق
أخي الكريم/ أبو هاجر
أنزلت المثالين ووضعتهما في نفس المجلد وأظهار المشكلتين في الأتي :
المثال الأول توقف عند السطر التالي :
For Each varItm In ctl.ItemsSelected
المثال الثاني توقف عند السطر التالي :
Set AbA = ctl.ItemData(0)
فما هو السبب مع العلم أني أستخدم أكسيس أكس بي ونظام ويندوز 98 ؟
الإخوة الكرام
السلام عليكم
أعتذر عن الخطأ ومرفق المثال بعد التعديل آمل التجربة والإفادة
تحياتي
الاخ العزيز ابوهاجر
السلام عليكم
اشكرك جدا على ماتقوم به من مجهود وياليت توضح الطريقة لنسخ البيانات بشكل خطوات مرتبه لنتمكن من الاستفادة منها ولو ثقلنا عليك ياابو هاجر مع وضع المف بعد التعديل النهائي .(gift)
الأخ الكريم أبو شاهر
السلام عليكم
لو قرأت المشاركة كاملة لرأيت أنني سبق وأن شرحت طريقة استخدام المثال وإليك الخطوات مرة أخرى
ضع الملف المرفق مع قواعد البيانات التي تريد تجميع البيانات فيها في مجلد واحد
بالطبع يجب أن تكون الجداول في جميع الملفات متماثلة تماماً
بعد ذلك افتح المثال وسوف يعرض عليك قائمة بأسماء جميع قواعد البيانات الموجودة المجلد
حدد قواعد البيانات التي تريد الاستيراد منها بالنقر عليها لتحديد أكثر من قاعدة بيانات استخدم مفتاحي SHIFT لتحديد مجموعة متوالية أو CTRL لتحديد مجموعة متفرقة من قواعد البيانات المعروضة في القائمة
انقر زر استيراد البيانات وسوف يتم تجميع البيانات في الجداول الموجودة في الملف المرفق
أخيراً لا تغير اسم الملف المرفق
أما بالنسبة للملف فهو مرفق في آخر رد لي بعد التعديل
تحياتي
أخوك / أبو هاجر
والله اني تاعبك معي يا ابو هاجر
انا عندي القاعدة الاصليه الي فيها البيانات مثلا اسمها A وقمت باستيراد الجدوال الى قاعدة اخرى اسمها B وقمت بالتعديل فيها والان جداول القاعدة Bخاليه من البيانات والان اريد استورد البيانات التي في القاعدة A وذلك الى القاعدة B علما بان الجداول لها نفس المسميات .
فهل اضع القاعدتين كلها في نفس المجلد المستورد منها والمستورد اليها ولا كيف .
واشكرك يا او هاجر (f)
أخي الكريم
السلام عليكم
المثال الذي وضعته هو لتجميع البيانات وليس لاستيرادها أي إذا كان عندك أكثر من قاعدة بيانات فيها نفس الجداول وتريد تجميعها بقاعدة بيانات واحدة فتستعمل البرنامج الذي وضعته بالطريقة التي شرحتها
أما إذا كان ما تريده مختلفاً عن ذلك فالبرنامج لا يفيدك
وما فهمته منك أنك لا تريد التجميع بل تريد مجرد الاستيراد وهذا موضوع سهل سبق طرحه في عدد من المشاركات في المنتدى
تحياتي
أخوك / أبو هاجر
الاخ ابوهاجر
السلام عليكم
نعم اخي العزيز انا اريد استيراد البيانات فقط للقاعدة الجديدة فارجو توضيح لي ذلك اوتزويدي بالرابط(f)
أخي الكريم
السلام عليكم
ولماذا الاستيراد احذف الجداول من القاعدة B ثم استوردها من جديد من القاعدة A عن طريق ملف >> إحضار بيانات خارجية >> استيراد بيانات
تحياتي
أخوك / أبو هاجر
اخي العزيز ابوهاجر
السلام عليكم
نعم انت ماتقوله صحيح ولكن تركيبة الجدوال في القاعدة b تختلف عن تركيبة الجدوال في القاعدة a .
أخي الكريم
السلام عليكم
إذا كانت التركيبة مختلفة فلا بد من أن تكتب أنت استعلام إلحاق لكل جدول على حدة بحيث تحدد كل حقل في الجدول المصدر والحقل الذي سيتم الإلحاق إليه في الجدول الوجهة
مع الانتباه إلى أن تكون البيانات من نوع واحد
تحياتي
أخوك / أبو هاجر
شكرا لك ياباهاجر(f)
السلام عليكم ورحمة الله وبركاته
لدي سؤال حول استعلام الإلحاق بحثت عن إجابة قبل طرحة فلم أجد
كيف يمكنني منع استعلام الإلحاق من إضافة بيانات سبق إضافتها إلى جدول ما ، بمعنى أن تكون بيانات احد الحقول في الجدول بدون تكرار
لقد عدلت في خصائص حقل رقم الموظف وجعلته بدون تكرار وبعد استخدام استعلام الإلحاق تظهر لي رسالة خطأ فما أدري كيف أتغلب على مشكلة تكرار
البيانات في الجدول الملحقة به
شاكرا لكم حسن تعاونكم - وبارك الله فيكم - وجزاكم عنا خيراً
أخي الكريم
السلام عليكم
الطريقة هي ما ذكرت أي أن يكون الحقل الذي لا تريد تكراره فهرساً فريداً
بالنسبة للرسالة فعلى ما أظن هي رسالة الإلحاق وهذه يمكن ايقافها باستخدام الأمر
docmd.setwarninge false
قبل تنفيذ الاستعلام
تحياتي
أخوك / أبو هاجر
هذا الموضوع مغلق.