تصدير اكثر من تقرير وفقا للCheck BOX المحدد في مسار محدد

[UserUser2]

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

 

Test (1) (1).accdb

[ناقل]

1 ساعه مضت, UserUser2 said:

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

 

غير اسماء الملفات المصدرة مثلا Reports1 - Reports2 - Reports3 - Reports4 هنا

 

[UserUser2]

2 ساعات مضت, ناقل said:

غير اسماء الملفات المصدرة مثلا Reports1 - Reports2 - Reports3 - Reports4 هنا

 

اشكرك على ردك 
الجزء اللى حضرتك محدده خاص بمكان الحفظ وده فولدر موجود في نفس مسار قاعده البيانات 

 

[Foksh]

مشاركة مع أستاذنا @ناقل ، جرب هذا الكود في الزر المسؤول عن التصدير

Dim outputPath As String
outputPath = CurrentProject.Path & "\Reports\"

If CheckA.Value = True Then
    DoCmd.OutputTo acOutputReport, "Report1", acFormatPDF, outputPath & "Report1.pdf"
End If

If CheckC.Value = True Then
    DoCmd.OutputTo acOutputReport, "Report2", acFormatPDF, outputPath & "Report2.pdf"
End If

If CheckD.Value = True Then
    DoCmd.OutputTo acOutputReport, "Report3", acFormatPDF, outputPath & "Report3.pdf"
End If

If CheckE.Value = True Then
    DoCmd.OutputTo acOutputReport, "Report4", acFormatPDF, outputPath & "Report4.pdf"
End If

وهذا مرفق ، جرب الزر Try Me بعد تحديد اي تقارير تريد

Test (1) (1).accdb

[UserUser2]

2 ساعات مضت, Foksh said:

مشاركة مع أستاذنا @ناقل ، جرب هذا الكود في الزر المسؤول عن التصدير

Dim outputPath As String
outputPath = CurrentProject.Path & "\Reports\"

If CheckA.Value = True Then
    DoCmd.OutputTo acOutputReport, "Report1", acFormatPDF, outputPath & "Report1.pdf"
End If

If CheckC.Value = True Then
    DoCmd.OutputTo acOutputReport, "Report2", acFormatPDF, outputPath & "Report2.pdf"
End If

If CheckD.Value = True Then
    DoCmd.OutputTo acOutputReport, "Report3", acFormatPDF, outputPath & "Report3.pdf"
End If

If CheckE.Value = True Then
    DoCmd.OutputTo acOutputReport, "Report4", acFormatPDF, outputPath & "Report4.pdf"
End If

وهذا مرفق ، جرب الزر Try Me بعد تحديد اي تقارير تريد

Test (1) (1).accdb 548 kB · 2 downloads

جزاك الله خيرا 

[Foksh]

1 دقيقه مضت, UserUser2 said:

جزاك الله خيرا 

ولك بالمثل أخي الكريم