尝试使用 VBA 更新 ms Access 中的表但失败，使用多个选项但表未更新

Question

尝试使用 VBA 更新 ms Access 中的表但失败，使用了多个选项但表未更新

Dim bod As Date
Dim assets As String
Dim emname As String
Dim ecode As String
Dim Astatus As String
      
Astatus = "SOLD"    
        
msaved = True
DoCmd.SetWarnings False            
bod = Me.datetime.Caption
price1k = Me.cmbox1_1AID.Value
emname = Me.empname.Value
ecod = Nz(Me.code.Value, 0)
        
//tried using this but not getting updated no error
DoCmd.RunSQL "UPDATE [Asset E7450 List] SET Code = '" & ecod & "',[Date & Time] ='" & bod & "' ,Status ='" & Astatus & "',[Sold To] ='" & empname & "', where Asset-ID ='" & price1k & "'"
      
// Tried using this no update no error 
CurrentDb.Execute "UPDATE [Asset E7450 List] SET Code = '" & ecod & "',[Date & Time] ='" & bod & "' ,Status ='" & Astatus & "',[Sold To] ='" & empname & "', where Asset-ID ='" & price1k & "'"
    
// Tried this method no data update no error
Dim strSQL As String
strSQL = "UPDATE [Asset E7450 List] SET Code = '" & ecod & "',[Date & Time] ='" & bod & "' ,Status ='" & Astatus & "',[Sold To] ='" & empname & "', where Asset-ID ='" & price1k & "'"
DoCmd.RunSQL strSQL
         
MsgBox " Booking Request Accepted ", vbInformation
        

Answer 1

如果 [Date & Time] 是日期/时间类型字段，请使用 # 分隔符而不是 '。如果字段是数字类型，请不要使用任何分隔符。

去掉 WHERE 子句前面的逗号。

由于连字符，需要 [ ] 围绕 Asset-ID 字段名称。

建议不要在命名约定中使用空格或标点符号/特殊字符。