طلب تعديل على موديول اعادة الربط ااجداول تلقائيا

[ابو جودي]

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

اريد التعديل على الموديول فى القاعدة المرفقة حتى يقبل الربط اليا مع قاعدة الجدول الخلفية Btbl.accdb  المحمية بكلمة مرور 

 

ملاحظة كلمة مرور القاعدة الخلفية للجداول هى 0

 

Auto ReLink.zip

[ابو جودي]

ملاحظة الربط يتم اليا بدون اى مشاكل ان لم تكن قاعدة الجداول مأمنه بكلمة مرور

[kaser906]

اخ محمد 

58 دقائق مضت, ابا جودى said:

ملاحظة الربط يتم اليا بدون اى مشاكل ان لم تكن قاعدة الجداول مأمنه بكلمة مرور

اخ محمد 

انظر الرابط التالي سيفيدك وستتمكن من التعديل بنفسك إن شاء الله 

 

[ابو جودي]

4 دقائق مضت, kaser906 said:

اخ محمد 

اخ محمد 

انظر الرابط التالي سيفيدك وستتمكن من التعديل بنفسك إن شاء الله 

 

اخى الحبيب و استأذى الجليل أستاذ @kaser906 

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

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

[علاء محمد علي]

معي هذه الطريقة التي تشترط وجود الجداول في نفس مجلد الواجهات

ضع هذه الوظيفة في موديول ثم قم باستدعائها في النموذج الافتتاحي في حدث عند التحميل

Public Function connect()
Dim dada
Dim wrkJet0 As Workspace
Dim dbs0 As DAO.Database
adad = CurrentProject.Path & "\DATA.accdb"
Set wrkJet0 = DBEngine.Workspaces(0)
Set dbs0 = wrkJet0.OpenDatabase(adad, False, False, ";PWD=" & "PASSWORD")
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=" & adad
            tdf.RefreshLink
        End If
    Next
End Function

 

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

ولاحظ تن قاعدة البيانات عندي اسمها Data.accdb. وعليك كتابة اسم قاعدة البيانات الخاصة بك بدلا منها

اتمنى ان تكون الطريقة مفيدة لك

اخوك علاء

[أبو عبدالله الحلوانى]

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

عود أحمد أبا جودي 

قبل أي شئ عمل مميز كما هو معتاد منكم 

كل ما كنت تحتاجه هو اضافة معلومات الاتصال عند منادتك لفتح قاعدة البيانات

جرب هذا التعديل علي مرفقك لعله يوافق مرادك ووافنا بالنتائج

ولا تنسانا من دعوة بظهر الغيب

ملاحظة: الملف مضغوط بأحدث نسخة من برنامج الضغط rar فان لم يتم فك الضغط بالنسخة الموجودة لديك فاعلم أنها بحاجة لتحديث

Auto ReLink.rar

[ابو جودي]

1 دقيقه مضت, أبو عبدالله الحلوانى said:

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

عود أحمد أبا جودي 

قبل أي شئ عمل مميز كما هو معتاد منكم 

كل ما كنت تحتاجه هو اضافة معلومات الاتصال عند منادتك لفتح قاعدة البيانات

جرب هذا التعديل علي مرفقك لعله يوافق مرادك ووافنا بالنتائج

ولا تنسانا من دعوة بظهر الغيب

ملاحظة: الملف مضغوط بأحدث نسخة من برنامج الضغط rar فان لم يتم فك الضغط بالنسخة الموجودة لديك فاعلم أنها بحاجة لتحديث

Auto ReLink.rar 651.77 kB · 0 downloads

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

اخى الحبيب و استاذى الجليل ومعلمى القدير الاستاذ @أبو عبدالله الحلوانى 

خطأ فى هذا السطر

    Set chkDb = OpenDatabase(Application.CurrentProject.Path & "\Btbl.accdb")

رسالة الخطأ

run-time error '3031':
not a valid passowrd.

[أبو عبدالله الحلوانى]

فقط أضف معلومات الاتصال بهذا الشكل

Set chkDb = OpenDatabase(Application.CurrentProject.Path & "\Btbl.accdb",,,"MS Access;PWD=0")

 

[ابو جودي]

تم حل المشكلة بفضل الله تعالى 

اخى الحبيب و استاذى الجليل ومعلمى القدير الاستاذ @أبو عبدالله الحلوانى 

