نعم ممكن
في الملف المرفق عملنا مربع نص مخفي اسميتة tx8 وجعلنا قيمته الافتراضية تساوي اسم التقرير
="rptEmploee"
وفي حدث عند التحديث للقائمة الخاصة بالفلترة اضفنا الامر التالي
Me.tx8 = Me.comUnits.Column(1)
في حدث عند النقر لزر حفظ بي دي اف اضفنا الامر
Dim x As String
x = Me.tx8
DoCmd.OutputTo acOutputReport, "rptEmploee", acFormatPDF, CurrentProject.Path & "\" & x & ".PDF", False
وفي حدث لزر الامر الخاص بالاكسل اضفنا الامر
Dim x As String
x = Me.tx8 & ".xlsx"
DoCmd.OutputTo acOutputReport, "rptEmploee", acFormatXLS, CurrentProject.Path & "\" & x, False
الملفات تحفظ في نفس المجلد الخاص بقاعدة البيانات
التصدير لاكسل قد يتطلب الدخول على محرر الاكواد والتاشير كما هو موضح في الصورة
Database3 (2).accdb