Q: I'm trying to loop through an access table while comparing field value to one another testing if they are in sequence order. If test sequence is is not true then add on to the previouse field value and assign it to a text box. below is the code; Can anyone convey as to why I recieve this error message:Item not found in this collection. (Error 3265)

An attempt to reference a name in a collection failed.
Possible causes:


  Set rstD = CurrentDb.OpenRecordset("SELECT ACCOUNT FROM [20XXXX1]", dbOpenDynaset)
   Set rstD2 = CurrentDb.OpenRecordset("SELECT ACCOUNT FROM [20XXXX1]", dbOpenDynaset)

rstD.MoveFirst
rstD2.MoveFirst



For i = 0 To rstD.RecordCount + 1

  For j = 0 To rstD.RecordCount + 2

      If rstD.Fields(j).Value - rstD.Fields(i).Value > 1 Then
            ACCOUNT.Value = Val(rstD.Fields(i).Value) + 1
          Exit Sub
      End If
       rstD.MoveNext
      Next j
    rstD2.MoveNext
 Next i

rstD.Close
rstD2.Close
Set rstD = Nothing

Hi hadenyiyi,

rstD.MoveFirst
rstD2.MoveFirst
This code above is not needed since the recordset will automatically in the first location.


rstD.RecordCount
This code is used to count how many rows of record you have inside rstd.

rstD.Fields(j).Value
This code is used to referencing (j-1)th column at certain row.

I guess your code get error since you accessing the column that may not available.

But I don't get what is your code going to do??