Printable View
با سلام و احترام
من یک فرم دارم که جستجوی کلمات لجظه ای رو انجام میدهد بین اون دیتایی که دارم فرمم از یک سابفرم هم تشکیل شده است، که با query اون سرچ انجام شده و مقداری کد نویسی.
الان مشکلی که هست وقتی تو اون فرم که به نوعی مثل تیبل هم هست وقتی ستونی را فیلتر میکنم و بعدش از فیلتر در میارم دیگه عمل سرچ به صورت کلمه ای دیگه انجام نمیشه تو حالت عادی حتی یک حرف هم وارد میکنم خودش به صورت خیلی سریع می گرده.
به نظرتون این مشکل رو چطوری باید رفع کنم؟
با سلام
من یک نمونه قرار دادم لطفاً ملاحضه میکنید ببینید مشکل از چیست تو حالت آدی وقتی یک حروف اسم فرد رو وارد میکنید سرچ عمل میکنه ولی وقتی فیلتر میکنید یک فیلد رو و سپس از حالت فیلتر بر میدارید دیگه سرچ کار نمیکنه
frmsearch رو ببینید.
ملاحظه = ملاحضه؟
عادی= آدی؟
سلامنقل قول:
نوشته شده توسط mohammadsaleh
بله ببخشید اشتباه شد، راه حلی هست که اون مشکلی که گفتم درست بشه؟! من خیلی استفاده میکنم از این سرچ و وقتی ستونی را فیلتر میکنم و از حالت فیلتر در میارم دیگه سرچ عمل نمیکنه. مشکل از چیست؟
ــــــــــــــــــــــــنقل قول:
نوشته شده توسط parsa70
سلام. خسته نباشید. من پیشنهاد می کنم شما در خصوصیات فرمتون نوار نویگشین باتن )navigation buttons رو فعال کنید و روی حالت yes قرار بدید و جستجوی خودتون رو در اونجا انجام بدین. من روی فایل شما تست کردم و جواب گرفتم. فکر می کنم حتی اگر جستجوی خودتون رو با ctrl+f انجام بدین بهتر جواب می گیرین تا از تکست باکسی که خودتون قرار دادید.
سلام نه اون جوری که گفتید نمی خوام، میخوام همینجوری باشه ولی از فیلتر در آوردم باز کار کنهنقل قول:
نوشته شده توسط sadafminoo
کار ساده رو بی دلیل پیچیده کردین!
از نمونه پیوست استفاده کنین
ضمیمه 150797
Option Compare Database
Option Explicit
Private Sub BtnClear_Click()
ClearFilter
End Sub
Private Sub Form_Load()
ClearFilter
End Sub
Private Sub SearchText_Change()
Me.Names.Form.RecordSource = "SELECT * FROM NAMES WHERE FullName LIKE '*" & Me.SearchText.Text & "*' ORDER BY FullName"
End Sub
Sub ClearFilter()
Me.SearchText = ""
Me.Names.Form.RecordSource = "SELECT * FROM NAMES ORDER BY FullName"
Me.SearchText.SetFocus
End Sub
برنامه نمونه
سلام خیلی ممنوننقل قول:
نوشته شده توسط mazoolagh
اینو میتونید تو اون فایل من اجرا کنید؟ من هرکاری میکنم نمیشه البته من مبتدی هستم
همین رو اوستا کنین!
سلام و عرض ادب خدمت اساتید گرامی
فایل زیپ شده ضمیمه در پست استاد mazoolaghچرا باز نمیشه و ارور میده ؟
سلام و روز خوشنقل قول:
نوشته شده توسط G.hemati
من دوباره هم چک کردم - مشکلی نبود
از چه ورژن اکسس استفاده میکنین؟
سپاس فراوان, ایراد از برنامه Winrar بنده بود و حل شد .نقل قول:
نوشته شده توسط mazoolagh