Access未绑定窗体Update命令无法执行，寻求解决方案

问题根源 #

1. 字段名不匹配：你的WHERE子句使用了tblGeräte.IMEI，但设备表中实际存储IMEI的字段是IMEINummer，导致无法定位到要更新的记录。
2. 字符串字段未加单引号：Handynummer是短文本类型，SQL语句中字符串值必须用单引号包裹，直接拼接变量会引发语法错误。
3. 缺少错误捕获机制：没有开启错误处理，执行出错时不会弹出提示，导致误以为“无报错但未执行”。

修正后的VBA代码（带错误处理） #

Dim db As DAO.Database
Dim sql_1 As String
Dim imei As String
Dim handynum As String

On Error GoTo ErrorHandler ' 开启错误捕获

Set db = CurrentDb
imei = Nz(Me.txtIMEI.Value, "") ' 用Nz处理空值，避免拼接出错
handynum = Nz(Me.txtHandyNummer.Value, "")

' 修正字段名，给字符串变量添加单引号
sql_1 = "UPDATE tblGeräte SET tblGeräte.HandyNummer = '" & handynum & "' " & _
        "WHERE tblGeräte.IMEINummer = '" & imei & "'"

' 加上dbFailOnError参数，强制抛出执行错误
db.Execute sql_1, dbFailOnError

MsgBox "更新成功！", vbInformation
Exit Sub

ErrorHandler:
MsgBox "更新失败：" & Err.Description, vbCritical
Set db = Nothing

备选方案：使用DAO记录集更新（更安全） #

避免SQL拼接的潜在问题，用记录集直接定位并更新：

Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim imei As String
Dim handynum As String

On Error GoTo ErrorHandler

Set db = CurrentDb
imei = Nz(Me.txtIMEI.Value, "")
handynum = Nz(Me.txtHandyNummer.Value, "")

' 定位目标记录
Set rs = db.OpenRecordset("SELECT * FROM tblGeräte WHERE IMEINummer = '" & imei & "'", dbOpenDynaset)
If Not rs.EOF Then
    rs.Edit
    rs!HandyNummer = handynum
    rs.Update
    MsgBox "更新成功！", vbInformation
Else
    MsgBox "未找到对应IMEI的设备记录！", vbExclamation
End If

rs.Close
Set rs = Nothing
Set db = Nothing
Exit Sub

ErrorHandler:
MsgBox "更新失败：" & Err.Description, vbCritical
If Not rs Is Nothing Then
    If rs.EditMode Then rs.CancelUpdate
    rs.Close
End If
Set rs = Nothing
Set db = Nothing

额外注意事项 #

• 确认控件名称txtIMEI、txtHandyNummer与代码中的拼写完全一致。
• 测试时可以用MsgBox sql_1输出拼接后的SQL语句，复制到Access查询设计器中运行，验证语法是否正确。
• 若要同时更新SIMNummer字段，只需在SQL语句或记录集更新中添加对应字段的赋值即可。

内容的提问来源于stack exchange，提问作者Mike T