پیام خطا

[moghadam1372]

با سلام

من می خواهم که یک فیلد را اپدیت کنم با این کد


sql = "SELECT * from amal WHERE codm = " & (Text1.Text) & ""
Adodc5.RecordSource = sql
Adodc5.Refresh
Dim i As Variant
For i = 1 To Adodc5.Recordset.RecordCount
Adodc5.Recordset.Fields("lastvisit").Value = t1.Text
Adodc5.Recordset.Update
Adodc5.Refresh
Adodc5.Recordset.MoveNext
Next i

فقط دو رکورد را اپدیت می کند وبه رکورد های دیگر این خطا را میدهد

این پیام خطا چه معنی می دهد ؟؟؟


row cannot be locatcd for updating. some values may have been changed since it was last read.

[SlowCode]

Adodc5.Refresh رو حذف کن.
وقتی رفرش میکنی موقعیت رکورد جاری هم ریست میشه. یعنی باعث میشه که نتونی بین رکوردها حرکت کنی. رفرش رو بعد از حلقه بنویس تا تغییرات رو نشون بده.