need insert in recordset the array loop

[sal21]

I have this loop for next...

Code: Select all

 For I = 1 To ORS.Fields.Count - 1
        
        If Not IsNull(ORS(I)) Then
        TEST = ORS(I)
        End If
        
        Next I

i need (one a one) to insert druing the for next the related value of ORS(1) into the rs(0), ORS(2) into the rs(1)...ecc

note:
the fileds are exactlly the same number ORS and rs

Sorry Hans but peraphs i have just posted this question in other ( ) forum, but lost the link.

[HansV]

Does this do what you want?

Code: Select all

For I = 1 To ORS.Fields.Count - 1
  If Not IsNull(ORS(I)) Then
    rs(I - 1) = ORS(I)
  End If
Next I

Don't forget to save the record after the loop, using rs.Update