ربط فولدر معين بقاعدة بيانات مقسمة جداول ونماذج

[figo82eg]

ارجو من الأخوة مساعدتى فيما يلى :

1 - لدى شبكة أجهزة داخلية لعدد 11 جهاز بينهم ملف شير

2- يوجد لدى برنامج أكسس موجود داخل هذا الملف حتى تستطيع جميع الأجهزة العمل عليه .

3- برنامج الاكسس مقسم الى واجهات أمامية وخلفية ( الواجهة الخلفية الجداول ) يوجد معها ملف داخله ملفات بصيغة pdf مرتبطة بالبرنامج .

4- الواجهات الأمامية ( النماذج يتم توزيعها على جميع الأجهزة ويتم ربطها بالجداول الموجودة بملف الشير حيث يتم العمل عليها فى نفس الوقت تقريباً ).

5- يوجد زر بالنماذج يفتح ملفات pdf المرتبطة وعند الضغط على زر فتح المستند  لا يتم فتح ملف pdf من أى جهاز على الشبكة ولكن يتم فتح الملف من الجهاز الرئيسي فقط الموجود به ملف الشير.

ما اريده هو طريقة عمل امتداد للملف بالكود يفتح من أى جهاز على الشبكة حيث أن الملف CONTACT موجود مع برنامج الاكسس فى ملف الشير ولا يمكن نقله على كل الأجهزة بالشبكة مع النماذج والتقارير التى قسمتها على الأجهزة الأخرى.

استخدمت هذا الكود  على جهازى

File_Path = "C:\Users\SMSM\Desktop\حسابات\CONTACT\"

ولكن لا اعرف كيف استخلص مسار ملف البرنامج على ملف الشير فى الجهاز الرئيسى واضعه بالكود ليفتح على جميع الاجهزة

مرفق مثال للمساعدة

حسابات.rar

تم تعديل فبراير 21, 2023 بواسطه figo82eg

[ahmed79e]

مهتم

[Moosak]

حياك الله أخي @figo82eg 🙂 

الحل هو في دالة تحضر لك رابط قاعدة البيانات سواء كانت مقسمة أو غير مقسمة  ..

وهذه هي الدالة :

Public Function BECurrentPath()

    On Error GoTo ErrHandler

    Dim FullLinkedPath As String
    Dim LinkedDBPath As String

    FullLinkedPath = Nz(DLookup("Database", "MSysObjects", "Type=6"), "")

   If FullLinkedPath <> "" Then
    LinkedDBPath = Left(FullLinkedPath, InStrRev(FullLinkedPath, "\") - 1)
    BECurrentPath = LinkedDBPath & "\"
    
    Else
    
    BECurrentPath = CurrentProject.Path & "\"
    
    End If

ErrHandler:
    If Err.Number = 0 Then Exit Function Else
    MsgBox "Error Number : " & Err.Number & " :::: " & Err.Description
End Function

وسيتغير الكود الذي استخدمته أنت للوصول إلى الملف هكذا :

File_Path = BECurrentPath & "CONTACT\"

 

حسابات.rar

[figo82eg]

بارك الله فيك اخى الكريم ونفع الله الناس بعلمك هو المطلوب