تصدير استعلام الى اكسل واختيار اعمده

[Radwan0]

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

عندي الاستعلام qyrcustomer وبه الاعمدة name,date,id,age,phone 

اريد عند الضغط على زر ارسالA يقوم بتصدير الى ملف اكسل وبه الاعمده name,date,phone 

وعند الضغط على زر ارسالB يقوم بالتصدير الى ملف اكسل وبه الاعمده name,id,age

[kkhalifa1960]

تفضل أخي بتحصل ما تريده هنا.

 

تم تعديل مارس 5, 2023 بواسطه kkhalifa1960

[Radwan0]

للاسف لم افلح في فهم الامثلة اخي الكريم

هل بالاامكان تطبيقه على المثال الذي اوضحته

[محمد احمد لطفى]

طب جرب 

 

On Error Resume Next
'DoCmd.OutputTo acOutputTable, "Data", acViewPreview
 DoCmd.SetWarnings False
' EXPORT_TO_EXCEL_01
 DoCmd.RunSQL "SELECT [name],[phone],[date] INTO Access IN'" _
    & CurrentProject.Path & "\bb'[Excel 8.0;HDR=yes;] FROM qyrcustomer"

 MsgBox "تم تصدير الجدول بنجاح إلى نفس مجلد قاعدة البيانات سيتم فتح المجلد الآن... "
On Error GoTo 1
Application.FollowHyperlink CurrentProject.Path
1:
DoCmd.SetWarnings True

من موضوع 

 

اقتباس

 

 

 

[abouelhassan]

منذ ساعه, محمد احمد لطفى said:

طب جرب 

 

On Error Resume Next
'DoCmd.OutputTo acOutputTable, "Data", acViewPreview
 DoCmd.SetWarnings False
' EXPORT_TO_EXCEL_01
 DoCmd.RunSQL "SELECT [name],[phone],[date] INTO Access IN'" _
    & CurrentProject.Path & "\bb'[Excel 8.0;HDR=yes;] FROM qyrcustomer"

 MsgBox "تم تصدير الجدول بنجاح إلى نفس مجلد قاعدة البيانات سيتم فتح المجلد الآن... "
On Error GoTo 1
Application.FollowHyperlink CurrentProject.Path
1:
DoCmd.SetWarnings True

من موضوع 

 

 

 

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

