طلب كود لتحديد مكان قاعدة البيانات في حالة عدم العثور عليها بمكانها الإفتراضي ؟!

اخي الكريم

هذا الكود ع السريع ولكنني لم اجربه

 Dim mypath As String
 Dim Newpath As String

 mypath = "c:\dd\DataBase.mdb"

 If Dir(mypath) = "" Then
   MsgBox " قاعدة البيانات غير موجودة"
   Newpath = InputBox("ادخل مسار قاعدة البيانات من فضلك ", , "C:\database.mdb")
   mypath = Newpath
 End If

تحياتي

يعطيك الله العافية أخوي ( العماني )

جاري تجربة الكود....

ولي عودة