فيلتر کردن اطلاعات

[MMR_1344]

با سلام به تمامی دوستان
در برنامه پيوست من برای فيلتر کردن اطلاعت از دستور Where و Like به شکل برنامه پيوست استفاده کردم ولی متاسفانه اجراء نمیشه اگه ممکنه کمک کنيد

[MMR_1344]

برنامه به صورت پيوست مجدداً اصلاح کردم اما بازهم به نتيجه نرسيد

[mpmsoft]

دوست عزیز کد رو اصلاح کردم

    Dim i As Integer

    Dim t As String

    Cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Esfand.mdb;"

    Cnn.CursorLocation = adUseClient

    

    t = "00015110"

    Tbl.Open "Select * From Tbl1 where [No] like '%" & t & "%'", Cnn, adOpenDynamic, adLockBatchOptimistic

    For i = 1 To Tbl.RecordCount

        Debug.Print "No = "; Tbl.Fields("No");

        Debug.Print "Code = "; Tbl.Fields("Code");

        Debug.Print "Time = "; Tbl.Fields("Time")

    Next

[MMR_1344]

با تشکر از شما
ولی دوست عزیز اين هم عمل نکرد

[mpmsoft]

بنده تست کردم و جواب داد

دوست عزیز به خط زیر خوب دقت کنید

کلمه No جزو کلمات کلیدی اکسس می باشد باید اون رو داخل کروشه بزاری

من چند بار تست کردم درست بود و 24 رکورد بر می گردوند

    Tbl.Open "Select * From Tbl1 where [No] like '%" & t & "%'", Cnn, adOpenDynamic, adLockBatchOptimistic