المرجع موجود اخى ومظبوط

ارجو ان حضرتك تفيدنى بالكود الصحيح اللى يشتغل فى كل الاوقات

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

تم عمل 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