如何修复'；3464'；在'；更新'；vba中的sql函数

我试图在一个按钮中使用“更新”方法修改表中的记录（如果有人知道更好的方法，我会听到），但是当我单击按钮时，我得到一个“3464”错误

我认为问题在于date（）值，但我已经将其转换为字符串，我还将“and”移到了另一个位置，试图更正代码，但什么也没有

Dim strSQL As String
Set dbs = CurrentDb()
Dim fca As String
fca = Date

strSQL = "UPDATE Herramientas" & " SET Inventario = '" & y & "' ,Quien_solicita = '" & Me.lblusr.Caption & "' ,Fecha_Salida = '" & fca & "' WHERE Id = ' " & Me.txt_id & "';"

CurrentDb.Execute strSQL

Me.lst_hrm.Requery

我想更新表中的记录，但遇到此错误idk如何修复帮助使用日期（）和数字不带引号：

Dim strSQL As String
Set dbs = CurrentDb()

strSQL = "UPDATE Herramientas SET Inventario = " & y & ", Quien_solicita = '" & Me.lblusr.Caption & "', Fecha_Salida = Date() WHERE Id = " & Me.txt_id & ";"

CurrentDb.Execute strSQL

---

mysql或ms/access可能重复？？警告：此代码有许多错误是由于在查询中引入了未替换的数据造成的。请使用占位符值，而不是使用字符串连接。我不认为这是重复的，引用的帖子中的错误可能相同，但发生在SQL语句之外，原因是比较在两个不同类型的变量之间为什么要将日期转换为字符串？如果Fecha#u Salida是一个日期/时间字段，请使用#分隔符而不是撇号。如果ID是一个数字字段，请不要使用任何分隔符。为什么要保存标签标题？谢谢！你救了我的命，我尝试将日期转换为字符串，因为我认为这是问题所在，但我发现没有它不是那样的，所以如果它是一个数字，那么我不使用引号（“”）？太好了！那么请标记为已回答。对：数字周围没有引号。