نقل قول نوشته شده توسط eb_1345 مشاهده تاپیک
سلام
مطمئناً اگر کدها را در جای خودشان بدرستی بکار برده باشید نباید مشکل خاصی ایجاد شود . بالاخره وقتی شما سابروتین مربوطه را فرا میخوانید بعد از آن باید کرسر در همان کنترل فعال ظاهر شود و اگر ظاهر نمی شود با بکار بردن قطعه کد 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}" مشکل حل شد .ولی بقول شما به احتمال زیاد دلیل ناپدیدشدن کرسر و مشخص نبودن کنترل فعال بر میگرده به اشکال در کد نویسی من که باید سرفرصت بطور اساسی کدهارا چک کنم
ممنون