كيف يمكنني حفظ النتائج في النموذج الفرعي إلى ملف أكسيل

[بوعبد الله محفوظ]

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

أريد عند القيام بعملية بحث معينة في النموذج "frmProduction"

وعند لضغط على الزر "حفظ اكسيل" 

يقوم بحفظ النتائج الظاهرة في النموذج الفرعي إلى ملف أكسيل

مع إضهار نافذة الحفظ "أختيار مكان الحفظ و اسم الملف"

استطعت القيام بهذه العملية لكن عن طريق الزر "تصدير" و إنشاء استعلام "qryExportExcel"

والذي أحوال فعله تصدير النتائج الصادرة عن المتغير "Task"

هل من أفكار

بارك الله فيكم وفي علمكم

ExportExcel.zip

[jjafferr]

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

 

1. علشان نأخذ قيمة Task في الوحدة النمطية ، لازم نشهرها في وحدة نمطية هكذا:

Public Task As String

فتكون متوفرة في البرنامج كاملا ،

2. لكي نستطيع ارسال Task (والذي هو عبارة عن  SQL جاهز) ، يجب علينا حفظه كإستعلام عن طريق الامر QueryDef ، وقد حفظت الاستعلام بإسم qryExportExcel ، والذي نحذفه لما ننتهي من استخدامه ،

3. انا لم تعمل معي نافذة الحفظ "أختيار مكان الحفظ و اسم الملف" ، لذلك عملت متغير مؤقت saveFileAs22 ،

 

Option Compare Database

Public Task As String
 
Public Sub exportTable(tName As String)
On Error GoTo err_exportTable

    saveFileAs22 = "D:\myExcel.xls"
    
    Dim qrydf As QueryDef
    Set qrydf = CurrentDb.CreateQueryDef("qryExportExcel", Task)
    
    PauseTime = 2    ' Set duration.
    Start = Timer    ' Set start time.
    Do While Timer < Start + PauseTime
        DoEvents    ' Yield to other processes.
    Loop

    DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, "qryExportExcel", saveFileAs22, True
    
    'Delete it
    CurrentDb.QueryDefs.Delete "qryExportExcel"

Exit Sub
err_exportTable:

    If Err.Number = 3012 Then
        'Delete it, to make a new one
        CurrentDb.QueryDefs.Delete "qryExportExcel"
        Resume Next
    Else
        MsgBox Err.Number & vbCrLf & Err.Description
    End If
    
End Sub

 

جعفر

591.ExportExcel.accdb.zip

[بوعبد الله محفوظ]

جزاك الله كل خير أخونا جعفر

هو بالضبط ما أريد

استفسار

ما السبب الذي يمنع نافذة الحفظ من الظهور

[Shivan Rekany]

2 دقائق مضت, بوعبد الله محفوظ said:

ما السبب الذي يمنع نافذة الحفظ من الظهور

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

45 دقائق مضت, jjafferr said:

saveFileAs22 = "D:\myExcel.xls"

وشوف هذا بيعمل المطلوب واذا تريد ان يظهر نافذة حفظ بدل هذا الكود اي حذف كلمة saveFileAs22 من الكود الاسف

45 دقائق مضت, jjafferr said:

DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, "qryExportExcel", saveFileAs22, True

بهذا
 

DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, "qryExportExcel"

 

[بوعبد الله محفوظ]

3 دقائق مضت, Shivan Rekany said:

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

وشوف هذا بيعمل المطلوب واذا تريد ان يظهر نافذة حفظ بدل هذا الكود اي حذف كلمة saveFileAs22 من الكود الاسف

بهذا
 

DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, "qryExportExcel"

 

للاسف أخي الكريم 

رسالة خطأ 2522

the action or method requires a file name argument

 

[jjafferr]

شكرا أخي شفان

 

8 دقائق مضت, بوعبد الله محفوظ said:

ما السبب الذي يمنع نافذة الحفظ من الظهور

ما ادري ولا حاولت ادري ، قلت موضوع داخلي بينك وبين برنامجك وعيب اتدخل بينكم 

وانا شخصيا لا استعمل اوامر الاكسس هذه ، شوف اللي كتبته في هذا الرابط:

 

انا استعمل هذه الوحدة النمطية:

http://access.mvps.org/access/api/api0001.htm

 

جعفر

 

 

وعفوا ، عنك خطأ في كود التصدير ، فانت استخدمت acSpreadsheetTypeExcel12Xml

بينما يجب ان تستخدم acSpreadsheetTypeExcel12 (او اي رقم اصغر منه ، ولكن ليس Xml)

[Shivan Rekany]

18 دقائق مضت, بوعبد الله محفوظ said:

للاسف أخي الكريم 

رسالة خطأ 2522

the action or method requires a file name argument

 

عفوا منكم جميعا
اليك هذا الكود فقط
 

On Error Resume Next
    DoCmd.OutputTo acOutputQuery, "Q1", "excelworkbook(*.xlsx)"

لكن انا عملت استعلام لنموذج فرعي

591.ExportExcel.accdb.zip

[Ibrahim IQ]

1 ساعه مضت, Shivan Rekany said:

عفوا منكم جميعا
اليك هذا الكود فقط
 

On Error Resume Next
    DoCmd.OutputTo acOutputQuery, "Q1", "excelworkbook(*.xlsx)"

لكن انا عملت استعلام لنموذج فرعي

591.ExportExcel.accdb.zip

تسلم ايدك استاذ شڤان هذ شيء جميل