طلب المساعدة في حل مشكل عدم فتح التقرير

[عادل سوفت]

السلام عليكم إخواني أود المساعدة في حل المشكل الذي أعاني منه والمتمثل في عدم فتح التقرير عند العرض وظهور الرسالة المزعجة "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  يوجد كود كالتالي:

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. ثم وبمجرد أعيد هذه الحقول للتقرير ثم أعيد الكود المذكور لمكانه في الحدث وأقوم بالتنفيذ يرجع يعمل بشكل سليم ورائع . وبجرد غلقه أي مع الأكسس ثم فتحه مرة أخرى تعود نفس الرسالة المزعجة ولا يفتح التقرير؟

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

 

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

[محمد سلامة]

ممكن مرفق اخي الكريم

[عادل سوفت]

السلام عليكم

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

[عادل سوفت]

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

 

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

 

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

 

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

 

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

 

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