الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

من هنا..كود إعادة ربط الجداول بملف الواجهات تلقائياً

بدأه عبيدالله في 4 أكتوبر 2010 · 16 رد · 4,487 مشاهدة · في قواعد بيانات Microsoft Access
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

بسم الله الرحمن الرحيم

اخواني وأعزائي مشرفي وأعضاء ومتصفحي هذا المنتدى العظيم

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

بعد الشكر لكل من ساهم في نجاح واثراء هذا المنتد.. يسرني أن اتشرف بالمشاركة بهذا الموضوع:

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

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

إلا أني وجدت هذا المثال الأجنبي الذي أدى الغرض على الوجه المطلوب، ولا أتذكر من أي منتدى حصلت عليها!!

أرجو أن يفيدكم

اعادة ربط البيانات برمجيا.rar

تم تعديل هذه المشاركة بواسطة عبيدالله في 5 أكتوبر 2010 في 22:02

5
#2

جزاك الله خير ،،،،

سبحان الله و بحمده ، سبحان الله العظيم

#3

جزاك الله خيرا

هل تسدي لنا خدمة بتحويل الملف لصيغة اوفس 2003 ومن ثم رفعه للمنتدى بارك الله فيك

اقتباس
[وسط]اللهم ارحمنا إذا اشتدت السكرات، وفاضت العبرات، وتعطلت القوى و القدرات.

اللهم ارحمنا إذا يئس منا الطبيب ،وبكى علينا الحبيب ، واشتد البكاء و النحيب.

اللهم ارحمنا إذا حملنا على الأعناق ، و التفت الساق بالساق، إلى ربك يومئذ المساق.

اللهم ارحمنا إذا وارينا التراب، وغلقت الأبواب، وانفض الأهل و الأحباب

[/وسط]

545050692.gif

#4

على الرحب والسعة أخي (hema212006)

وآسف على الخطأ في المرفق الأول

وإليكم المرفق المعدل

رجاء قبول اعتذاري الشديد

مجلد النظام.rar

2
#5

جزاك الله خيرا اخى الكريم

و لكن ما رأيك ان نبسط الامور أكثر من ذلك بكود بسيط

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

او وضعه فى كود الزر

Dim db As DAO.Database
    Dim tdf As DAO.TableDef

    Set db = CurrentDb()
    For Each tdf In db.TableDefs
        If (tdf.Attributes And dbAttachedTable) = dbAttachedTable Then
        On Error Resume Next
            tdf.Connect = ";DATABASE=" & CurrentProject.path & "\data\data1.mdb"
            tdf.RefreshLink
            tdf.Connect = ";DATABASE=" & CurrentProject.path & "\data\data2.mdb"
            tdf.RefreshLink
        End If
    Next
4

مدونتى:-

احترف الأكسس مع أبو يوسف

متغيب حاليا لانشغالى الشديد

#6

ـــ

صدق المثل

اقتباس
ضربة من معلم ولا عشر من متعلم

كود ممتاز اخي mrnooo2000 لربط كافة الجداول جملة واحدة

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

ومع هذا فهي لا زالت (عشر ضربات من متعلم) إلا أن يكون لك استاذنا ضربة واحدة أخرى تؤدي نفس الغرض فتفيدنا بها بارك الله فيك

/

#7

اشكرك اخى

كلنا نتعلم معا

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

لا يوجد مشكلة فى ذلك

مدونتى:-

احترف الأكسس مع أبو يوسف

متغيب حاليا لانشغالى الشديد

#8

بارك الله فيـــــ وجزاك الله عنا كل خيرــــــك

#9

بارك الله فيكم

من سار على الدرب وصل

#10

الشكر موصول لاستاذنا mrnooo2000

وكل من مر على هذا الموضوع واستفاد منه

برجاء الدعاء للجميع

#11

ما شاء الله على هذه الابداع منكما اخوني

بجد ...عمل رائع وكل يوم نتعمل منكم الجديد

وَمِنَ النَّاسِ مَن يُعْجِبُكَ قَوْلُهُ فِي الْحَيَاةِ الدُّنْيَا وَيُشْهِدُ الله عَلَى مَا فِي قَلْبِهِ وَهُوَ أَلَدُّ الْخِصَامِ

مواضيعي ومشاركاتي

#12

السلام عليكم يا سادة يا كرام

 

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

 

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

#13

كم انت كبير يا عبيد الله

 

 

جزاك الله عني كل خير و زاد في علمك و أجرك

 

و الله تعبت من البحث عن هذا الموضوع وتم الامر بفل الله ثم فضلك 

 

لك كل التقدير والاحترام

#14

لكن هذا الامر لا ينجح اذا كانت الواجهات على جهاز ما على الشبكة

 

و الجداوال في السيرفر مثلا 

 

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

وكما نعلم انه عند تنصيب البرنامج يقوم أكسس بوضع الواجهات في مجلد APPDATA وهو مجلد مخفي داخل محرك الاقراص C

ويضع له اختصار على سطح المكتب

اما الجداول قد نضعها على E: مثلاً لتجنب ضياع الداتا في حال الفورمات أو ما شابه

 

هل كلامي صحيح؟؟؟

تم تعديل هذه المشاركة بواسطة Eng.Samer jaafar في 3 مارس 2013 في 18:22

#15

أولا : الكبير هو الله

 

بالنسبة لطلبك

 

انا استخدم هذا النموذج احد البرامج الخاصة بي

 

قد يكون غير مناسب لبرنامجك.. حاول تستفيد منه أو تعديل الكود بما يناسب برنامجك

 

اعدادات ربط قاعدة البيانات.rar

تم تعديل هذه المشاركة بواسطة عبيدالله في 4 مارس 2013 في 17:14

1
#16

أولاً : الله أكبر، وكم انت كبير يا عبيد الله ( كم : حاشاه تعالى من تحديده في الكم والكيف والأين) 

 

ثانياً : لك الشكر والتقدير.

تم الامر 

#17

وضع هذا الموضوع منذ ثلاث سنوات وها أنا استخدمه الآن لاتعلم منكم... جزاكم الله خير الجزاء

مواضيع مشابهة