*فورم* تشغيل برنامج من داخل برنامج

معقول الى الان مافيه جواب

call Shell (" Access Bath space Your DataBase Bath")

استبدل Access Bath بمسار برنامج الاكسس في جهازك

Space تعني ترك مسافة واحدة

استبل Your Database Bath بمسار قاعدة البيانات المراد فتحها في جهازك

مثال

Call Shell("C:Program FilesMicrosoft OfficeOfficeMsAccess D:WorkMyDATA.mdb", 1)

اشكرك عزيزي

ولكن اين اكتب هذا الكود . وفي اي من البرنامجين .

من زر أمر داخل البرنامج المفتوح

و ذلك لفتح البرنامج المغلق

و تأكد من المسار

قمت بعمل مايلي :

Private Sub w_Click()

Call Shell("E:Program FilesMicrosoft OfficeOffice10 C:b.mdb", 1)

End Sub

حيث w اسم زر الامر b اسم قاعدة البيانات المراد فتحها .

وهذا مسار الاكسس في الجهاز حيث على الجهاز 3 انظمة .

E:Program FilesMicrosoft OfficeOffice10

وهذا اسم القاعدة المراد فتتحها وموقعها .

اسمها b وتقع في c مثلا .

طبعا كتبت هذا في حدث عند النقر .

ولكن دون اي استجابة اي لا يفتح البرنامج الثاني ولا يعطي اي خطا.

ارجو الافادة .

وللجميع تحياتي وتقديري.

هل جربت طريقة الفتح بواسطة ارتباط تشعبي في كل برنامج يفتح الأخر؟

اخي وعزيزي حارث

لم اجرب طريقة الارتباط التشعبي ممكن تعطيني فكرة عنها في الاكسس وحيث انا اتعامل معها في الورد .

ولك تحياتي.

في أكسس xp ولم أجرب غيره :

أدرج تسمية جديدة في النموذج .

وأعطها عنوانا كما تشاء : البرنامج الثاني مثلا

ثم اذهب إلى خصائص التسمية ، تنسيق ، عنوان الارتباط التشعبي ، وانقر على زر معالج تحرير الارتباط التشعبي بجواره ، واختر قاعدة البيانات الأخرى والآن بمجرد الضغط على التسمية ستنفتح قاعدة البيانات الأخرى .

أرجو أن يكون هذا ما تريده

أخي العزيز

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

ثم أي نسخة من الأكسس تستخدم ؟

ان كانت اكس بي عليك إزالة الفاصلة والرقم 1 في آخر الكود وقد يكون الحال كذلك مع ال 2000

اشكرك اخي حارث الان بواسطة الارتباط التشعبي تم المطلوب بشكل ممتاز .

كما اشكر اخر Access XP .

حيث قمت بازالة الفاصلة والرقم 1 ولكن بدون فائدة حيث استخدمoffice xp

كما ارجو منك توضيح طريقة كتابة مسار الاكسس كاملة اذا كانت الكتابه اعلاه فيها خطا .

اكرر شكري وتقديري .وانا في انتظار الرد .

أخي العزيز

أنت لم تذكر اسم الاكسس في المسار وكل ما ذكرته هو الفولدرات او المجلدات التي توصل إليه

E:Program FilesMicrosoft OfficeOffice10

واعتقد بأنه يجب أن يكون المسار في جهازك هكذا :

E:Program FilesMicrosoft OfficeOffice10 MsAccess

كما لا تنسى إزالة الفاصلة والرقم 1

اخي اشكرك على صبرك معي وهذا الكود بعد التعديل لكن بدون نتيجة.

Call Shell("E:Program FilesMicrosoft OfficeOffice10 MsAccess C:b.mdb")

اعتقد أن المشكلة بوجود مسافة اضافية بعد كلمة 10

و أيضا المفترض أن البرنامج محمل علي ال c و ليس ال E

فان كان البرنامج (الاوفيس) محمل علي ال C فاستبدل ال E بال C فى الكود التالي

Call Shell("E:Program FilesMicrosoft OfficeOffice10MsAccess C:b.mdb")

والطبيعي كون الاوفيس محمل علي ال c

Call Shell("c:Program FilesMicrosoft OfficeOffice10MsAccess C:b.mdb")