كود يقوم بتشغيل قاعدة بيانات ثانية

[النهر العطشان]

السلام عليكم 

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

الغاية من الكود هو اخفاء قاعدة البيانات الثانية وبهذا لايمكن استنساخها من قبل شخص اخر لانها تعمل من خلال القاعدة الاولى وشكرا .

 

[Hamdi Edlbi-khalf]

dim accessApp
set accessApp = createObject("Access.Application")
accessApp.visible = true
accessApp.OpenCurrentDataBase("D:\path.accdb")
accessApp.Run "myDATABASE"

 

[ابوآمنة]

Private Sub Form_Open(Cancel As Integer)
Dim App As Access.Application, strPath As String

Set App = New Access.Application
strPath = Application.CurrentProject.Path & "\sys.accdb"
With App
    .DoCmd.RunCommand acCmdAppMinimize
    .OpenCurrentDatabase strPath, , "123"
    .DoCmd.OpenForm "Home", , , , , acWindowNormal
'    .DoCmd.Maximize
'    .Visible = True
End With

Set App = Nothing
DoCmd.Quit


End Sub

هذا الكود يوضع في قاعدة البيانات الأولى في حدث عند الفتح 

هذه كانت مشاركة سابقة لأحد أعضاء المنتدى

ممكن وضح باسورد على القاعدة الثانية 

key.accdb

تم تعديل سبتمبر 14, 2018 بواسطه saleh204

[النهر العطشان]

السلام عليكم 

شكر الى الاساتذة الكرام السيد Khalf والسيد saleh204 على ردهم على سؤالي جعلها الله في ميزان حسناتهم .

لقد تم تجربة الكود الاول للسيد Khalf بنجاح .

اما الكود الثاني للسيد saleh204 فلم يعمل لدي هل لي معرفة اين الخطأ مشكورا 

[ابوآمنة]

27 دقائق مضت, النهر العطشان said:

السلام عليكم 

شكر الى الاساتذة الكرام السيد Khalf والسيد saleh204 على ردهم على سؤالي جعلها الله في ميزان حسناتهم .

لقد تم تجربة الكود الاول للسيد Khalf بنجاح .

اما الكود الثاني للسيد saleh204 فلم يعمل لدي هل لي معرفة اين الخطأ مشكورا 

الملف مع المثال كامل

ملف المفتاح (2017_12_19 03_25_31 UTC).rar

[النهر العطشان]

السلام عليكم 

شكر الى الاستاذ  saleh204 .

لقد تم تجربة الكود بنجاح .

 

[Hamdi Edlbi-khalf]

منذ ساعه, النهر العطشان said:

لقد تم تجربة الكود الاول للسيد Khalf بنجاح

الحمد لله ..

بالتوفيق