جستجو و امکان باگشت در Ado

[M_P_1374]

من برای جستجو با Ado از خاصیت Filter استفاده کردم ولی وقتی جستجو رو تموم میکنم دیگه به حالت اول برنمیگرده این کدشه


Private Sub Text1_Change()
Adodc1.Filter = Text1.text
End Sub

حالا اگه فیلد تکست رو یه بار پر کنم و دوباره خالی کنم دیگه توی گرید چیزی نشون نمیده میشه بگین چیکار کنم

[xxxxx_xxxxx]

مي خواين وقتي تكست خالي شد همه ركوردها تو گريد بيان. يعني عمل فيلتر غير فعال شه؟
يك شرط بزارين كه اگر Len تكست بزرگتر از 0 بود اونوقت فيلتر شه و اگر 0 بود Adodc1.RecordSource دوباره ست بشه.
موفق باشيد/