Could not Update currently lock by other session on this computer

[jamesnkk]

Hi, every time I run the below statement, it display error message "Could not Update , currently lock by other session in this computer.

I am running on a stand-alone PC.

Dim rst As New ADODB.Recordset, sqlstmt As String
 
sqlstmt = "SELECT * from tblvndprod where productID=" & Me.ProductID
 
rst.Open sqlstmt, CurrentProject.Connection, adOpenDynamic, adLockOptimistic
 
 With rst
    If Not .EOF Then
    ![Unit] = Me.UnitMeasurement
    .Update
    End If
 End With
 
   rst.Close
   Set rst = Nothing

[jamesnkk]

Hi, every time I run the below statement, it display error message "Could not Update , currently lock by other session in this computer.

I am running on a stand-alone PC.

Dim rst As New ADODB.Recordset, sqlstmt As String

sqlstmt = "SELECT * from tblvndprod where productID=" & Me.ProductID

rst.Open sqlstmt, CurrentProject.Connection, adOpenDynamic, adLockOptimistic

With rst
If Not .EOF Then
![Unit] = Me.UnitMeasurement
.Update
End If
End With

rst.Close
Set rst = Nothing

I realize I have a tab control form which consist of Page 1 and Page 2.
If I do an update on Page 1, while Page 2 is open, error message occur.

Bit, If I remove Page 2, everything work well. Is there anyway I could temporary
disable or close the table on Page 2 without removing page 2 ?

[NeoPa]

As a full member now, you should know that we expect your code to be posted in [code] tags (See How to Ask a Question).
This makes it easier for our Experts to read and understand it. Failing to do so creates extra work for the moderators, thus wasting resources, otherwise available to answer the members' questions.
Please use the tags in future.

ADMIN.

[NeoPa]

Hi, every time I run the below statement, it display error message "Could not Update , currently lock by other session in this computer.

I am running on a stand-alone PC.

Dim rst As New ADODB.Recordset, sqlstmt As String
 
sqlstmt = "SELECT * from tblvndprod where productID=" & Me.ProductID
 
rst.Open sqlstmt, CurrentProject.Connection, adOpenDynamic, adLockOptimistic
 
 With rst
    If Not .EOF Then
    ![Unit] = Me.UnitMeasurement
    .Update
    End If
 End With
 
   rst.Close
   Set rst = Nothing

The first thing that jumps out is that .Update is a DAO (not ADODB) function. Your Dim line declares the recordset as ADODB.
Also, a .Update must follow a .Edit. Your code has no visible .Edit.
The multi-page issue may well be a part of this also (seems likely) but clear away the obvious before trying to sort out the less so.