كيفية نقل مسار ملف من خلال زر أمر Braws

وعليكم السلام ورحمة الله وبركاته

اخي الكريم تفضل هذا المثال وارجو ان تستفيد منه بارك الله بك

اخوك ابو عدنان

openfile.rar

moh samer ali كتب:

وعليكم السلام ورحمة الله وبركاته

اخي الكريم تفضل هذا المثال وارجو ان تستفيد منه بارك الله بك

اخوك ابو عدنان

مشكور أخى أبو عدنان

تعديل بسيط وصار فعلا هذا هو المطلوب

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

ياريت أستفسار أخر

الحقل المسمى بأسم الملف كان نوعة أرتباط تشعبى وهذا لانى عندما أضغط أستعراض وأحدد الملف يقوم بكتابة مسارة فى هذا الحقل ولو حبيت افتحة من خلال قاعدة البيانات أضغط علية فيفتح ولكن الى صار أنة لا يفتح ولا يعمل الأرتباط ياريت الاقى رد

وشكرا

rewnasser كتب:

مشكور أخى أبو عدنان

تعديل بسيط وصار فعلا هذا هو المطلوب

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

ياريت أستفسار أخر

الحقل المسمى بأسم الملف كان نوعة أرتباط تشعبى وهذا لانى عندما أضغط أستعراض وأحدد الملف يقوم بكتابة مسارة فى هذا الحقل ولو حبيت افتحة من خلال قاعدة البيانات أضغط علية فيفتح ولكن الى صار أنة لا يفتح ولا يعمل الأرتباط ياريت الاقى رد

وشكرا

اخي الكريم لا شكر على واجب بارك الله بك،،،

اذا اردت ان تفتح اي ملف من قاعدة البيانات استخدم الكود التالي مع مراعاة نوع الملف

Dim X As Integer

Dim AppName As String

AAPNAME = "C:\Program Files\Microsoft OfficeXp\Office10\WINWORD.EXE" & [FLIELOCATION]

 X = Shell(AppName, 1)

[FLIELOCATION] = الحقل المسمى اسم الملف لديك ( مسار الملف واسمه) .

ومثالنا هنا لفتح ملف وورد

C:\Program Files\Microsoft OfficeXp\Office10\WINWORD.EXE

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

ارجوا ان اكون وفقت بمساعدتك مع احترامي وتقديري

اخوك ابو عدنان

حاول الاستفادة من هذا المثال للاخت الفاضلة ام عهود.

zaOpenWord.rar