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

[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