عادل سوفت

32 دقائق مضت, صالح حمادي said:

جرب هذا المرفق فهو متوافق مع 2003 فما فوق

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

بارك الله فيك يا استاذ صالح.

45 دقائق مضت, صالح حمادي said:

متى تظهر هذه الرسالة عند فتح البرنامج

أو عند التفعيل

تظهر عند فتح البرنامج

15 دقائق مضت, صالح حمادي said:

يا أخي هذا ليس إشكال بل هو أبسط مما هو موجود غير الكود الموجود في الوحدة النمطية بهذا الكود:

 

بارك الله فيك يا أستاذ البرنامج الآن لا يطالب بالمدة المتبقية

بالنسبة للرسالة عند تنفيذ البرنامج

 Cette erreur se produit lorsqu'un événement ne peut pas être exécuté parce que Microsoft Office Access ne peut pas détecter l'emplacement de la logique correspondante. Par exemple, si la propriété OnOpen d'un formulaire est définie sur la valeur =[Field], cette erreur se produit car Access s'attend à ce qu'un nom de macro ou d'événement soit exécuté lors du déclenchement de l'événement.

فأضطر في كل مرة لسحب وافلات البرنامج نحو ملف إجرائي أنشئته (HAB) بعد البحث في بعض المنتديات لحل المشكلة

الملف مضغوط في الرفقات

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

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

hab.rar

2 دقائق مضت, صالح حمادي said:

ما هي نسخة الأوفيس التي تستعملها

هل استعملت المرفق الأخير أم المرفق الأول

 

استعمل الأوفيس 2007 واستعملت المرفق الأخير الذي أدرجت معه حذف المجلدات من الرجستري.rar

3 دقائق مضت, صالح حمادي said:

في هذا السطر من كود التفعيل غير العدد 140 إلى أي عدد تريده

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

كما أرجو منك توضيح سبب هذه الرسالة عند تنفيذ البرنامج

 Cette erreur se produit lorsqu'un événement ne peut pas être exécuté parce que Microsoft Office Access ne peut pas détecter l'emplacement de la logique correspondante. Par exemple, si la propriété OnOpen d'un formulaire est définie sur la valeur =[Field], cette erreur se produit car Access s'attend à ce qu'un nom de macro ou d'événement soit exécuté lors du déclenchement de l'événement.

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

في 11/06/2017 at 23:32, Aliko said:

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

جاري التجربه على الخير ان شاء الله 

شكرا لاستجابتك استاذي الفاضل

السلام عليكم أخي صالح بارك الله فيك على جهودك

لي ملاحظة بسيطة حبذا لو تعدل الكود بحيث عند التفعيل يصبح البرنامج مفتوح مدى الحياة مش مربوط ب 140 يوم فقط

يا أخي لا بأس تفضل رابط تحميل الملف على حسابي في موقع ميديا فير

http://www.mediafire.com/download/zko2h7esypf8c99/FICHE+TECHNIQUE+13042015.rar

مجلد الصور الخاص بالبرنامج يتم نسخه في قسم C وهذا هو الرابط 

http://www.mediafire.com/download/lr84a0e11a0ntij/FICHE+TECHNIQUE.rar

للإشارة فأزرار الخاصة باستيراد JPG و PDF لاتعمل فضلا عن الطباعة ونفس الرسالة تظهر أي الخطأ 2501

أرجو الرد في أقرب فرصة

السلام عليكم

الملف كبير يا أخي لا تستوعبه المرفقات والحل إذا؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

 

السلام عليكم إخواني أود المساعدة في حل المشكل الذي أعاني منه والمتمثل في عدم فتح التقرير عند العرض وظهور الرسالة المزعجة "L'action OpenReport à été annulée " مع العلم أن التقرير مرتبط باستعلام ويحتوي على صور مرتبطة بواسطة مسارات محددة liens وعند الحدث au formatage  يوجد كود كالتالي:

Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer)

On Error Resume Next

Me.IMAGPC.Picture = ""

Me.IMAGPC.Picture = Me.IMAGPC1

Me.CPU.Picture = ""

Me.CPU.Picture = Me.CPU1

Me.HDD.Picture = ""

Me.HDD.Picture = Me.HDD1

Me.MARQUE.Picture = ""

Me.MARQUE.Picture = Me.MARQUE1

End Sub

حيث أن الجدول يحتوي مواصفات الجهاز من NOMPC - PROCESSEUR- MARQUE- CARTEG والحقول IMAGPC1-CPU1-HDD1-MARQUE1 هي حقول من نوع Lien hypertexte والصور في التقرير هي IMAGPC-CPU-HDD-MARQUE وزر الطباعة في النموذج يحتوي الكود التالي:

Private Sub print_Click()

On Error GoTo Err_print_Click

Me.Refresh

    DoCmd.OpenReport "PC", acViewNormal

Exit_print_Click:

    Exit Sub

 

Err_print_Click:

    MsgBox Err.Description

    Resume Exit_print_Click

    

 

End Sub

التقرير موضوعة عليه صورة معدة سلفا فوقها الصور المذكورة والحقول من نوع Lien hypertexte بالإضافة إلى الحقول NOMPC - PROCESSEUR- MARQUE- CARTEG 

مع العلم أن التقرير PC كان شغالا للمرة الأولى وبمجرد غلق البرنامج مع الأكسس وفتحه من جديد ظهرت الرسالة "L'action OpenReport à été annulée " عند الضغط على زر الطباعة لفتح التقرير, وعندما أقوم بحذف الكود الخاص بالحدث au formatage واحذف الحقول من نوع Lien hypertexte. ثم وبمجرد أعيد هذه الحقول للتقرير ثم أعيد الكود المذكور لمكانه في الحدث وأقوم بالتنفيذ يرجع يعمل بشكل سليم ورائع . وبجرد غلقه أي مع الأكسس ثم فتحه مرة أخرى تعود نفس الرسالة المزعجة ولا يفتح التقرير؟

أرجو منكم المساعدة على حل هذا المشكل بارك الله فيكم

 

أين الردود يا إخواني...؟؟؟؟ بارك الله فيكم

السلام عليكم إخواني أود المساعدة في حل المشكل الذي أعاني منه والمتمثل في عدم فتح التقرير عند العرض وظهور الرسالة المزعجة "L'action OpenReport à été annulée " مع العلم أن التقرير مرتبط باستعلام ويحتوي على صور مرتبطة بواسطة مسارات محددة liens وعند الحدث au formatage  يوجد كود كالتالي: