(VB6) run-time error ‘-2147217864(80040e38)’: row cannot be located for updating. Some values may have been changed since it was last read

Question

0.00/5 (No votes)

See more:

i have a process that will update the records of the material. but first it will get the existing records of the material like avail quantity before updating and when i try to update it with the new one. i get an error saying "Run-time error ‘-2147217864(80040e38)’: Row cannot be located for updating. Some values may have been changed since it was last read."

heres my code:

Dim rs As New ADODB.Recordset
Set rs = New ADODB.Recordset
Dim coy As String
If Left(Text4.Text, 3) = "800" Then
For i = 1 To ListView2.ListItems.Count
With ListView2.ListItems(i)
If rs.State <> 0 Then rs.Close
     rs.Open "Select * from Inventory where InventoryID = " & Val(.ListSubItems(6).Text), db, 3, 3
     If rs.RecordCount <> 0 Then
       'get average cost start
        Dim avgcost, Stockqty, newstockqty As Double
        Stockqty = CDbl(rs!AvailQty) * CDbl(rs!unitprice)
        newstockqty = CDbl(.ListSubItems(7).Text) * CDbl(.ListSubItems(8).Text)
        avgcost = (Stockqty + newstockqty) / CDbl(CDbl(rs!AvailQty) + 
CDbl(.ListSubItems(7).Text))
       'get average cost end

       rs!avecost = FormatNumber(avgcost, 3)
       avaiqtyparam = CDbl(rs!AvailQty) + CDbl(.ListSubItems(7).Text)
      rs!AvailQty = CDbl(rs!AvailQty) + CDbl(.ListSubItems(7).Text)
       rs!unitprice = FormatNumber(CDbl(.ListSubItems(8).Text), 5)
       rs!lastupdate = FormatDateTime(DTPicker1.Value, vbShortDate)

       Dim AvgVat, stockvat, nestockvat As Double

       stockvat = CDbl(rs!AvailQty) * CDbl(rs!AvailVAT)
       nestockvat = CDbl(.ListSubItems(7).Text) * CDbl(.ListSubItems(11).Text)
       AvgVat = (stockvat + nestockvat) / CDbl(CDbl(rs!AvailQty) + 
 CDbl(.ListSubItems(11).Text))
       rs!AvailVAT = CDbl(.ListSubItems(11).Text)
       rs!AveVAT = FormatNumber(AvgVat, 3)
       rs.Update
     End If
End With
rs.Close
Set rs = Nothing
Next i

What I have tried:

i have a primary key on my table. and i dont know why this error is ocurring.

Posted 12-Oct-17 17:07pm

Member 13462396

Updated 13-Oct-17 3:47am

Add a Solution

Comments

Member 13462396 13-Oct-17 2:08am

p

1 solution

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Maciej Los · Answer 1 · 2017-10-13T03:46:00

Seems, you're trying to update row which is not in edit mode.

There might be 2 reasons:
1) a recordset is open in static mode
2) you didn't added .Edit instruction.

Here is suggested code:

Case 1 - multiple records

VB

rs.Open "Select * from Inventory where InventoryID = " & Val(.ListSubItems(6).Text)
With rs
    Do While Not .EOF
        .Edit
        'your edits here
        .Update
        .MoveNext
    Loop
End With

Case 2 - single record

VB

rs.Open "Select * from Inventory where InventoryID = " & Val(.ListSubItems(6).Text)
With rs
    .Edit
    'your edits here
    .Update
End With

For further details, please check the documentation:
Open Method (ADO Recordset) | Microsoft Docs[^]
Recordset.Update Method (DAO)[^] - with working example