تصدير بصيغة doc

نعم هذا ممكن,,,

لديك الكود التالي ضعه في زر أمر ..اسم الزر هو:ExportToWord

اسم التقرير يؤخذ تلقائيا من اسم الموظف أو اي ايا كان موضوع التقرير او بامكانك وضع الاسم الذي تريد..

Private Sub ExportToWord_Click()
Dim strName As Variant
strName = [Reports]![MyReport]![Name].Value
DoCmd.OutputTo acReport, "MyReport", , "C:\" & strName & ".doc", True, "", 0
DoCmd.Close
End Sub

مع الشكر الجزيل للمبدعة زهرة المنتدى..

همام

شكرا جزيلا على الرد ولكن

MyReport و Name على ماذا يدلان

ولكم الشكر

هل من مثال لذلك إذ يتم التصدير كملف rtf

السلام عليكم من جديد..هذا المثال الذي لدي

وقد ذكرت انه من عمل الزهرة..

المهم قمت بتعديل الكود به ليظهر كما في المشاركة السابقة، حيث يدل :

MyReport هو اسم التقرير الموجود في قاعدة البيانات والمراد تصديره الى Word

StrName هو متغير نصي ياخذ اسم التقرير المراد تصديره ليصبح اسما لمف ال Word الذي سيحوي البيانات المصدرة..

Export_Report_To_Word_up2.rar

شكرا جزيلا لتفاعلكم ولكن المطلوب هو حفظ الملف بامتداد (doc) اي word document وليس )rtf)

rich text format

فلو فتحتم برنامح الوورد وأردتم حفظ أي ملف تظهر هذه الخيارات وأعلم أن الأكسس يصدر إلى الصيغ المحددة الموجودة في الخيار الملف تصدير

ولكن هل من طريقة لعمل ذلك