figo82eg قام بنشر فبراير 21, 2023 مشاركة قام بنشر فبراير 21, 2023 (معدل) ارجو من الأخوة مساعدتى فيما يلى : 1 - لدى شبكة أجهزة داخلية لعدد 11 جهاز بينهم ملف شير 2- يوجد لدى برنامج أكسس موجود داخل هذا الملف حتى تستطيع جميع الأجهزة العمل عليه . 3- برنامج الاكسس مقسم الى واجهات أمامية وخلفية ( الواجهة الخلفية الجداول ) يوجد معها ملف داخله ملفات بصيغة pdf مرتبطة بالبرنامج . 4- الواجهات الأمامية ( النماذج يتم توزيعها على جميع الأجهزة ويتم ربطها بالجداول الموجودة بملف الشير حيث يتم العمل عليها فى نفس الوقت تقريباً ). 5- يوجد زر بالنماذج يفتح ملفات pdf المرتبطة وعند الضغط على زر فتح المستند لا يتم فتح ملف pdf من أى جهاز على الشبكة ولكن يتم فتح الملف من الجهاز الرئيسي فقط الموجود به ملف الشير. ما اريده هو طريقة عمل امتداد للملف بالكود يفتح من أى جهاز على الشبكة حيث أن الملف CONTACT موجود مع برنامج الاكسس فى ملف الشير ولا يمكن نقله على كل الأجهزة بالشبكة مع النماذج والتقارير التى قسمتها على الأجهزة الأخرى. استخدمت هذا الكود على جهازى File_Path = "C:\Users\SMSM\Desktop\حسابات\CONTACT\" ولكن لا اعرف كيف استخلص مسار ملف البرنامج على ملف الشير فى الجهاز الرئيسى واضعه بالكود ليفتح على جميع الاجهزة مرفق مثال للمساعدة حسابات.rar تم تعديل فبراير 21, 2023 بواسطه figo82eg رابط هذا التعليق شارك More sharing options...
ahmed79e قام بنشر فبراير 21, 2023 مشاركة قام بنشر فبراير 21, 2023 مهتم رابط هذا التعليق شارك More sharing options...
أفضل إجابة Moosak قام بنشر فبراير 21, 2023 أفضل إجابة مشاركة قام بنشر فبراير 21, 2023 حياك الله أخي @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 رابط هذا التعليق شارك More sharing options...
figo82eg قام بنشر فبراير 22, 2023 الكاتب مشاركة قام بنشر فبراير 22, 2023 بارك الله فيك اخى الكريم ونفع الله الناس بعلمك هو المطلوب 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان