استيراد جدول من قاعدة بيانات خارجية

طيب

لماذا تحذف الجدول الموجود يعني

لماذا لا تجعل الكود يقوم بإلحاق البيانات من القاعدة التي تحددها .

أرفق مثال على ذلك وأبشر بالحل بإذن الله تعالى.

على أقل تقدير إنشاء ماكروTransferDatabase

وكيفية كتابة المسار الصحيح في هذا الماكرو ويكون على فرض أن القاعدة للبيانات على القرص دي d وإذا لم يعثر على القاعدة تظهر لي رسالة تخبرني بذلك بدون ما تطلع لي الخطا في الماكرو وبعدها توقف للماكرو

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

السؤال هو

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

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

المهم يقوم بعملية الإستيراد ولا يتوقف

آسف جدا لم يتم الرفع المرفق لا أدري هل لكبر حجمة أم لضعف الإتصال عندي

لكن سوف أرفق لكم الكود للتعديل وأكون لكم من الشاكرين

DoCmd.SetWarnings False
DoCmd.TransferDatabase acImport, "Microsoft Access", "D:\gdawl.mdb", acTable, "awgav", "awgav", False
MsgBox "Êã ÇÓÊíÑÇÏ ÇáÈíÇäÇÊ ÈäÌÇÍ", vbOKOnly
DoCmd.SetWarnings True
	DoCmd.DeleteObject acTable, "awgav"
	DoCmd.Rename "awgav", acTable, "awgav1"
MsgBox "Êã ÇáÍÐÝ æÇÚÇÏÉ ÇáÊÓãíÉ ÇáÈíÇäÇÊ ÈäÌÇÍ", vbOKOnly

DoCmd.SetWarnings False

DoCmd.TransferDatabase acImport, "Microsoft Access", "D:\gdawl.mdb", acTable, "awgav", "awgav", False

MsgBox "Êã ÇÓÊíÑÇÏ ÇáÈíÇäÇÊ ÈäÌÇÍ", vbOKOnly

DoCmd.SetWarnings True

DoCmd.DeleteObject acTable, "awgav"

DoCmd.Rename "awgav", acTable, "awgav1"

MsgBox "Êã ÇáÍÐÝ æÇÚÇÏÉ ÇáÊÓãíÉ ÇáÈíÇäÇÊ ÈäÌÇÍ", vbOKOnly

DoCmd.SetWarnings False
DoCmd.TransferDatabase acImport, "Microsoft Access", "D:\gdawl.mdb", acTable, "awgav", "awgav", False
MsgBox "fffffffffffffffffff", vbOKOnly
DoCmd.SetWarnings True
	DoCmd.DeleteObject acTable, "awgav"
	DoCmd.Rename "awgav", acTable, "awgav1"
MsgBox "fffffffffffffffffffff", vbOKOnly

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

هذا هو المرفق للتعديل

aa.rar

أخي العزيز مصلح الحريصي

لا أدري كيف أشكرك ,, على اهتمامك ,, بل تكفلك بالمساعدة لي ولغيري إذا طرأت مشكلة ,,, اللهم يارب كثر من أمثاله , وزده علما على علم

أولا البرنامج الذي كان متميزا وفعالا جدا من مبدعتنا واستاذتنا زهرة قد استفدت منه كثير بل اعتمدت على المديول الوحدة النمطية ونموذج الاستيراد و,,,,,,,لكن ظهرت لي مشكلة وهي,,

المشكلة التي ظهرت لي ,,, وهي في الحقيقة ليست مشكلة بس تطوير للكود ليكون فعالا أكثر وفيه نوع من المرونة

أريده إذا حددت له القاعدة ولم يجد الجدول المحدد اللي في الكود تطلع لي رسالة تنبهني على أن هناك جدول لم يعثر عليه " وحبذا إن أمكن ذلك أن يذكر اسم الجدول لكي أعرف المشكلة بالضبط " هذا إن أمكن وإن كنت أعتقد أنه لا مستحيل في عالم البرمجة

ثانيا / وإذا أراد أن يحذف الجدول الموجدود بالقاعدة الحالية ولم يجد الجدول تطلع لي رسالة تخيرني في الاستمرار في عملية الاستيراد أم التوقف

بدل ما تطلع لي رسائل الخطأ في الكود

وأكون لك ولغيرك من الشاكرين

جاري الإنتظار!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

ياليت من إخواني المشرفين يطلون ولو إطلالة على مشاركتي

ويمكن أن سؤالي صعب ,,,,,, لكن يوجد في هذا المنتدى مبرمجين أقوياء يتحدون الصعاب مهام كانت

هذا الكلام ليس استعطاف بل حقيقة

ما زال الأمل في كبير

معقولة حتى المشرفة ما تبغى ترد

الله المستعان

يا ابو ياسر

الموضوع ليس بالسهولة التي تتخيلها فعليك بالصبر فموضوعك لا زال حديث والأمر يحتاج إلى البحث وتفكير وإيجاد الحل المناسب لا تستعجل الله يهدينا وياك.

المشكلة تكمن في كيف تفحص القاعدة التي تريد الإستيراد منها لمعرفة أن الجداول موجودة .

أنا فكرة في طريقة تتمثل في الإتصال بالجداول عن طريقة الكائن ADO للتأكد من وجود تلك الجداول كذلك التأكد من أنها تحتوي على بيانات حتى ما يتم حذف جداولك واستيراد جداول فارغة أيضاً ولكن الموضوع يحتاج لوقت حتى تتبلور الفكرة بالشكل الصحيح .

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

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

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