محتاجة طريقة تحويل تقرير الاكسيس 2007 الى اكسل شيت عن طريق الكوماند

[hct111 0]

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

كيف الحال أعضاء ومشرفين المنتدى

عندي استفسار بسيط

إذا ممكن طريقة تحويل تقرير الاكسيس 2007 الى اكسل شيت عن طريق الضغط على كوماند في التقدرير

وللعلم نوع ملف الاكسيس هو accdr

هو ملف مغلق ولا توجد به خيارات تصدير التقرير الى اكسل من خيارات الاكسيس

جربت كثير من الكودات بس ما ضبطت معاي واتمنى ان تجدو لي حلا

شاكرة لكم حسن تعاونكم

من ضمن الكودات الي استخدمتها هذا الكود

Private Sub Command9_Click()

Dim reportname As String

Dim theFilePath As String

reportname = "MaxPrice"

theFilePath = "C:\Documents and Settings\" & Environ("UserName") & "\Desktop\"

theFilePath = theFilePath & reportname & "_" & Format(Date, "yyyy-mm-dd") & ".xlsx"

DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, reportname, theFilePath, True

MsgBox "Look on your desktop for the report."

[hct111 0]

في انتظار ردودكم يا مشرفين واعضاء المنتدى المحترمين

[zahrah 4,313]

اختي الفاضلة

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

اذا كان الملف الذي تريدين التعديل عليه او اضافة اكواد به بصيغة accdr فهذا يعني انه نسخة مصغرة Microsoft Access 2007 Run-time لغرض القراءة فقط ولا يوجد بها اي وظائف اضافية كما في النسخة الكاملة من Microsoft Access 2007

لذا يحب عليك تحميل النسخة الكاملة من Microsoft Access 2007 وإنشاء قاعدة البيانات بصيغة accdb حتى تستطيعين من التحكم الكامل بالقاعدة سواء استيراد او تصدير او اي شيء ترغبين بعمله في قاعدة البيانات .

اما النسخة Run-time فلا يوجد بها هذه الوظائف والأمكانات .

بالتوفيق

[hct111 0]

شكرا جزيلا لك الاخت زهرة

وبعد عناء طويل وبحث مستمر حصلت على هذا الكود الذي ولله الحمد أدى بالمطلوب وهو الضغط على زر كوماند من الفورم ليصدر لنا التقرير بالاكسل شيت

DoCmd.OutputTo acOutputReport, "ReportName", acFormatXLS, "c:\YourFolderName\ReportName - " & Format(Date, "yyyymmdd") & ".xls"