مشكلة عند تصدير تقرير بالأكسس الىpdf

[طاهر اوفيسنا]

السلام عليكم اساتذي الكرام

ظهر لي مشكل مؤخرا وهو عند الضغط الى تصدير تقرير الى pdf تظهر مشكلة

Private Sub Command10_Click()
DoCmd.OutputTo acOutputReport, "rptTransfer" & txtMonth, acFormatPDF, strPathAndfile, True

End Sub

كيف يتم تصحيحها

[ابو جودي]

4 دقائق مضت, كريمو2 said:

السلام عليكم اساتذي الكرام

ظهر لي مشكل مؤخرا وهو عند الضغط الى تصدير تقرير الى pdf تظهر مشكلة

Private Sub Command10_Click()
DoCmd.OutputTo acOutputReport, "rptTransfer" & txtMonth, acFormatPDF, strPathAndfile, True

End Sub

كيف يتم تصحيحها

ممكن المرفق لو تكرمت 

[Shivan Rekany]

5 دقائق مضت, كريمو2 said:

DoCmd.OutputTo acOutputReport, "rptTransfer" & txtMonth, acFormatPDF, strPathAndfile, True

حسب فهمي الخطأ هو في اسم الكائن

اكتب اسم الكائن بشكل صحيح 

بل انت كتبت الاسم هكذا 

"rptTransfer" & txtMonth

 

[طاهر اوفيسنا]

اليك المرفق استاذي

2017.rar

[Shivan Rekany]

21 دقائق مضت, كريمو2 said:

اليك المرفق استاذي

2017.rar

اكتب الكود هكذا

DoCmd.OutputTo acOutputReport, "rptTransfer", "PDF Format (*.pdf)", strPathAndfile, True

 

[طاهر اوفيسنا]

لم تصلح الفكرة استاذ

وثانيا أحبذ عند الحفظ يكون اسم التقرير   بpdf مربوط بالتاريخ مثلا rptTransfer_01_04_2017

تم تعديل أبريل 16, 2017 بواسطه كريمو2

[Shivan Rekany]

33 دقائق مضت, كريمو2 said:

لم تصلح الفكرة استاذ

وثانيا أحبذ عند الحفظ يكون اسم التقرير   بpdf مربوط بالتاريخ مثلا rptTransfer_01_04_2017

اتفضل 

اليك هذا الكود

DoCmd.OutputTo acOutputReport, "rptTransfer", acFormatPDF, strPathAndfile & "rptTransfer" & Format(Me.Text18, "yyyy") & "-" & Format(Me.Text18, "mm") & "-" & Format(Me.Text18, "dd") & ".pdf", True

ولا تقول انه لا يشتغل عندي

لاني انا جربت بعدين ارسلت لك

واليك ملفك بعد تعديل

 

2017.rar

[طاهر اوفيسنا]

وهو كذالك استاذي

شكرا لك

[ابو جودي]

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

2017_2.rar