مشكلة فى فتح ملف أكسس من داخل ملف آخر!

السلام عليكم

وجدت طريقة للتغلب على هذه المشكلةوهى وضع الكود التالى عند حدوث خطأ وتعذر فتح الملف Accees.exe وذلك لأنه موجود فى المجلد office10

Err_Open_Click:

If Err.Number = 76 Then ' المسار غير موجود

stAppName = """C:Program FilesMicrosoft OfficeOffice10MSACCESS.EXE""" & " " & """" & Name & """"

 Call Shell(stAppName, vbMaximizedFocus)

 DoCmd.Quit

 Else

MsgBox Str(Err.Number) + Err.Description

End If

Exit Sub

أخي الكريم

السلام عليكم

وماذا لو ثبت المستخدم أكسس في مجلد آخر وليكن مثلاً في محرك الأقراص D وهذا كثيراً ما يحدث

إن الطريقة الصحيحة هي قراءة معلومات ومسارات الأوفيس من قاعدة بيانات الوندوز ( الريجستري ) وقد سبق أن تحدثت عن هذا الموضوع ضمن الحديث عن كيفية تشغيل الإصدار المناسب لبرنامجك من أكسس حيث يقوم البرنامج المذكور بقراءة المعلومات من الريجستري

تحياتي

أخى الكريم

كلامك سليم 100 % هذا الكود لن يعمل إلا فى حالة بعض الحالات

قرأت موضوع بالفعل من قبل ولم أستطع الإستفادة منه :o

http://www.arabteam2000.com/vb/showthread....&threadid=17052

فأرجو التوضيح بكيفية الإستفادة من هذا الكود لإستدعاء ملف أكسس من داخل ملف أكسس آخر مع العلم أن هناك أجهزة يكون بها أكسس إكس بى والأخرى 2000

أخي الكريم

السلام عليكم

يحتوي المثال على كامل الكود الذي تحتاجه لقراءة المعلومات المتعلقة بمسارات الأوفيس من الريجستري

لكن ما تذكرته قبل لحظات فقط هو أن هناك أمراً جاهزاً في الأكسس يقوم بقراءة المسار وهو الأمر التالي

SysCmd(acSysCmdAccessDir)

تحياتي

الأخ الفاضل أبو هاجر

أشكرك على سرعة الرد الدائمة وعلى هذه الأمر الرائع

بعد التعديل

   stAppName = SysCmd(acSysCmdAccessDir) & "MSACCESS.EXE" & " " & """" & Name & """"