نوشته شده توسط
amirzazadeh
Like N'" & "%" & Me.TxtNUM.Text & "%"
با سلام به اين شكل امتحان كنيد.
سلام جناب استاد amirzazadeh
امتحان کردم جواب نداد
راستش من از بکار بردن این یک خط کد مربوط به فیلتر کردن در اون قسمت کدها که در پست 1 درج کرده ام منصرف شده و آنرا در قسمت شرط کد اسکیول در داخل متغیر sql قرار دادم
و حالا برای فیلتر کردن رکوردست در ایونت ON Change وقتی سابروتین را صدا میزنم فیلتر انجام میشه ولی کرسر به تکست باکس مربوط به فیلتر کردن بر نمی گردد هر چند در خط آخر کد مربوطه را نوشته ام
با این کد عمل فیلتر انجام نمیشه
Dim s As String, z As Integer
Dim vSearchString As String
vSearchString = TxtSearcher1.Text
z = TxtSearcher1.SelStart
TxtSearcher1 = vSearchString
me.Refresh
TxtSearcher1.SelStart = z
با این کد عمل فیلتر با درج اولین عدد در تکست باکس انجام میشه ولی کرسر برای درج بقیه عدد ناپدید میشود باتوجه به اینکه فوکوس بر روی تکست باکس TxtSearcher1 می باشد .
Dim s As String, z As Integer
Dim vSearchString As String
vSearchString = TxtSearcher1.Text
z = TxtSearcher1.SelStart
TxtSearcher1 = vSearchString
call ........
TxtSearcher1.SelStart = z
در جلوی Call نام سابروتینی که مربوط به باز کردن رکوردست است و در پست اول نوشتم وارد میکنم
درواقع