write data into a field which is located on exact row number

[jack]

Hello, everyone. does anybody can help me out? I want to locate and write
data into the empty field which I konw is on 101 row. there are 5 rows need
be writen.
After debug the row number moved to 283 for some unkown reason.
Set db = CurrentDb
Set rs = db.OpenRecordset("master")
rs.MoveFirst
i = rs.Fields("id").Value
For i = 1 To 100
rs.MoveNext
Debug.Print rs.Fields("id").Value
Next i
Debug.Print rs.Fields("id").Value
For i = 101 To 105
Dim strFile As String
Dim strPath As String
Dim strPathNFile As String
strFile = "\" & rs.Fields("DWG_NAME")
strPath = rs.Fields("FILE_PATH")
strPathNFile = strPath + strFile
rs.Edit
If ReadBLOB(strPathNFile, rs, "IMAGE") Then 'stores the binary data
see modBlob for ReadBLOB function
rs.Update 'update the record
MsgBox "row"+ i + "Success!", vbInformation

Else
MsgBox strPathNFile & "does not exist!", vbExclamation

End If
rs.MoveNext

Next i
rs.Close
db.Close
MsgBox "Congrates All done!"

 

[Alex Dybenko]

hi,
row number depends on sorting, so make sure that you sort table when you
open recordset on it

Anyway - better approach to use some unique identifier to update data, then
row number

--
Best regards,
___________
Alex Dybenko (MVP)
http://accessblog.net
http://www.PointLtd.com

 

[jack]

Thanks a lot, Alex, I am still wonder how to sorting and I have an primary
key is "ID". What should I do? Would you please give me more detail? Have a
good one.

 

[Alex Dybenko]

Hi,
then I suggest you to update records with certain IDs, do not use row number

--
Best regards,
___________
Alex Dybenko (MVP)
http://accessblog.net
http://www.PointLtd.com