السلام عليكم ..
إخواني ، بعد بحث طويل في الانترنت ، وفي المواقع الأجنبية .. وجدت الدالة اللي طال البحث عنها :D
وهي دالة البحث عن سجل معين ، بعد إدخال الكلمة المراد البحث عنها في مربع النص
يتم البحث عنها في السجلات ، ولكن !!
المشكلة التي واجهتني عندما أقوم بالبحث عن قيمة غير متوفرة في السجلات ، يتم مسح كل شيء في الفورم ، من Text Box و أزرار وغيرها ، لا يبقى إلى الإطار ..
هل هناك طريقة تُظهر لي رسالة تقول أن الشيء الذي تبحث عنه غير موجود ؟!
وهذه هي الدالة ، وهي تعمل لدي 100%
Dim stfilter As String stfilter = stfilter & "([Invoice_No] Like ""*" & Me.Search_Box & "*"")" Forms![Form_Name].Filter = stfilter Forms![Form_Name].FilterOn = True
أرجو إفادتي ، وشكراً