访问 VBA - 识别文本

Question

我正在尝试创建一个按钮来删除子表单中的某些记录。但是我在查询表达式'KEY_ID =“1'中得到“语法错误（缺少运算符）。

我知道问题出在哪里：属性是文本，因此值需要用单引号括起来。我只是不知道如何编写 VBA 来实现这一点。

Private Sub cmdDelete_Click()
If Not (Me.subKey.Form.Recordset.EOF And Me.subKey.Form.Recordset.BOF) Then
    If MsgBox("Confirm Deletion?", vbYesNo) = vbYes Then
        Dim strSql As String
        strSql = "DELETE FROM KEYS" & _
            " WHERE KEY_ID='" & Me.subKey.Form.Recordset.Fields("KEY_ID")
        Debug.Print strSql ' <- prints to Immediate window
        CurrentDb.Execute strSql, dbFailOnError

    End If
End If

Answer 1

strSql = "DELETE FROM KEYS" & _
    " WHERE KEY_ID='" & Me.subKey.Form.Recordset.Fields("KEY_ID") & "'"

...不过，请注意，当这类事情变得更加密集时，将引号用作 ASCII 字符会更安全，或者至少更通用或更便携。

strSql = "DELETE FROM KEYS" & _
    " WHERE KEY_ID=" & _
    Chr(32) & Me.subKey.Form.Recordset.Fields("KEY_ID") & Chr(32)

我不确定是Chr(32)，但我认为这是正确的。