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

[Tarekfathallah]

السلام عليكم الرجاء المساعدة اريد كود لتصدير الجداول من اكسيس الى اكسيل مهما كان عدد السجلات 

----------------   للرفع -------------

[jjafferr]

وعليكم السلام

 

في اكثر من طريقة ، ولكن اليك الاسهل:

expression.TransferSpreadsheet(TransferType, SpreadsheetType, Table/ Query Name, FileName, HasFieldNames, Range, UseOA)
واستعمالها
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "Employees", "C:\Temp\Newemps.xls", True


او
expression.OutputTo(ObjectType, Table/ Query Name, OutputFormat, OutputFile, AutoStart, TemplateFile, Encoding, OutputQuality)
واستعمالها
DoCmd.OutputTo acOutputTable, "Employees", acFormatXLS, "C:\Temp\Newemps.xls", True

او

 

جعفر

[Tarekfathallah]

اخي جعفر  اولا مشكور ولكن اين اضع 

expression.TransferSpreadsheet(TransferType, SpreadsheetType, Table/ Query Name, FileName, HasFieldNames, Range, UseOA)
واستعمالها
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "Employees", "C:\Temp\Newemps.xls", True

وكيف اشغلها لو سمحت 

-----------------------------  للرفع   -------------------------------

[jjafferr]

اعمل زر في النموذج ، وعلى حدث الزر ضع الكود ،

ولكن يجب ان تعرف ان الاكسل قبل 2007 يعني اللي بصيغة xls يستوعب حوالي 65,536 سجل فقط 

 

جعفر

[Tarekfathallah]

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

------------------   للرفع ---------------

tarek.rar

[jjafferr]

تفضل

691.tarek.accdb.zip

[Tarekfathallah]

مشكور اخي جعفر يا ليت تساعدني في طلبي