با سلام به تمامی دوستان
در برنامه پيوست من برای فيلتر کردن اطلاعت از دستور Where و Like به شکل برنامه پيوست استفاده کردم ولی متاسفانه اجراء نمیشه اگه ممکنه کمک کنيد
Printable View
با سلام به تمامی دوستان
در برنامه پيوست من برای فيلتر کردن اطلاعت از دستور Where و Like به شکل برنامه پيوست استفاده کردم ولی متاسفانه اجراء نمیشه اگه ممکنه کمک کنيد
برنامه به صورت پيوست مجدداً اصلاح کردم اما بازهم به نتيجه نرسيد
دوست عزیز کد رو اصلاح کردم
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
با تشکر از شما
ولی دوست عزیز اين هم عمل نکرد
بنده تست کردم و جواب داد
دوست عزیز به خط زیر خوب دقت کنید
کلمه No جزو کلمات کلیدی اکسس می باشد باید اون رو داخل کروشه بزاری
من چند بار تست کردم درست بود و 24 رکورد بر می گردوند
Tbl.Open "Select * From Tbl1 where [No] like '%" & t & "%'", Cnn, adOpenDynamic, adLockBatchOptimistic