اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


ابو جودي
إذهب إلى أفضل إجابة Solved by أبو عبدالله الحلوانى,

الردود الموصى بها

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

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

 

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

 

Auto ReLink.zip

رابط هذا التعليق
شارك

اخ محمد 

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

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

اخ محمد 

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

 

  • Like 1
رابط هذا التعليق
شارك

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

اخ محمد 

اخ محمد 

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

 

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

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

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

رابط هذا التعليق
شارك

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

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

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. وعليك كتابة اسم قاعدة البيانات الخاصة بك بدلا منها

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

اخوك علاء

  • Like 1
رابط هذا التعليق
شارك

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

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

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

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

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

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

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

Auto ReLink.rar

  • Thanks 1
رابط هذا التعليق
شارك

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

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

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

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

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

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

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

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

Auto ReLink.rar 651.77 kB · 0 downloads

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

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

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

    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")

 

  • Haha 1
رابط هذا التعليق
شارك

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

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

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

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

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

 

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

 

  • Like 1
  • Sad 1
رابط هذا التعليق
شارك

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

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



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

 

جزااااااااااااااااااااااااااااااااااكم الله خيــــــــــــــــــــــــــــــــــــــــــــــرا  :fff::signthankspin::jump:

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

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

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

احبكم فى الله

تم تعديل بواسطه ابا جودى
  • Thanks 1
رابط هذا التعليق
شارك

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. وعليك كتابة اسم قاعدة البيانات الخاصة بك بدلا منها

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

اخوك علاء

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

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

  • Like 1
رابط هذا التعليق
شارك

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

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

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

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

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

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

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

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

  • Like 1
رابط هذا التعليق
شارك

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

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

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

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

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

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

  • Like 1
رابط هذا التعليق
شارك

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

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

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

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

اخوكم علاء

 

  • Thanks 1
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information