使用VBA更新MS Access数据表失败，尝试多种方法仍未生效

首先，你遇到的核心问题是错误被屏蔽+SQL语句存在多处语法/逻辑错误，导致更新失败但你完全看不到提示。咱们一步步拆解并修复：

为什么没有报错？ #

你开头用了DoCmd.SetWarnings False，这会屏蔽Access所有的操作警告和错误提示——哪怕SQL写得完全不对，也不会弹出任何提示，直接静默失败。这是调试的大忌，建议开发阶段先把这句注释掉，或者执行完后立刻恢复警告。

你的SQL语句里的具体问题 #

我帮你找出了几个关键错误：

1. 语法错误：WHERE前多了逗号
   你的SQL里[Sold To] ='" & empname & "', where这部分，where前面的逗号是多余的，这会直接导致SQL解析失败，根本不会执行更新。
2. 变量名不匹配
   • 你定义了ecode As String，但代码里用的是ecod（拼写错误）
   • 你定义了emname As String，但SQL里写的是empname，应该用emname
3. 日期字段格式错误
   Access的日期型字段必须用#包裹，而不是单引号。你现在把日期变量bod用单引号括起来，会被当成字符串，无法正确匹配或写入日期字段。
4. 字段类型不匹配
   如果Asset-ID是数字类型，不能用单引号包裹price1k；同理如果Code是数字类型，也不该用单引号，否则会导致类型不匹配，找不到对应的记录。
5. CurrentDb.Execute未启用错误提示
   CurrentDb.Execute默认不会抛出错误，需要加上dbFailOnError参数才能在执行失败时触发错误提示，方便调试。

修正后的代码 #

我把所有问题都修复了，还加上了错误处理和警告恢复：

Dim bod As Date
Dim assets As String
Dim emname As String
Dim ecode As String
Dim Astatus As String
Dim strSQL As String
Dim price1k As Variant ' 根据Asset-ID的类型调整，数字就用Long/Integer
Dim ecod As Variant ' 对应Code字段的类型

Astatus = "SOLD"
msaved = True

' 开发阶段先关闭SetWarnings，调试完可以去掉，或者记得恢复
'DoCmd.SetWarnings False

On Error GoTo ErrorHandler ' 启用错误捕获

bod = Me.datetime.Caption
price1k = Me.cmbox1_1AID.Value
emname = Me.empname.Value
ecod = Nz(Me.code.Value, 0) 

' 构建正确的SQL语句，处理单引号转义避免语法错误
strSQL = "UPDATE [Asset E7450 List] " & _
         "SET Code = " & IIf(IsNumeric(ecod), ecod, "'" & Replace(ecod, "'", "''") & "'") & "," & _
         "[Date & Time] = #" & Format(bod, "yyyy-mm-dd hh:nn:ss") & "#," & _
         "Status = '" & Replace(Astatus, "'", "''") & "'," & _
         "[Sold To] = '" & Replace(emname, "'", "''") & "' " & _
         "WHERE [Asset-ID] = " & IIf(IsNumeric(price1k), price1k, "'" & Replace(price1k, "'", "''") & "'")

' 使用CurrentDb.Execute并启用错误提示
CurrentDb.Execute strSQL, dbFailOnError

MsgBox "Booking Request Accepted", vbInformation

ExitHandler:
    DoCmd.SetWarnings True ' 恢复警告
    Exit Sub

ErrorHandler:
    MsgBox "更新失败：" & Err.Description, vbCritical
    Resume ExitHandler

额外调试建议 #

1. 先单独把生成的SQL语句打印出来，直接在Access的查询设计里执行，看是否能正确更新：

   Debug.Print strSQL ' 按Ctrl+G打开立即窗口查看SQL
   

2. 确认price1k的值确实存在于[Asset E7450 List]的Asset-ID字段中——如果找不到匹配的记录，SQL也会执行成功但不会更新任何行。
3. 检查字段权限：确保当前用户有数据表的更新权限。

内容的提问来源于stack exchange，提问作者Amit jha