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

[أم خلود]

السلام عليكم ارغب بوضح زر في النموذج يقوم بالتالي 
يقوم بالبحث بالقرص دي d عن قاعدة بينات باسم "ام خلود" على سبيل المثال 
في حال وجدها تفتح القاعدة

وفي حال عدم وجودها يقوم بعمل نسخه لها من المسار (c/2017)
(ا البرنامج فهو موجود لدي بمسار اخر على الشبكة )

 

 

[صالح حمادي]

السلام عليكم

يمكنك إستعمال هذا الكود

curPath = "d:\أم خلود.accdb"
If Dir(curPath) = "" Then
FileCopy "c:\2017\أم خلود.accdb", curPath
Else
Application.FollowHyperlink curPath
End If

 

[أم خلود]

بارك الله فيك شكرا جزيلا