فراموشی

[roya_borhany]

سلام. من خیلی وقته که دیگه اکسس کار نکردم. لان برای یه کد ساده دچار مشکل شدم و مدام با ارور مواجه میشم. ممنون میشم دوستان کمی راهنماییم کنن
میخوام فیلدهای یک جدول رو استخراج کنم که با select انجتم دادم. حالا میخام دونه دونه رکوردها رو بخونم که شرط گذاشتم while rs.eof = false
حالا میخوام مقدار فیلد رکورد اول رو با مقدار فیلد رکورد دوم مقایسه کنم که اگر برابر بودند اونها رو داخل یک لیستی قرار بده و گزارش بگیره. اینجا رو واقعا نمیدونم چیکارکنم
query هم جواب نداد
ممنون میشم کمی راهنمایی کنید

[Abbas Amiri]

از روش زیر استفاده کنید:


While Not rs.Eof
If rs(fieldName)=CompareValue Then
' Type code
End If
rs.MoveNext
Wend