تحويل الاستعلام الى كود

[m.r]

السلام عليكم :

اخوتي اذا يحصل اريد تحويل الاستعلام الى كود / او كود اخفاء الاستعلام/حتى احمي الاستعلام من الاستيراد

[sandanet]

تفضل اخي الكريم هذا برنامج يحول عبارة الـ sql الى vba 

SQL2VBA.accdb

[m.r]

عاشت ايدك خوية سند

[m.r]

خوية سند هذا البرنامج اشلون اشتغل عليه

[sandanet]

اخي الكريم انظر للصورة التالية

 

[m.r]

خوية سند اكو مشكلة يمي تطلع بس كتابة امظلله اسود

تم تعديل ديسمبر 4, 2019 بواسطه m.r
توضيح

[sandanet]

نعم انسخها واذهب الى البرنامج اعلاه وقم بوضع الكود المنسوخ في خانة sql ثم قم بالضغط على convert sql to vba 

[m.r]

خوية سند هذا الخطا شنو مشكلته

[sandanet]

ارفق ملفك اخي الكريم 

[m.r]

خوية سند هذا الكود يكول خطأ /

خوية هذا الاستعلام من يتحول الى كود وين يكون موقعة حتى يعمل بصورة صحيحة

[sandanet]

ضعه تحت حدث عند فتح النموذج او حدث عند النقر لزر أمر  وليس كما في الصورة السابقة

إليك المثال التالي .. تم وضع استعلام حذف سجل تحت حدث "بعد التحديث" لمربع نص اسمه Text35

Private Sub Text35_AfterUpdate()
On Error GoTo Err_Text35_AfterUpdate

        DoCmd.SetWarnings False
        DoCmd.RunSQL "DELETE time_over_chosen.id, time_over_chosen.time_over FROM time_over_chosen"
		DoCmd.SetWarnings True

Exit_Text35_AfterUpdate:
    Exit Sub

Err_Text35_AfterUpdate:
    Beep
    DoCmd.CancelEvent

    Resume Exit_Text35_AfterUpdate

End Sub

نصيحة: استخدم الاحرف الانجليزية دائماً عند تسمية الاعمدة والجداول لكي يسهل عليك مستقبلاً تعديلها ولتجنب حدوث مشاكل في البرنامج

تم تعديل ديسمبر 6, 2019 بواسطه sandanet

[m.r]

خوية هذا الخطا اشلون احله

 

[sandanet]

اخي الكريم ارفق ملفك لكي يتم التأكد من الاستعلام

[m.r]

خوية سند هذا المثال

مثال.accdb

[أبوبسمله]

السلام عليكم

بعد اذن الاستاذ sandanet وجزاك الله خيرا على البرنامج الجميل لابو ساره جزاه الله خيرا

كل مثال وطريقه لها وضعها الخاص

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

والاستغناء عن الاستعلام

انظر للمثال وافتح النموذج فى وضع التصميم

 

 

مثال.accdb

[sandanet]

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

اما طريقة الكود فهي اكثر تعقيداً فقط

مثال.accdb

تم تعديل ديسمبر 7, 2019 بواسطه sandanet

[عبدالجيد]

السلام عليكم

اريد حل مشكلة استعلام البحث   Like حيث أجد صعوبة في اوفيس 2019 فعند كتابة الجملة فى الاستعلام فى وضع التصميم والذهاب لتشغيل الاستعلام لاتظهر اى نتائج وعند الرجوع مرة أخرى الى الاستعلام فى وضع التصميم أجد كلمة Like  تحولت الى كلمة ALike

[sandanet]

للأسف يا أخي عبدالجيد لا أملك اصدار 2019 لذلك لايمكنني الاطلاع على المشكلة 

[أبوبسمله]

27 دقائق مضت, sandanet said:

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

اما طريقة الكود فهي اكثر تعقيداً فقط

مثال.accdb 412 kB · 6 تنزيلات

جزاك الله كل خيرا استاذى العزيز

تذكرت وكنت اهم بعملها فى ذر امر ليرى فائده التحويل واين يوضع

فوجدتك وضعتها بحدث عند الفتح

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

12 دقائق مضت, عبدالجيد said:

السلام عليكم

اريد حل مشكلة استعلام البحث   Like حيث أجد صعوبة في اوفيس 2019 فعند كتابة الجملة فى الاستعلام فى وضع التصميم والذهاب لتشغيل الاستعلام لاتظهر اى نتائج وعند الرجوع مرة أخرى الى الاستعلام فى وضع التصميم أجد كلمة Like  تحولت الى كلمة ALike

استاذ عبدالجيد اهلا وسهلا بك

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

وان شاء الله اخواننا واساتذتنا يرونها ويحلونها باذن الله وفضله

تقبل تحياتى وتمنياتى لك بالتوفيق

طبتم واهتديتم

[عبدالجيد]

حبيبى أستاذ أحمد

لم أقصد ان افتح موضوع جديد لأننى وجدت موضوع مشابه وكنت أود معرفة سبب المشكلة حيث كان الاستعلام يعمل حتى أوفيس 2016 وعندما قمت بالتحديث لـ 2019 ظهرت المشكلة

وعموما سأضيف موضوع جديد وأرفق الملف ان شاء الله

[عبدالجيد]

رابط الموضوع والملف

 

[m.r]

عاشت ايدك خوية سند / موفق

وعاشت ايدك خوية احمد الفلاحجي/ اشكرك

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

[أبوبسمله]

16 دقائق مضت, m.r said:

عاشت ايدك خوية سند / موفق

وعاشت ايدك خوية احمد الفلاحجي/ اشكرك

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

العفو اخى

هو ليس استعلام مؤقت بل هو نفس الاستعلام ولكن تم حذف الاستعلام وجعل جمله sql  مصدر للنموذج مباشره

هل تقصد هل يؤثر فى حركه سير عمل البرنامج ام لا مثل الا ستعلام العادى قبل الحذف ؟

ان كان هذا قصدك فلا يؤثر باذن الله تعالى

ان كان قصدك غير ذلك فوضح اكثر

تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق

طبتم واهتديتم

[sandanet]

2 ساعات مضت, أحمد الفلاحجى said:

هو ليس استعلام مؤقت بل هو نفس الاستعلام ولكن تم حذف الاستعلام وجعل جمله sql  مصدر للنموذج مباشره

بالضبط كما تفضلت والقصد من استعلام مؤقت هو تعبير مجازي فقط اي ان الاستعلام غير مرئي 

 

2 ساعات مضت, m.r said:

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

هو استعلام عادي جداً 

[m.r]

عاشت ايدك خوية احمد الفلاحجي جوابك هوه المقصود. اشكرك

ايضاً شكراً اخوية سند على ملاحظاته للموضوع