فتح قاعدة اخرى من القاعدة الحالية

[eng aoff]

السلام عليكم استاذتي الكرام 

اريد الدخول من القاعدة رقم 1 الى القاعدة رقم 2 

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

database1.accdb database2.accdb

[صالح حمادي]

 السلام عليكم

لفتح قاعدة من قاعدة أخرى تستطيع استخدام هذا الكود:

   Application.FollowHyperlink Full_path_2database
 

[eng aoff]

شكرا استاذي العزيز ولكن لم يتم تشغيل الكود 

[صالح حمادي]

11 دقائق مضت, eng aoff said:

شكرا استاذي العزيز ولكن لم يتم تشغيل الكود

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

[sandanet]

بعد إذن أستاذي القدير صالح .. إليك التعديلات أخي @eng aoff

 

database1.accdb database2.accdb

تم تعديل نوفمبر 27, 2019 بواسطه sandanet

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

بالاضافة الى ما تفضل به استاذنا الفاضل @صالح حمادي واستاذنا الفاضل @sandanet

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

ضع هذا الكود في قاعدة بيانات رقم 1

Private Sub أمر11_Click()

    Dim XApplication As Access.Application
    Set XApplication = CreateObject("Access.Application")
    
    ' مسار قاعدة البيانات المراد فتحها
    XApplication.OpenCurrentDatabase (CurrentProject.Path & "\database2.accdb")
    XApplication.UserControl = True
    
    ' لفتح قاعدة البيانات على نموذج محدد
    XApplication.DoCmd.OpenForm "مراجعين"

End Sub

 

وهذا ما ذكره لك استاذنا الفاضل @صالح حمادي

    Application.FollowHyperlink CurrentProject.Path & "\database2.accdb"

تحياتي

[eng aoff]

شكراً لحضراتكم جميعا وجزاكم الله خيراً استاذتي الاعزاء

[m.r]

اخواني يصير قفل قاعدة البيانات الثانية بقفل تشفير البرنامج ويتم فتح القاعدة من الاولى من خلال الكود بشكل طبيعي / حتى من يتم فتح القاعدة الثانية بدون القاعدة الاولى حتى تضهر مقفوله.

[sandanet]

1 ساعه مضت, Amir - 4k said:

اخواني يصير قفل قاعدة البيانات الثانية بقفل تشفير البرنامج ويتم فتح القاعدة من الاولى من خلال الكود بشكل طبيعي / حتى من يتم فتح القاعدة الثانية بدون القاعدة الاولى حتى تضهر مقفوله.

اخي الكريم اقرأ الموضوع التالي 

https://www.officena.net/ib/topic/98020-طريقتي-في-حماية-قاعدة-البيانات-من-تفعيل-الشفت-وحماية-الاستعلامات-و-وحدات-المايكرو-وكلمة-السر-للقاعدة-الخلفية/