مى الكيال

المرجع موجود اخى ومظبوط ارجو ان حضرتك تفيدنى بالكود الصحيح اللى يشتغل فى كل الاوقات

الملف غير مفتوح وموجود بالمكان الذى حددته بالكود ولا يوجد غيره

تم عمل Form تقوم بفتح ملف word بالضغط على command button تم كتابة الكود بشكل صحيح على النحو التالى Option compar database Function openword (conpath as string) Dim appword as word.application Dim doc as word.document On error resume next Error.clear Set appword = getobject(,"word.application") If err.number <> 0 then Set appword = new word.application Appword.visible = true End if Set doc = appword.document.open(conpath, ,true) Appword.visible = true Appword.activate Set doc = nothing Set appword = nothing End function Private sub command1_click() Dim mydoc as string Mydoc = "D:\التوثيق\استعجال العشرون الاوائل.docx" Call openword(mydoc) Endsub وعند التنفيذ تظهر رسالة خطأ Invalid procedure call or argument وبالضغط عليها يتضح الخطأ كما هو موضح بالصورة ولكن لا اعلم ماهى المشكلة ارجو المساعدة

ارجو الرد للضرورة

السلام عليكم ورحمة الله وبركاته انا بصدد انشاء قاعدة بيانات وفيها تقرير يظهر لى رسالة inter parameter value query اسمه العشرون-الاوائل به criteria تربطه ب form الغرض منها البحث بناء على العام الجامعى (وهنا تكمن المشكلة ولكن لا اعلم سببها) مع العلم بأنى ادخلت ال criteria باستخدام ال builder ولم ادخلها يدويا ومن هذا ال query تظهر رسالة inter parameter value كلما حاولت فتحه وتظهر نفس المشكلة فى التقرير النهائى كلما حاولت فتحه ايضا يرجى تحديد اين الخطأ وكيفية معالجته حيث انى بصدد انشاء عدة تقارير بنفس الطريقة * تم رفع الملف حيث انه اكبر من المساحة المسموحة للمفرقات https://www.dropbox.com/s/fq3bejht2dhwueb/التوثيق - Copy.accdb?dl=0