كيف يمكن فتح ملف موجود داخل اكسس ويحتوي بداخل الملف ملف وورد

[الحلبي]

السادة / اعضاء المنتدي والمشرفين  السلام عليكم 

مرفق مثال مصغر لما اريده

لدي جدول T1 مبني عليه نموذج F1 وهذا النموذج عبارة عن كود العميل واسمه

داخل قاعدة البيانات( اكسس) يوجد ملف اسمه OFFER بداخله ملفات وورد

المطلوب : عند الضغط علي زر الامر الموجود في النموذج (F1) يفتح الملف المسمي (OFFER) ثم يفتح ملف وورد الذي يحمل نفس رقم الكود في النموذج .

دون المطالبة بتحديد مسار الملف . قاعدة البيانات موجودة علي البارتشن D ومعها ملف وورد مع ملاحظة اني استخدم اوفيس 2010

جزاكم الله خيرا ان شاء الله

OPEN_WORD.rar

تم تعديل سبتمبر 26, 2017 بواسطه الحلبي

[الحلبي]

up

[ابو جودي]

لك ما طلبت اتغضل 

 

OPEN_WORD_updat.rar

[الحلبي]

المهندس / محمد عصام / ابا جودي

جزاك الله خير ونفعك بعلمك نعم هو المطلوب

وانني لم انتبه الي انك استعملت نفس الكود والذي خدمتني فيه سابقا في موضع (سحب صور بالاسكنر) خدمة العمر .

ولي استفسار وتحملني فيه اخي محمد ماذا لو كان الملف المسمي (offer) بداخل ملف اسمه (halby) موجودين علي الدرايف d 

رحم الله والديك في الدنيا والاخرة 

كل احترام وتقدير لكم 

 

[ابو جودي]

3 ساعات مضت, حلبي said:

المهندس / محمد عصام / ابا جودي

جزاك الله خير ونفعك بعلمك نعم هو المطلوب

وانني لم انتبه الي انك استعملت نفس الكود والذي خدمتني فيه سابقا في موضع (سحب صور بالاسكنر) خدمة العمر .

ولي استفسار وتحملني فيه اخي محمد ماذا لو كان الملف المسمي (offer) بداخل ملف اسمه (halby) موجودين علي الدرايف d 

رحم الله والديك في الدنيا والاخرة 

كل احترام وتقدير لكم 

 

شوبالنسبة لطلب حضرتك بسيط جدا ان شاء الله تعالى ادخل الى الكود واستبدل سطر الكود الاتى

attash_file = db_path() & "OFFER" & "\" & [ID] & ".docx"

بهذا الكود الجديد

attash_file = "D:\" & "halby\" & "offer\" & [ID] & ".docx"

وحتى لا اشق عليكم اليكم المرفق بعد التعديل

OPEN_WORD_updat 2.rar

[الحلبي]

الله يبارك لك ياباشمهندس

تمام التام كل صبط معايا

انا وضعت الكود التالي كما تعلمت منك لاظهار رسالة عند عدم وجود ملف 

If DIR(attash_file, vbDirectory) = "" Then
"MsgBox "no file"

ولكن لم تنجح معي 

ارجو التعديل 
 

[الحلبي]

الاخ الفاضل / ابا جوددي

توصلت للحل كان هناك خطأ في الكود وهو اني وضعته بعد كلمة else

والان كل شئ تمام 

اشكرك وجعل جميع اعمالكم في ميزان حسناتكم 

كل الاحترام والتقدير