مشكلة في عمل Filter عن طريق الكود

[alzahrani07]

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

شباب واجهتني جديدة مشكلة وأرفق مثال لها وقت استخدمت الكود التالي :

DoCmd.OpenForm "Form1", , , "TDes IN (" & Me.SB_Num2 & ") AND " _
& "TName LIKE '*" & Me.SB_Name & "*'"

 

مشكلتي في IN لو حبيت أظهر كل السجلات وما كتبت شيء في مربع البحث SB_Num2 يعطيني خطأ ، يجبرني أكتب شي 😡

 

أقدر أستخدم IN و Like في جملة واحدة ؟

بحيث انه إذا ما كتبت شيء يظهر لي كل السجلات كما هو موضح في الجزء الثاني من الكود إذا ما كتبت اسم راح يظهر كل السجلات لإني استخدم Like

 

ملاحظة : ما ينفع استخدم شرط IF واكتب كودين اذا كان فارغ أو كان فيه شيء مكتوب لأسباب يطول شرحها هنا.

Filter.accdb

[أبو عبدالله الحلوانى]

السلام عليكم 

جرب هذا التعديل 

 

Filter.accdb

[alzahrani07]

الله يعطيك العافيه أبو عبدالله حلك صحيح لكن ما ينفعني للأسف مثل ما كتبت الملاحظة في الاخير ما اقدر استخدم IF

والسبب إن في برنامجي فيه مربعات بحث كثير وصعبة أعمل IF لكل واحد بكذا الكود بيطول جداً جداً وراح يتلخبط الكود

[أبو عبدالله الحلوانى]

اذا لماذا لا تحاول ان تستخدم الاستعلام بدل الكود اي تجعل فلترة النتائج من خلال الاستعلام بالفورم 1 ويكون شرط اظهار النتائج هو قيمة الحقل في فورم البحث 

مثل هذا التعديل

 

 

Filter.accdb

[ناقل]

1 ساعه مضت, alzahrani07 said:

الله يعطيك العافيه أبو عبدالله حلك صحيح لكن ما ينفعني للأسف مثل ما كتبت الملاحظة في الاخير ما اقدر استخدم IF

والسبب إن في برنامجي فيه مربعات بحث كثير وصعبة أعمل IF لكل واحد بكذا الكود بيطول جداً جداً وراح يتلخبط الكود

جرب كدة .......

    DoCmd.OpenForm "Form1", , , "TDes LIKE ""*" & Nz(Me.SB_Num.Value, "0") & "*"" or " _
                              & "TName LIKE ""*" & Nz(Me.SB_Name.Value, "0") & "*"" or " _
                              & "TName LIKE ""*" & Nz(Me.SB_Name.Value, "") & "*"" and TDes LIKE ""*" & Nz(Me.SB_Num.Value, "") & "*"""