Jump to content
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


Go to solution Solved by أبو عبدالله الحلوانى,

Recommended Posts

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

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

 

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

 

Auto ReLink.zip

Link to post
Share on other sites

اخ محمد 

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

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

اخ محمد 

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

 

  • Like 1
Link to post
Share on other sites
4 دقائق مضت, kaser906 said:

اخ محمد 

اخ محمد 

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

 

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

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

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

Link to post
Share on other sites

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

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

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
Link to post
Share on other sites

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

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

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

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

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

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

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

Auto ReLink.rar

  • Thanks 1
Link to post
Share on other sites
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.

Link to post
Share on other sites
  • Solution

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

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

 

  • Haha 1
Link to post
Share on other sites

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

اخى الحبيب و استاذى الجليل ومعلمى القدير الاستاذ @أبو عبدالله الحلوانى :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
Link to post
Share on other sites
5 دقائق مضت, أبو عبدالله الحلوانى said:

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



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

 

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

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

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

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

احبكم فى الله

Edited by ابا جودى
  • Thanks 1
Link to post
Share on other sites
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
Link to post
Share on other sites
6 ساعات مضت, علاء محمد علي said:

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

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

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

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

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

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

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

  • Like 1
Link to post
Share on other sites
7 ساعات مضت, علاء محمد علي said:

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

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

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

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

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

  • Like 1
Link to post
Share on other sites

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

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

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

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

اخوكم علاء

 

  • Thanks 1
Link to post
Share on other sites

Join the conversation

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

Guest
Reply to this topic...

×   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.

  • Recently Browsing   0 members

    No registered users viewing this page.

×
×
  • Create New...