تصدير تقرير إلى ملف أكسيل وتحديد مكان الحفظ

[علي المصري]

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

المرفق به نموذج به عدد 2 زر أمر

ToExcel

ToExcel2

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

اما الثاني فععند الضغط يظهر مربع حوار يتختر منه نوع الملف هل هو اكسيل 2000 - 2003 أو تكست او Pdf أو أتش تي ام ال

ولكن اريد ان اعل بالزر الول لانه من خلاله استطيع الحفظ بالتنسيقات 2010 أو 2007 أو 2003 ....ولكن اريد التعديل عليه بحيث يتعال مع التقارير ولس الجداول مثل الزر الثاني

ToExce2

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

DB123.rar

تم تعديل أغسطس 3, 2012 بواسطه علي المصري

[علي المصري]

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

الاخوة الكرام هل من أحد يرد عليا

[علي المصري]

الاخوة الكرام

الكود التالي يسمح بحفظ الجدول او التقرير أو الاستعلام إلى ملف اكسيل

On Error GoTo Err_ToExcel_Click

Dim stDocName As String

Dim theFilePath As String

stDocName = "AliElbasry"

'DoCmd.OpenQuery stDocName

theFilePath = Application.CurrentProject.Path

theFilePath = theFilePath & stDocName & ""

DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12, stDocName, theFilePath, True

Exit_ToExcel_Click:

    Exit Sub

Err_ToExcel_Click:

    MsgBox "Error"

    Resume Exit_ToExcel_Click

End Sub

ولكن الكود على حسب المسار المعطى له

Application.CurrentProject.Path

يقوم بحفظ ملف الاكسيل في نفس مكان قاعدة البيانات

يعني

اذا كان ملف قاعدة البيانات على سطح المكتب يتم الحفظ على سطح المكتب وخارج المجلد الذي به قاعدة البيانات

نريد انه عند الضغط على الزر يظهر مربع حواري نستطيع من خلاله تحديد المكان المراد حفظ الملف فيه

أو تعديل بحيث يتم الحفظ مباشرة داخل المجلد الذي يحوي القاعدةة

[ابوخليل]

تم دمج الموضوعين

والتعديل على الملف المرفق حسب الطلب

DB1.rar

[علي المصري]

شكرا اخي ابو خليل

هل يمكن استخدام DoCmd.OutputTo مع الجداول أم هي قاصرة على التقارير

حيث أن

DoCmd.TransferSpreadsheet يمكن استخدامها مع الكل

أرجو التوضيح

ولكم جزيل الشكر

[علي المصري]

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

بعد التجربة توصلت إلى الآتي :

الكود يعمل على الجداول في حالة اوفيس 2003 كالتالي :

Private Sub ToExcel_Click()


	 DoCmd.OutputTo acOutputTable, "MainTable", "MicrosoftExcelBiff8(*.xls)", "", False

Beep

MsgBox "xls has been created", vbInformation, "Export xls"

End Sub

الكود يعمل على اوفيس 2010 كالتالي

'Function getFilName() As String

Private Sub ToExcel_Click()


	 DoCmd.OutputTo acOutputTable, "MainTable", "ExcelWorkbook(*.xlsx)", "", False, "", , acExportQualityPrint

'xlxs تنسيق ملف اكسيل 2010

Beep

MsgBox "xlsx has been created", vbInformation, "Export xlsx"

End Sub

حيث في الاخير يمكن تغيير الامتداد من xlsx ( تنسيق اوفيس 2007 وما بعده ) إلى xls ( تنسيق افيس 2003 وما قبله )

كما انني اشكركم لما قدمتوه لي من نصائح وتوجيهات حيث انني أتتممت البرنامج الذي اعمل عليه ( صيفنا مميز )

ولكني انهيته على أوفيس 2010 لما فيه من أشكال جماليه

حين الانتهاء سوف ارفعه لكم لأنه أول مشروع لي وأريد ان آخذ برأيكم

وكني سوف ارفعه اكسيس 2010 لانه كلما اردت تحويله تظهر رسالة تفيد ان هناك تنسيقات تحتاج إلى اوفيس 2010

شكرا لكم

وان شاء الله سوف ابدأ ببرنامج جديد وهو خاص بعملي كمدرس رياضيات وهو برنامج خاص برصد الدرجات وطباعة شهادات وإخطار لولي الأمر كما اتمنى ان يكون قادرا على عمل احصائية عن الطلاب بالتقديرات ( ممتاز ( A) ، جيد جدا ( B) ، جيد (C ) ، مقبول (D) ، متوسط (E) ، ضعيف (F) ، ضعيف جدا (G) )

[خليفة جاويش]

السلام عليكم

سأرفق لك تجربتي فى التصدير طبقا لشرحك

بس مش شغالة

برجاء الافادة وجزاك الله خيرا

[أبو آدم]

بانتظار التطبيقات لعموم الفائدة ....!!!

...............

[علي المصري]

هذه قاعدة البيانات بها تصدير للاكسيل 2010 ، 2003

افتح القاعدة قم بتمكين الماكرو

اختر

اسم مستخد ستكون له كلمة السر نفس اسم المستخدم الذي اخترته

المستخدم باسم ali له كل الصلاحيات اما Ahmed له بعض الصلاحيات

قاعدة البيانات هذه تمت بمساعدة الاخواة الافاضل في المنتدى الكريم

TheFinal.rar

[alashqar]

البرنامج

• TheFinal.rar 830.5K 41 عدد مرات التحميل
  
• كلمة المرور في الصفحة الرئيسية معروفه كما هو موضح بالأعلي
  
• لكن الكود ( الحدث ) الموجود في النماذج لا يمكن رؤيته ويوجد كلمة مرور لرؤيته ارجوا أعطائي اياه ولكم الشكر
  

[عبدالرازق زكى]

بارك الله فيكم كنت احتاج هذا الموضوع

[al_ashrf]

في 1/9/2013 at 00:08, alashqar said:

 

بجد الله ينور عليك

[القبطي]

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

 

[Khalid Jnb]

السلام عليكم

هل ممكن كلمة  المرور  الخاصة بالكود

مع التقدير