تصدير التقرير بالاميل

[m_fouad0003]

بسم الله الرحمن الرحيم 

الاخوه الكرام اعضاء منتدنا الغالى

لقد قمت بعمل هذا الكود لارسال التقرير بالاميل وهو يعمل بشكل جيد ولاكن المشكل تظهر عندما اقوم بالغاء عمليه الارسال تظهر رسالة خطا 

فارجور من السادة اعضاء منتدنا الكرام مساعدتى فى تعيل الكود بحيث اذا الغيت الارسال لا تظهر رسالة الخطا 

هذا هو الكود

DoCmd.SendObject acSendReport, "Report1", acFormatPDF, [ff], ""
وشكرا جزيل 

[ابوآمنة]

 ‏شاهد هذا الموضوع 

 

 

أو  استخدم هذا الكود

On Error Resume Next

[m_fouad0003]

اخى الكريم 

اشكرك على ردك ولكن اين الكود الذى يمكن ان استخدمه 

[ابوآمنة]

قبل كودك ضع هذا السطر  "On Error Resume Next"

 فيصبح الكود بالكامل هكذا

On Error Resume Next
DoCmd.SendObject acSendReport, "Report1", acFormatPDF, [ff], ""

أو طريقة اصطياد رقم الخطأ كما في المشاركة السابقة لأستاذنا الجليل جعفر

private sub cmd_click()
on error goto err_cmd_click

DoCmd.SendObject acSendReport, "Report1", acFormatPDF, [ff], ""

exit_cmd_click:
exit sub
err_cmd_click:

    if err.number=3314 then
        msgbox "هنا تضع صيغة رسالتك"
        resume exit_cmd_click
    else
        msgbox err.number & vbcrlf & err.description
    endif

end sub

لا تنس أن تضع رقم الخطأ الذي ظهر لك بدلاً من الرقم 3314 

    if err.number=3314 then

وتضع رسالة "تم إلغاء عملية الإرسال"

        msgbox "هنا تضع صيغة رسالتك"

 

تم تعديل فبراير 17, 2019 بواسطه saleh204

[m_fouad0003]

اخى الكريم  saleh204

اشكرك على ردك و على الكود الرائع بارك الله فيك  

[ابوآمنة]

أنت الأروع أخي m_fouad0003

وكلك ذوق