تمت الاجابة بواسطة (zahrah) تصدير استعلام بعد ان تم تحويله الى جملة SQL

#111 أبريل 2013 في 14:13 صاحب الموضوع

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

=================================

تصدير استعلام بعد ان يتم تحويله الى جملة SQL

الاخوة القائمين على المنتدى اسعد الله مسائكم

اضع بين اديكم هذه المشاركة والتي لم اجد اي موضوع او مشاركة مثيلة لها

في المثال المرفق يوجد جدول واستعلام مبني على الجدول ونموذج والنموذج يوجد به زر امر تصدير الاستعلام الى ملف ورد ويوجد ماكر وظيفته تصدير الاستعلام الى ملف وورد حيث تم تحويل هذا الماكرو الى كود VB ييقوم بنفس مهمة الماكرو ساقوم بوضع خطوات تحويل الماكرو الى كود VB في هذه المشاركة للفائدة لمن لا يعرف ذلك والكل يعلم انه يمكن تحويل الاستعلامات الى جملة SQL ونستطيع تنفيذ هذه الجملة في حدث معي مثل زر امر ( DoCmd.RunSQL )

==================================================================================

هذا الكود وظيفته تصدير الاستعلام الى ملف وورد وهو الموجود بالملف المرفق

DoCmd.OutputTo acQuery, "Query", "RichTextFormat(*.rtf)", "Table.rtf", True, "", 0

هذا الاستعلام على هيئة جملة SQL

SELECT Table.ID, Table.Name, Table.Jop, Table.Order, Table.Date
    FROM [Table];

هذا الاستعلام بعد تحويله من جملة SQL الى كود VBA وتم تحويله من خلال ملف من برمجة الاخت الغالية ام عهود زهــ Zahrah ــره العبدالله جزاها الله كل خير ستجدوه بالمرفقات

strSQL = "SELECT Table.ID, Table.Name, Table.Jop, Table.Order, Table.Date " & vbCrLf & _
    "FROM [Table];"

==================================================================================

المطلوب :

اعادة صياغة كود التصدير بحيث يتم استبدال اسم الاستعلام بالجملة التي تم تحويلها من الاستعلام الى SQL

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

==================================================================================

الفائـــــــــــــــدة

للعلم اذا تم التوصل الى حل لهذا الموضوع فسيكون ذو فائدة كبيرة لكل من يحتاج الى حماية اعماله في مجال برمجة الاكسيس حيث الكل يعرف ان الجداول والاستعلامات والماكــMacroـــرو يبقى التعديل عليها متاح حتى لو تم تحويل القاعدة من MDB الــــى MDE اذا هنا سيتم التغلب على حماية الاستعلامات وايضا الماكــMacroـــرو وللعلم تستيع تحويل اي ماكــMacroـــرو الى كود تضعه في امر لزر او حتى وحدة نمطية وذلك من خلال النقر على الماكرو المراد تحويل من قائمة الخيارات Tools ثم Macro ثم ستجد خيار Convert Macros To Visual Basic ثم بعد ذلك اضغط موافق وبعد ذلك ستجد الماكــMacroـــرو تم تحويله الى وحدة نمطية

خطوات تحول الماكرو الى كود VBA بالصور:

الملف المرفق يحتوي على ملف القاعدة الهدف + صور الموضوع + ملف الاخت زهره العبدالله لتحويل جملة الإستعـلام SQL الى كــود VBA

تصدير SQL.rar

تم تعديل هذه المشاركة بواسطة ashraf2011 في 11 أبريل 2013 في 23:32

#211 أبريل 2013 في 18:26

تفضل اخي الكريم : اشرف

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

لا يوجد اي استعلام في قاعدة البيانات ولكننا سوف نقوم بإنشاء الإستعلام المؤقت لحظيا بناء على جملة الإستعلام ثم يتم تصدير الإستعلام الى ملف وورد ثم حذف الإستعلام المؤقت خلال ثانية واحده فقط بدون ان تشعر بذلك .

Private Sub Export_Click()
On Error GoTo Err_Export_Click
 
Dim db As Database
Dim qry As QueryDef
Dim strSQL As String
 
 
strSQL = "SELECT Table.ID, Table.Name, Table.Jop, Table.Order, Table.Date FROM [Table];"
Set db = CurrentDb()
Set qdf = db.CreateQueryDef("NewQuery", strSQL)
 
DoCmd.OutputTo acQuery, qdf.Name, "RichTextFormat(*.rtf)", "Table.rtf", True, "", 0
DoCmd.DeleteObject acQuery, qdf.Name
 
Exit_Export_Click:
Exit Sub
 
Err_Export_Click:
MsgBox Err.Description
Resume Exit_Export_Click
End Sub

za-Export SQL-UP.rar

post-15367-087183200%201340344597.gif

بعض من المواضيــع الممـيزه

post-15367-027053900%201340345097.gif

#311 أبريل 2013 في 23:23

جعله الله في ميزان حسناتك اختي ام عهود نعم هذا هو المطلوب

تم تعديل هذه المشاركة بواسطة ashraf2011 في 12 أبريل 2013 في 00:11

تمت الاجابة بواسطة (zahrah) تصدير استعلام بعد ان تم تحويله الى جملة SQL

مواضيع مشابهة

عدد الزوار حالياً