رسالة خطأ

[أواب]

إخواني الأفاضل
السلام عليكم

موضوعي ليس جديداً

لكنني عجزت عن حل له...............وأنتم فيكم البركة وما تقصروا

لدي برنامج يعمل بشكل جيد.....لكن في بعض الاجهزة لا يعمل أبداً وتطلع لي الرسائل الآتية

يارب تتوفقون في حل ناجع لهذه المشكلة

بارك الله فيكم

 

[jjafferr]

وعليكم السلام 🙂

 

ببساطة ، الظاهر انك تريد تقرأ / تكتب الى مسار ملف غير موجود 🙂

 

بعض الاوقات لما تريد تكتب/تقرأ من ملف ، فالملف قد لا يكون جاهزا (يعني يمكن الوندوز بطيء لتجهيزه للقراءه) ، لذا في بعض الاحيان اضطر ان اخلي الكود ينتظر ثانيه واحدة قبل الانتقال الى سطر قراءته ،

 

فيكون هذا الكود قبل قراءة الملف ، هكذا (الكود مأخوذ من مساعد الاكسس ، ونرى ان التأخير هنا 5 ثوان) :

Dim PauseTime, Start

    PauseTime = 5    ' Set duration.
    Start = Timer    ' Set start time.
    Do While Timer < Start + PauseTime
        DoEvents    ' Yield to other processes.
    Loop

.

جعفر

[أواب]

عفوا استاذنا جعفر

لم أفهم شيئا

يعني ماذا أفعل؟

أريد تشغيل البرنامج على جهاز به ويندوز 8.1

وعليه اوفيس 2013

وبرنامجي بأوفيس 2003

 

[jjafferr]

اعطينا مزيد من المعلومات علشان نشرح زيادة 🙂

شو الشيء اللي يعمله البرنامج ، وشو ActiveX اللي يستعمله ، والكود اللي تستعمله ، واي سطر يعطيك الخطأ 🙂

 

جعفر