ربط قاعدة النماذج باكثر من قاعدة بيانات

[f16]

اسعد الله مسائكم اخواني الكرام في هذا المنتدى المتألق .

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

ودمتم بألف خير 

[محمد أبوعبدالله]

تفضل اخي الكريم

Dim strDbFile As String
Dim strPassword As String
Dim strConnect As String
'    تحديد اسم قاعدة البيانات
    strDbFile = CurrentProject.Path & Me.Compox.values
'    كلمة مرور قاعدة البيانات
    strPassword = "123456789"
    strConnect = "MS Access;PWD=" & strPassword & ";DATABASE=" & strDbFile

    Dim tdf As dao.TableDef
    Set db = CurrentDb

    For Each tdf In db.TableDefs
        ' ignore system and temp tables
        If Not (tdf.Name Like "MSys*" Or tdf.Name Like "~*" Or tdf.Name Like "exl*") Then
            tdf.Connect = strConnect
            tdf.RefreshLink
        End If
    Next

تحياتي

[محمد أبوعبدالله]

وهذا مثال لاحد الاخوة بالمنتدى سيفيدك باذن الله

Auto ReLink.rar

تحياتي

[Barna]

1 ساعه مضت, f16 said:

اسعد الله مسائكم اخواني الكرام في هذا المنتدى المتألق .

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

ودمتم بألف خير 

فكرة ::::::::: بالاضافة لما ذكر اخي واستاذي الفاضل @محمد أبوعبدالله

صمم جدول فيه اسماء قواعد بيانات السنوات

انشأ نموذج به كمبوبكس به اسماء قواعد البيانات للسنوات الماضية

انشأ زر للربط عند اختيار اسم القاعدة المطلوبة ليتم ربطها بالقاعدة الحالية ........ انظر ......

 

[الحلبي]

استاذى ومعلمى / @محمد أبوعبدالله

جزاك الله خير 

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

يوجد عندى برنامج لفك كلمة المرور على الجدول ولكن الان يقول لى ان هذا البرنامج غير معروف له 

انا كان ممكن اسأل عن كلمة المرور وخلاص ولكن اريد ان اتعلم

بارك الله فيك

[محمد أبوعبدالله]

مرحبا اخي @الحلبي

افتح برنامج اكسيس فارع ثم تابع كما بالصور

 

 

 

تحياتي

[الحلبي]

استاذى / @محمد أبوعبدالله

كيف اعرف كلمة سر الجدول الموجود فى المثال المرفق

انا اعرف اعمل كلمة سر للجدول

[محمد أبوعبدالله]

كلمة السر = 0

تحياتي

 

[الحلبي]

استاذى ومعلمى / @محمد أبوعبدالله

جزاك الله كل خير الان عرفت

بارك الله فيك وفى علمك

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

[f16]

شكراً اخي محمد أبوعبدالله على ردك الكريم والشكر موصول الى اخي الحلبي . 

سأقوم بتجربة الكود ومن ثم اطلعكم على النتائج