SELECT qry_Items_Pages_1.iPage, qry_Items_Pages_1.iDate, qry_Items_Pages_1.iName, qry_Items_Pages_1.iBill_Number, qry_Items_Pages_1.[1] AS Store_1, qry_Items_Pages_1.[2] AS Store_2, qry_Items_Pages_1.[3] AS Store_3, qry_Items_Pages_1.[4] AS Store_4, qry_Items_Pages_1.[5] AS Store_5, qry_Items_Pages_1.[6] AS Store_6, qry_Items_Pages_1.[7] AS Store_7
FROM qry_Items_Pages_1
WHERE (((qry_Items_Pages_1.iPage) Between Nz([Forms]![frm_Main]![srch_Page_From_3],0) And Nz([Forms]![frm_Main]![srch_Page_To_3],99999)) AND ((qry_Items_Pages_1.iDate) Between Nz([Forms]![frm_Main]![srch_Date_From_3],#1/1/1900#) And Nz([Forms]![frm_Main]![srch_Date_To_3],#12/30/2100#)));

حيث اننى حاولت الاستفادة من الكود لتصدير ناتج الاستعلام للاكسيل ولم افلح

مشكور اخى فى الله

[Radwan0]

1 ساعه مضت, محمد احمد لطفى said:

طب جرب 

 

On Error Resume Next
'DoCmd.OutputTo acOutputTable, "Data", acViewPreview
 DoCmd.SetWarnings False
' EXPORT_TO_EXCEL_01
 DoCmd.RunSQL "SELECT [name],[phone],[date] INTO Access IN'" _
    & CurrentProject.Path & "\bb'[Excel 8.0;HDR=yes;] FROM qyrcustomer"

 MsgBox "تم تصدير الجدول بنجاح إلى نفس مجلد قاعدة البيانات سيتم فتح المجلد الآن... "
On Error GoTo 1
Application.FollowHyperlink CurrentProject.Path
1:
DoCmd.SetWarnings True

من موضوع 

 

 

 

هو المطلوب اخي الكريم

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

فضلا وليس امرا .. كيف بالامكان التصدير الى ملف Xlsx وليس xls

سؤال ثاني كيف اجعل الملف ياخذ الاتجاه من اليمين الى اليسار وليس العكس وكيف بالامكان اختيار نوع الخط

[kkhalifa1960]

تفضل أخي مثال للاستاذ رمهان شغال تمام . 

BabaTest.accdb

[Radwan0]

شكرا اخي خليفه لمن المثال اللي تفضل به اخي محمد هو المطلوب

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

[Radwan0]

للرفع

[Radwan0]

في 5‏/3‏/2023 at 22:06, Radwan0 said:

شكرا اخي خليفه لمن المثال اللي تفضل به اخي محمد هو المطلوب

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

للرفع 

[kanory]

6 ساعات مضت, Radwan0 said:

للرفع 

كثرة الامثلة في الردود ...

اين مثالك اخي رضوان الذي اعتمدته انت

كي ننظر في سؤالك الثاني

[Radwan0]

في 5‏/3‏/2023 at 20:02, محمد احمد لطفى said:

طب جرب 

 

On Error Resume Next
'DoCmd.OutputTo acOutputTable, "Data", acViewPreview
 DoCmd.SetWarnings False
' EXPORT_TO_EXCEL_01
 DoCmd.RunSQL "SELECT [name],[phone],[date] INTO Access IN'" _
    & CurrentProject.Path & "\bb'[Excel 8.0;HDR=yes;] FROM qyrcustomer"

 MsgBox "تم تصدير الجدول بنجاح إلى نفس مجلد قاعدة البيانات سيتم فتح المجلد الآن... "
On Error GoTo 1
Application.FollowHyperlink CurrentProject.Path
1:
DoCmd.SetWarnings True

من موضوع 

 

 

 

هذا اخي

[kanory]

3 ساعات مضت, kanory said:

كثرة الامثلة في الردود ...

اين مثالك اخي رضوان الذي اعتمدته انت

كي ننظر في سؤالك الثاني

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

Sub FormatExcelOut(FileName As String)
Dim i As Integer
    Set objapp = CreateObject("Excel.Application")
    objapp.Visible = False
    Set wb = objapp.Workbooks.Open(FileName, True, False)
    
    
    For Each ws In wb.Worksheets
         
         With ws
         .DisplayRightToLeft = True
         .Application.DisplayAlerts = False

            .usedRange.Borders.LineStyle = 1
            .Columns.Font.Name = "Arial"
            .Columns.Font.Size = 12
            .Columns.Font.Bold = True
            .Range("A1:E1").RowHeight = 20
            .Tab.Color = 15656192 '
            .usedRange.Columns.AutoFit
            .usedRange.HorizontalAlignment = 3
            .usedRange.Columns(1).Interior.Color = vbYellow

     End With
     Next
    
    wb.Save
    objapp.Quit
    Set objapp = Nothing
    
End Sub

 

[kkhalifa1960]

استاذ رضوان ممكن ترفع لنا مثالك بعد تطبيق الوحدة النمطية الاخيرة للاستاذ kanory .

[Radwan0]

@kkhalifa1960 @kanory

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

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

عند الدخول الى نموذج EXCEl والضغط على زر التصدير الى اكسل

قمت باستخدام هذا الكود 

Private Sub Excel_Click()
On Error Resume Next
'DoCmd.OutputTo acOutputTable, "Contacts", acViewPreview
 DoCmd.SetWarnings False
' EXPORT_TO_EXCEL_01
 DoCmd.RunSQL "SELECT [Last Name],[First Name],[E-mail Address] INTO Access IN'" _
    & CurrentProject.Path & "\bb'[Excel 12.0 XML;HDR=yes;] FROM qyrcustomer"

 MsgBox "O.k"
On Error GoTo 1
Application.FollowHyperlink CurrentProject.Path
1:
DoCmd.SetWarnings True
End Sub

 

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

اختيار نوع الخط

اختيار حجم الخط

وايضا تنسيق التباعد بين الاعمدة

 

Database1.accdb

[kanory]

23 ساعات مضت, Radwan0 said:

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

اختيار نوع الخط

اختيار حجم الخط

وايضا تنسيق التباعد بين الاعمدة

طيب شوف كدة .....

 

kan_b.accdb

[Radwan0]

@kanory اخي العزيز حصلت على الخطأ التالي

[kanory]

جرب المرفق التالي ................

 

Database1 (15).accdb

[kanory]

اذا لم يعمل معك ...

انقل الاكواد للمثال لديك ... وجرب

[Radwan0]

@kanory الف شكر لك اخي الكريم فعلا هذا المطلوب 

@محمد احمد لطفىشكرا لك اخي العزيز على المساعده ايضا