Hi, I have an error. When i execut

[simran1]

Hi,
I have an error. When i execute the following code, i get the error at the stmt, ars.Update.
Run time error '-2147217864 (80040e38)'
Row cannot be located for updating. Some values may have changed since it was last read.

But when i am trying to debug this code, i do not get any errors.

aSQL = "SELECT Status.* FROM  "
aSQL = aSQL & " Status  LEFT JOIN Items ON  "
aSQL = aSQL & " Status.ItemID = Items.ID  WHERE "
aSQL = aSQL & " Status.LoginID= " & UserID
aSQL = aSQL & " AND Items.Category = " & Header
aRS.CursorLocation = adUseClient
aRS.Open aSQL, DSN, adOpenDynamic, adLockOptimistic  
Do While Not aRS.EOF()
   aRS.Fields("Status") = Stat
   aRS.Update
   aRS.MoveNext
Loop
aRS.Close

What is this?
I appreciate the time taken to help me out.

 

[Foada]

Try deleting the aRS.Update Line all together. ADO updates the edited record when you move to a new record, which you do with the aRS.MoveNext in the following line. Let me know if this helps. If you choose to battle wits with the witless be prepared to lose.

 

[simran1]

Hi,
I still get the error. Now I get it at the next stmt, i.e., at ars.MoveNext

 

[CajunCenturion]

You might try putting a .MoveFirst immediately after opening the Recordset.

aRS.Open aSQL, DSN, adOpenDynamic, adLockOptimistic  
aRS.MoveFirst
Do While Not aRS.EOF()

Good Luck
--------------
As a circle of light increases so does the circumference of darkness around it. - Albert Einstein

 

[simran1]

Hi,
Still the error at ars.Movenext

 

[petermeachem]

What's the primary key of Status?

Or according to this

http://support.microsoft.com/default.aspx?scid=KB;EN-US;Q300586&

you may have a default value that is messing it up. Peter Meachem
peter @ accuflight.com