كيف أُصدّر نتيجة استعلام إلى ملف وورد بحيث يكون الاسم يحمل سنة معينة ؟

بالانتظار ...

اختي العزيزة.. هل بامكانك ارفاق الملف،،

الموضوع محير قليلا.. نستطيع عمل هذا واكثر، ولكن ما هي طبيعة البرنامج..

الاطلاع على الكود يساعدنا كثيرا..

مع الشكر للاخ اكسير..

همام

جزاك الله خيراً على ردك.

لا أدري ماذا تقصد بالكود، فأنا لم أكتب كود لهذا الجزء إلا ما سألت عنه.

أما طبيعة البرنامج فهو برنامج للصادر والوارد، وبه جزء خاص للأرشيف حيث يتم ترحيل الصادر والوارد للسنة الماضية في جدول خاص للأرشيف، وبإمكان المستخدم البحث في هذا الأرشيف {وهذا الجزء أنهيته}، وأريد أن أعطي المستخدم إمكانية لحذف أرشيف سنة معينة ولكن أعطيه خيار لتصدير بيانات تلك السنة إلى ملف وورد {وهذا هو موضع السؤال}.

السلام عليكم ورحمة الله وبركاته

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

يظهر runtime error

عند السطر

DoCmd.OutputTo acReport, "SaderArchiveReport", "RichTextFormat(*.rtf)", strName, True, "", 0

المقطع الخاص بتصدير التقرير للوورد

Sub ArchiveBut_Click()

Dim strPaht As Variant
Dim strName As Variant

' تحديد المسار الحالي لقاعدة البيانات
strPath = Application.CurrentProject.Path

' تسمية الملف باسم صادر السنة التي تم اختيارها
strName = strPath & "Sader" & Form!Ylist & ".doc"



' تصدير تقرير أرشيف الصادر إلى ملف وورد
DoCmd.OutputTo acReport, "SaderArchiveReport", "RichTextFormat(*.rtf)", strName, True, "", 0

End Sub

فهل من معين؟

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