从 Excel 工作表更新 Access 2007 数据库中的记录时出现问题

Question

我的 Excel 工作簿中有一个宏，用于更新与电子表格相关的 Access 数据库中的特定记录。

如果访问数据库关闭，一切正常。如果数据库打开并且用户正在编辑 Excel 电子表格相关的特定记录，就会出现问题。 我收到以下错误消息：

Error Number 2147467259: 
The database has been paced in a state by user 'ADMIN' on
'LAPTOP' that prevents it from being opened or locked.

我已将数据库表单的记录锁设置为“无记录锁”，但这没有帮助。

非常感谢任何建议或帮助。

干杯 诺埃尔

Public Sub updateAccessRecord()
On Error GoTo ProcError
Dim subFuncName As String
subFuncName = "updateAccessRecord"

Dim conn As ADODB.Connection
Dim cmd As ADODB.Command
Dim rst As ADODB.Recordset

Dim dbName As String
Dim dbPath As String
Dim strCon As String
Dim recID As Long
Dim fieldVal As Double
Dim strSQL As String

fieldVal = Worksheets("House Claim").Cells(593, 10).Value
dbName = "claim-db.mdb"
dbPath = ThisWorkbook.Path & "\..\..\..\..\"
dbPath = dbPath & "\" & dbName

strSQL = "UPDATE tblInsClaimDet SET propSet=" & fieldVal & " WHERE ID=" & recID & ""

   Set conn = New ADODB.Connection
   With conn
    .ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
       "Data Source=" & dbPath
       .Open
   End With
   Set cmd = New ADODB.Command
   With cmd
      .ActiveConnection = conn
      .CommandText = strSQL
   End With
   Set rst = cmd.Execute
   Set rst = Nothing
   conn.Close
   Set conn = Nothing

ExitProc:

   Exit Sub

ProcError:

   MsgBox "Error " & Err.Number & ": " & Err.Description, _
         vbCritical, "Error in procedure in " & subFuncName
   Resume ExitProc
End Sub 

Answer 1

看来你没有把数据库分成前端和后端。如果你这样做了，问题就会消失。 Ctrl+S不是保存一条记录，而是Shift+Enter，它是保存一个数据库对象，所以看起来有把数据库扔到设计或开发状态的效果。

Answer 2

宏观方面；您是否尝试过以只读方式打开连接？即使您的 Access 用户没有锁定记录，他也对该记录具有“读锁”，从而防止 Excel 进行独占锁定。我想如果两个用户都只尝试读取访问，那么应该没问题；但如果其中任何一个正在执行读/写操作，那么它将失败。

在您的访问表单上，您还应该具有：

Me.AllowAdditions = True

Me.AllowDeletions = False

Me.AllowEdits = False

Answer 3

问题可能不在您的代码中。错误：

数据库已处于状态

表示数据库已以独占模式打开。您应该检查打开数据库的方式。