كيف يمكن إضافة حقلين إلى الاستعلام برمجيا عن طريق كود

اليك التعديل

t_prog.rar

ما شاء الله عليك 100% وجزاك الله خير

تمت الاجابة اخي ابو يوسف ولكن لي سؤال اذا ممكن :

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

هل ممكن اضافة حقل آخر غير نعم ولا الى الكود ؟ مثلا حقل من نوع نص وحقل رقمي مع السؤال على قيمة الحقل قبل تنفيذ الاستعلام مثال :

f1 = a

f2 = 2

مرفق بالمثال.

وجزاك الله خير فقد حلت المشكلة لدي على كل الاحوال

تقبل تحياتي

t_prog1.rar

تم عمل المطلوب وأحببت أن أرفق لكم المثال بعد التعديل

لاضافة حقل من نوع رقم أو نص

f1 = a

f2 = 2

تم اضافة الاكواد التالية للمثال :

If Me.Fild_M = "f2" Then strSQL = strSQL & IIf(Len(Me.Fild_C & "") > 0, " and ", "") & Me![Fild_M] & "=" & "" & "2" & " "
If Me.Fild_M = "f1" Then strSQL = strSQL & IIf(Len(Me.Fild_C & "") > 0, " and ", "") & Me![Fild_M] & "=" & "" & "'a'" & " "

شاكر لك أخي ابو يوسف جهدك وجزاك الله خير ..

تحياتي للجميع

t_prog2.rar