UserUser2 قام بنشر مايو 12 مشاركة قام بنشر مايو 12 محتاج عند تحديد شيك بوكس يصدر التقرير المحدد فقط في مسار محدد ولو اكثر من تقرير يصدرهم دفعه واحده فى مسار محدد Test (1) (1).accdb رابط هذا التعليق شارك More sharing options...
ناقل قام بنشر مايو 12 مشاركة قام بنشر مايو 12 1 ساعه مضت, UserUser2 said: محتاج عند تحديد شيك بوكس يصدر التقرير المحدد فقط في مسار محدد ولو اكثر من تقرير يصدرهم دفعه واحده فى مسار محدد غير اسماء الملفات المصدرة مثلا Reports1 - Reports2 - Reports3 - Reports4 هنا رابط هذا التعليق شارك More sharing options...
UserUser2 قام بنشر مايو 12 الكاتب مشاركة قام بنشر مايو 12 2 ساعات مضت, ناقل said: غير اسماء الملفات المصدرة مثلا Reports1 - Reports2 - Reports3 - Reports4 هنا اشكرك على ردك الجزء اللى حضرتك محدده خاص بمكان الحفظ وده فولدر موجود في نفس مسار قاعده البيانات رابط هذا التعليق شارك More sharing options...
أفضل إجابة Foksh قام بنشر مايو 12 أفضل إجابة مشاركة قام بنشر مايو 12 مشاركة مع أستاذنا @ناقل ، جرب هذا الكود في الزر المسؤول عن التصدير 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 رابط هذا التعليق شارك More sharing options...
UserUser2 قام بنشر مايو 12 الكاتب مشاركة قام بنشر مايو 12 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 جزاك الله خيرا 1 رابط هذا التعليق شارك More sharing options...
Foksh قام بنشر مايو 12 مشاركة قام بنشر مايو 12 1 دقيقه مضت, UserUser2 said: جزاك الله خيرا ولك بالمثل أخي الكريم رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان