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

[UserUser2]

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

 

Test (1) (1).accdbFetching info...

[ناقل]

  في 12‏/5‏/2024 at 11:11, UserUser2 said:

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

 

Expand  

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

 

[UserUser2]

  في 12‏/5‏/2024 at 12:51, ناقل said:

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

 

Expand  

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

 

[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).accdbFetching info...

[UserUser2]

  في 12‏/5‏/2024 at 15:46, 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

Expand  

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

[Foksh]

  في 12‏/5‏/2024 at 17:56, UserUser2 said:

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

Expand  

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