كيف أحول SQL الاستعلام الى كود ؟

[خالد عبد المنعم]

اخوانى الاعزاء

كيف اضع ال sql الخاص بالاستعلام فى زر عند النقر فى ال vba

هذا هو الكود

DoCmd.RunSQL [pp].[code], [pp].[1], [pp].[2], [pp].[3], [pp].[4], [pp].[5]
FROM pp WHERE ((([pp].[1])=[enter the number]));

يخرج لى رسالة error

ارجو التعديل عليه

و لكم جزيل الشكر

تم تعديل يونيو 21, 2006 بواسطه admiral

[خالد عبد المنعم]

للرفع

ساعدونى انا خلاص فقدت الامل فى جميع محاولاتى

[rudwan]

هذه ليست جملة استعلام صالحة

قم بتعريف متغير من نوع نص و ليكن k

ثم أسند له القيمة التالية

dim k as string
k="select MyTable.Field1,MyTable.Field2 From MyTable where MyTable.Field3=" & InsertYourConditionHere

docmd.runsql k

[خالد عبد المنعم]

شكرا لك اخى رضوان على الرد

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

فهل من الممكن اضافة ملف مرفق لكى اتمم هذه العمليه و لك جزيل الشكر

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

تم تعديل يونيو 25, 2006 بواسطه admiral

[rudwan]

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

[خالد عبد المنعم]

هذا هو الملف المرفق

اريد حذف الاستعلام و استخدام الكود الذى بداخله داخل ال VBA فأنا اريد وضعه عند الفتح للتقرير

db2.rar

تم تعديل يونيو 25, 2006 بواسطه admiral

[rudwan]

انظر التعديل

db2.rar

[شاهر]

الاستاذ الكريم رضوان

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

مثل هذه المشارك مع خالص امتناني

[خالد عبد المنعم]

شكرا لك اخى رضوان

فأنا يوجد عندى مشكله فى ال vba لانه ينقسم فى عدة اسطر فماذا افعل لهذه الاسطر

على حد علمى انى اضع علامة & فى اخر السطر

ففعلت ذلك و للاسف لا تنفع

هل يوجد شىء لذلك

[rudwan]

ضعه كله في سطر واحد لامانع

[خالد عبد المنعم]

هذا هو الكود لم يعمل فى سطر واحد

تم تعديل يونيو 26, 2006 بواسطه admiral

[rudwan]

احفظ كل هذه الجملة في استعلام , ثم استعمل الكود

select MyQuery.* from myquery

[خالد عبد المنعم]

انا عايز اهرب من من عمليه الاستعلام لعدم دخول احد عليه

[rudwan]

اذا ضع الكود السابق بأكمله

[خالد عبد المنعم]

شكرا لك اخى رضوان

اما بالنسبه لمشكلتى فأنا لم اضع هذه العلامه _ بعد & فبهذه الطريقه انقسمت لاكثر من سطر

و حلت المشكله

و ذادك الله علما و معرفه

اخى شاهر ممكن توضيح اكثر

ماذا عن تحويل الاستعلام

هل تقصد بـ الـ VBA

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

[شاهر]

اقصد تحويل جملة sql داخل VBA حتي لايمكن تعديلها وتكون اسراع

[خالد عبد المنعم]

اخى العزيز شاهر

مثلما قال الاخ رضوان

ضع الكود بعد كلمة

me.recordsource

[شاهر]

اخي العزيز هذا هوالمثل الذي حله الاستاذ رضوان بارك الله فيه واطاالله عمره

ارجو المحاوله في جعل الاستعلامات كماقلت جملة اسكيول داخل VBA

_________________________________.rar

تم تعديل يونيو 28, 2006 بواسطه شاهر

[خالد عبد المنعم]

اخى العزيز شاهر

اليك هذا الكود للاستعلام الاول EMP ضعه فى الـ VBA

Me.RecordSource = "SELECT EMP.listNO, EMP.Serial, EMP.Name, EMP.ID FROM [EMP]WHERE EMP.listNO=[forms]![list]![listno];"

و اتمنى اكون وفقت فى هذا الكود و اشكر معلمنا و استاذنا رضوان على كل المشاركات

شكرا جزيلا اخى رضوان

و بذلك الكود منعت الاستعلامات نهائيا

و حماية الVBA بالباسورد

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

و ادخاله بالـ VBA ؟

تم تعديل يونيو 28, 2006 بواسطه admiral

[شاهر]

هكذا جميل لاكن المشكله والصعوبه في الاستعلام الثاني

التمناء المساعده في حل الاستعلام الثاني كما عملة الاستعلامemp

مع خالص الاحترام