كان الخطأ فى هذا السطر

    Set chkDb = OpenDatabase(Application.CurrentProject.Path & "\Btbl.accdb")

وتم التعديل على الكود كالاتى ونجحت العملية بفضل الله تعالى 

 

Set chkDb = OpenDatabase(Application.CurrentProject.Path & "\Btbl.accdb", False, False, ";PWD=0")

 

[أبو عبدالله الحلوانى]

يبدو أننا كنا نكتب الرد في وقت واحد 😀

[ابو جودي]

5 دقائق مضت, أبو عبدالله الحلوانى said:

فقط أضف معلومات الاتصال بهذا الشكل

Set chkDb = OpenDatabase(Application.CurrentProject.Path & "\Btbl.accdb",,,"MS Access;PWD=0")

 

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

2 دقائق مضت, أبو عبدالله الحلوانى said:

يبدو أننا كنا نكتب الرد في وقت واحد 😀

نعم القلوب عند بعضها 

احبكم فى الله

تم تعديل نوفمبر 20, 2020 بواسطه ابا جودى

[ابو جودي]

وحتى تعم الفائدة 

المرفق النهائى بعد التعديلات الصحيحة  

 

Autolink Table.zip

[علاء محمد علي]

23 ساعات مضت, علاء محمد علي said:

معي هذه الطريقة التي تشترط وجود الجداول في نفس مجلد الواجهات

ضع هذه الوظيفة في موديول ثم قم باستدعائها في النموذج الافتتاحي في حدث عند التحميل

Public Function connect()
Dim dada
Dim wrkJet0 As Workspace
Dim dbs0 As DAO.Database
adad = CurrentProject.Path & "\DATA.accdb"
Set wrkJet0 = DBEngine.Workspaces(0)
Set dbs0 = wrkJet0.OpenDatabase(adad, False, False, ";PWD=" & "PASSWORD")
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=" & adad
            tdf.RefreshLink
        End If
    Next
End Function

 

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

ولاحظ تن قاعدة البيانات عندي اسمها Data.accdb. وعليك كتابة اسم قاعدة البيانات الخاصة بك بدلا منها

اتمنى ان تكون الطريقة مفيدة لك

اخوك علاء

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

لكن لا أعلم لماذا  تم تجاهل مشاركتي 😔😔

[أبو عبدالله الحلوانى]

6 ساعات مضت, علاء محمد علي said:

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

لكن لا أعلم لماذا  تم تجاهل مشاركتي 😔😔

كان لأستاذنا @jjafferr كلمة مميزة لطالما أثرت بي حيث يقول:

في اعتقادي ، مشاركة أكثر من شخص في الرد على السؤال ، يفتق الاذهان ويدمج التجارب ويبلور الافكار وفائدة للجميع ، فمنه نتعلم الطرق الاخرى للإجابة على السؤال.

أخي أرجو أن يكون أجر ما كتبت في موازين حسناتك ولا تنسي أن ما عند الله أعظم أجرا فلا تبتئس.

فلعل صاحب الموضوع كان منشغلا بالبحث عن الحل بأماكن أخري وكذلك أنا كنت منشغلا بامور أخري بالاضافة لوضع حل للموضوع ، فلم نلحظ حلك للموضوع عن غير قصد ولابد والا فقد وفرت علينا عناء البحث والرد والكتابة 

شكرا لك مجددا ونأسف لجعلك تحزن ولو قليلا - ابتسم فان الحياة قصيرة 

[ابو جودي]

7 ساعات مضت, علاء محمد علي said:

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

لكن لا أعلم لماذا  تم تجاهل مشاركتي 😔😔

كل الشكــــــــر والتقدير والعرفان بالجميل لحضرتك اخى الحبيب واستاذى الفضيل استاذ @علاء محمد علي 

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

اكرر اعتذاري لحضرتك مرة أخرى 

[علاء محمد علي]

تحياتي لكم جميعا

واعتذاركم على راسي واتمنى ان ارد ولو جزء قليل من افضالكم علينا فإنا وجدت في هذا المنتدى كل ما احتاجه ولازلت.

لذا أسعى من أجل ان ارد ولو جزء من الجنيل لاعضاء المنتدى.

وفقكم الله جميعا لما يحبه ويرضاه

اخوكم علاء