تصدير مصدر سجلات نموذج

[محمد القدسي]

السلام عليكم

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

بحثت ولم اجد المطلوب او اني لم اوفق للطرقة الصحيحة للبحث

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

[essam rabea]

منذ ساعه, محمد القدسي said:

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

الق نظرة على هذا ربما يفيدك

 

[محمد القدسي]

اشكرك اخي على تجاوبك لاكن الموضوع الذي اشرت اليه لابد من تصميم استعلام وانا لا اريد هذا وانما اريد تصدير مصدر سجلات النموذج بدون ان اصمم استعلام خارجي يكون مصدر للنموذج

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

 

اشكرك اخي على تجاوبك لاكن الموضوع الذي اشرت اليه لابد من تصميم استعلام وانا لا اريد هذا وانما اريد تصدير مصدر سجلات النموذج بدون ان اصمم استعلام خارجي يكون مصدر للنموذج

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

 

[AlwaZeeR]

تفضل

مع تغيير ما يلزم بما يناسبك

Dim strSQL As String
Dim DBs As Database
Dim Qdf As QueryDef
strQry = "REPORT_QUERY"
Set DBs = CurrentDb
Set Qdf = DBs.CreateQueryDef(strQry)
'=== هنا مصدر السجلات على شكل جملة اس كيو ال
SQLStr = " SELECT EmpTbl.ID, EmpTbl.EmpName, EmpTbl.Begin_Date " & _
" FROM EmpTbl;"

Qdf.SQL = SQLStr

DoCmd.TransferSpreadsheet acExport, , _
strQry, "D:\MQudsy.xls", True, _
"Mpage1"

DoCmd.DeleteObject acQuery, strQry

 

 

[محمد القدسي]

اشكرك اخي على تعاونك ولاكن ظهر لي خطأ كما في الصورة المرفقة

[AlwaZeeR]

تفضل هذا مثال بطريقتين

تصدير مصدر الى ملف اكسل موجود

تصدير مباشر مع انشاء ملف اكسل

===

بالنسبة للخطأ خطأ في تعريف المتغير

الكود ينقصه ذلك

Dim strQry As String

 

TestDB.mdb

تم تعديل يونيو 11, 2019 بواسطه AlwaZeeR

[محمد القدسي]

اشكرك استاذي

المرفق اشتفل تمام ولاكن شغلته عندي يظهر نفس الخطا 

ولا ادري عن السبب

[محمد القدسي]

اشكرك استاذي اشتغل معي 

ولاكن لي طلب هل يمكن تصدير اسماء الحقول بالعربي

ولو اثقلت عليك اخي الغالي

[AlwaZeeR]

العفو

نعم يمكن 

بهذه الطريقة 

'=== هنا مصدر السجلات على شكل جملة اس كيو ال
SQLStr = " SELECT EmpTbl.ID as [رقم الهوية], EmpTbl.EmpName As [اسم الموظف], EmpTbl.Begin_Date As [التاريخ] " & _
" FROM EmpTbl;"

 

[محمد القدسي]

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