استفاده درست از عملگر like در متد Ado و Dao

[atf1379]

سلام
برای فیلترکردن رکورست با استفاده از عملگر like در متد Ado در یک Continuous Forms بصورت زیر عمل می کنم ولی خطای تصویر ضمیمه صادر میشود



Set rst = New ADODB.Recordset
With rst
.ActiveConnection = Con
.CursorLocation = adUseClient
.CursorType = adOpenKeyset
.LockType = adLockOptimistic
.Open sql, Con, adCmdText
.Filter = "[IDNum] like '*" & Me.TxtNum & "*'"
End With
Set Me.Recordset = rst


بجای * از % استفاده می کنم ولی همین خطا صادر میشود
ممنون میشوم راهنمائی بفرمائید

[mohammadsaleh]

اگر داده فیلد IDNum عددی است لازم نیست از علامت ' استفاده کنید

[atf1379]

اگر داده فیلد IDNum عددی است لازم نیست از علامت ' استفاده کنید

لازم بودنش که حتمی

[amirzazadeh]

Like N'" & "%" & Me.TxtNUM.Text & "%"
با سلام به اين شكل امتحان كنيد.

[atf1379]

Like N'" & "%" & Me.TxtNUM.Text & "%"
با سلام به اين شكل امتحان كنيد.
سلام جناب استاد amirzazadeh (https://barnamenevis.org/member.php?47888-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 نام سابروتینی که مربوط به باز کردن رکوردست است و در پست اول نوشتم وارد میکنم
درواقع

[eb_1345]

و حالا برای فیلتر کردن رکوردست در ایونت ON Change وقتی سابروتین را صدا میزنم فیلتر انجام میشه ولی کرسر به تکست باکس مربوط به فیلتر کردن بر نمی گردد هر چند در خط آخر کد مربوطه را نوشته ام



سلام
مطمئناً اگر کدها را در جای خودشان بدرستی بکار برده باشید نباید مشکل خاصی ایجاد شود . بالاخره وقتی شما سابروتین مربوطه را فرا میخوانید بعد از آن باید کرسر در همان کنترل فعال ظاهر شود و اگر ظاهر نمی شود با بکار بردن قطعه کد MsgBox Screen.ActiveControl.Name بعد از همان تیکه کدی که برای فراخوانی سابروتین درج کرده اید امتحان کن که کنترل فعال کدام است
اگر همچنان مشکلت بقوت خود باقی بود میتوانید بعد از همان کد پیغام خالی ایجاد و با با عبارت SendKeys "{enter}"
از ظاهر شدن پیغام جلوگیری کنید .
اجرای پیغام در واقع کرسر را وادار به نمایش می کند



Dim s As String, z As Integer
Dim vSearchString As String
vSearchString = TxtSearcher1.Text
z = TxtSearcher1.SelStart
TxtSearcher1 = vSearchString

call ........

TxtSearcher1.SelStart = z
SendKeys "{enter}"
MsgBox ""








موفق باشی

[atf1379]

سلام
مطمئناً اگر کدها را در جای خودشان بدرستی بکار برده باشید نباید مشکل خاصی ایجاد شود . بالاخره وقتی شما سابروتین مربوطه را فرا میخوانید بعد از آن باید کرسر در همان کنترل فعال ظاهر شود و اگر ظاهر نمی شود با بکار بردن قطعه کد MsgBox Screen.ActiveControl.Name بعد از همان تیکه کدی که برای فراخوانی سابروتین درج کرده اید امتحان کن که کنترل فعال کدام است
اگر همچنان مشکلت بقوت خود باقی بود میتوانید بعد از همان کد پیغام خالی ایجاد و با با عبارت SendKeys "{enter}"
از ظاهر شدن پیغام جلوگیری کنید .
اجرای پیغام در واقع کرسر را وادار به نمایش می کند



Dim s As String, z As Integer
Dim vSearchString As String
vSearchString = TxtSearcher1.Text
z = TxtSearcher1.SelStart
TxtSearcher1 = vSearchString

call ........

TxtSearcher1.SelStart = z
SendKeys "{enter}"
MsgBox ""








موفق باشی


سلام
ایده جالبی بود ، با کد MsgBox Screen.ActiveControl.Name مشخص شد کنترل فعال همان تکست باکسی است که در آن عمل فیلتر رکوردها انجام میشه که با آن مسیج باکس و کد SendKeys "{enter}" مشکل حل شد .ولی بقول شما به احتمال زیاد دلیل ناپدیدشدن کرسر و مشخص نبودن کنترل فعال بر میگرده به اشکال در کد نویسی من که باید سرفرصت بطور اساسی کدهارا چک کنم
ممنون

[atf1379]

..............................