Question

I have an Access application which use SQLServer 2008 R2 as database.

When I try to update a single record I get this error:

“3179 the microsoft Jet databse engine stopped the process because you
and another user are attempting to change the same data at the same
time”

This error append only on this particular record (and a few others) and append every time I try to update it.
The application (and db) runs as single user and I don’t have a thread running at the same time update the same record

I get this error on every machine I try so it should not related to SQLServer.

EDIT
I have try to update the record directy in SQL Server and no problem, the updare it’s ok.

I found that the problem is when I update one of four Text field (es.Note) from Microsoft access.

When i run the script below i have the error only for a particular record (Cod_stabile=6600015) with the others records no
problem. Update for others fields it’s ok, the error there is only with Text fields.

Dim rs as DAO.Recordset
Dim db As DAO.Database
Set db = CurrentDb

. . .

StrSql = "SELECT St_Stabili.* FROM St_Stabili WHERE (St_Stabili.Cod_Stabile='6600015') ;"
Set rs = db.OpenRecordset(StrSql)
rs.Edit
rs!Note = '-'
rs.update  <- error


. . .

StrSql = "SELECT St_Stabili.* FROM St_Stabili WHERE (St_Stabili.Cod_Stabile='6600016') ;"
Set rs = db.OpenRecordset(StrSql)
rs.Edit
rs!Note = '-'
rs.update  <- OK!

Thank you very much

Answer 1

I solved changing the method used to update the TEXT fields:

Dim UpdCommand As ADODB.command
    Set UpdCommand = New ADODB.command
    With UpdCommand
        .ActiveConnection = CurrentProject.Connection
        .CommandType = adCmdText
        .CommandText = "UPDATE St_Stabili SET NoteStabile= ?" _
                                      & ",NoteGenerali = ?" _
                                      & ",NoteConteggio = ?" _
                                      & ",NoteAmministratori = ?" _
                & " WHERE St_Stabili.Cod_Stabile = ?;"

        .Parameters.Append .CreateParameter("NotaSt", adVarChar, adParamInput, 300, Me!NoteStabile_x)
        .Parameters.Append .CreateParameter("NotaGen", adVarChar, adParamInput, 300, Me!NoteGenerali_x)
        .Parameters.Append .CreateParameter("NotaCon", adVarChar, adParamInput, 300, Me!NoteConteggio_x)
        .Parameters.Append .CreateParameter("NotaAmm", adVarChar, adParamInput, 300, Me!NoteAmministratori_x)
        .Parameters.Append .CreateParameter("Cod_Stabile", adVarChar, adParamInput, 15, Me!Cod_Stabile_x)
    End With

UpdCommand.Execute