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

الطريقة الثانية :

تعمل معي بشكل ممتاز وطبيعي

لكن المشكلة لا أعرف ربط نتائج البحث لتظهر لي في تقرير ..

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

في هذه الطريقة استخدمت الكود التالي :

Private Sub SerchItemID_AfterUpdate()



Dim strWhere As String
Dim lngLen As Long



If Not IsNull(Me.SerchItemID) Then
strWhere = strWhere & "([TabItemID] Like ""*" & Me.SerchItemID & "*"") AND "
End If



'*******************************

lngLen = Len(strWhere) - 5
If lngLen <= 0 Then


Else
strWhere = Left$(strWhere, lngLen)
Me.Filter = strWhere
Me.FilterOn = True
End If


End Sub

والنتيجة هكذا 

http://store2.up-00.com/Nov12/cP027793.png

وهنا رابط الملف

لم أستطع تحويل نوع القاعدة فهي من نوع أكسس 2010

ولم أستطع ارفاقها من خلال المنتدى لوجود مشكلة

ولكم جزيل الشكر والتقدير

السلام عليكم

ممكن تحويل الملف الى 2003 للفائدة

للأسف أخي الكريم أشرف لا أعرف طريقة لتحويل الملف لنوع 2003 !!

أعتقد لا يمكن تحويل 2010 الى 2003 !!

أختي الكريمة زهرة 

بصراحة جهدك جميل وقارب للحل لكن للأسف الطريقة لا تعطي نتائج كاملة !

فمثلاً عند بحث بحقل واحد لا يكون الناتج السجل بالتحديد ولكن يتم اظهار عدة سجلات !!

الصورة توضح قصدي

الأخوة الأعزاء

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

والحل هو بنفس طريقة الأخت زهرة ولكن حصل التباس في طريقة التنفيذ

فنظراً لتعدد الحقول ومنعا لحصول التباس وتشابك علينا أن نضع التعبير كالتالي في كل حقل.. وبعدها سيقوم الاستعلام بتكملة تفعيل التعبير تلقائياً :

Like "*" & [Forms]![FormTabItems]![serchItemID] & "*" Or [Forms]![FormTabItems]![serchItemID] Is Null

شكرا للجمع