Bug #555: Lock-problem via ODBC

Wolfgang Frtbauer (w(dot)fuertbauer(at)eunet(dot)at) reports a bug with a severity of 2
The lower the number the more severe it is.

Short Description
Lock-problem via ODBC

Long Description
connecting via Access and ODBC (Driver Version 7.1.9) to an DB Version 7.1.3; in Access Tabeles are embedded;

trying to summarize records with the code below; as far as i can see,
there is no error in the code; but getting an Error Message:
"The Microsoft Jet Database engine stopped the process because you and another user are attempting to change the same data at the same time"

Example:
Values of read record:
? rs!inr, rs!kdnr, rs!jahr, rs!kolltext, rs!agtext
3 80622 1994 HERREN Einzelteile

Values of (to be) updated record:
? rs2!inr, rs2!kdnr, rs2!jahr, rs2!kolltext, rs2!agtext
432 80622 1994 HERREN Einzelteile

and noone else is on the database
maybe this is an follow-up problem of the earlier described data-type problem with ODBC?

Sample Code
Set rs = CurrentDb().OpenRecordset("select * from umsatz")
With rs
Do Until .EOF
SQL = "Select * from umsatz where " & _
" kdnr = '" & !kdnr & "' and jahr = " & !jahr & _
" and kolltext = '" & !kolltext & _
"' and agtext = '" & !agtext & "'" & _
" and inr <> " & !inr
Set rs2 = CurrentDb().OpenRecordset(SQL)
If rs2.RecordCount > 0 Then
rs2.Edit
rs2!netto = rs2!netto + !netto
rs2!nettostamm = rs2!nettostamm
rs2.Update
rs2.Close

.Delete
End If
.MoveNext
Loop
End With

No file was uploaded with this report