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

Question

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] 是 date/time 类型字段，请使用 # 分隔符而不是 '。如果字段是数字类型，请不要使用任何分隔符。

去掉 WHERE 子句前面的逗号。

需要 [ ] 资产 ID 字段名称，因为连字符。

建议不要在命名约定中使用空格或 punctuation/special 个字符。

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

Trying to update table in ms Access using VBA but getting failed , used multiple option but table not getting updated

ms-access

vba

ms-access-2016