Question

当我点击附有以下代码的按钮时，我有一个包含供应商名称列表的表单;

Private Sub CmdView_Click()
On Error GoTo Err_CmdView_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "FrmSuppliers"

    stLinkCriteria = "[SupplierName]=" & "'" & Me![SupplierName] & "'"
    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_CmdView_Click:
    Exit Sub

Err_CmdView_Click:
    MsgBox Err.Description
    Resume Exit_CmdView_Click

End Sub

打开信息的表单，但是，我有一个供应商，他们的名字中有一个撇号，例如O'Tooles，当我点击按钮时，我收到错误。

Syntax error (missing operator) in query expression
'[SupplierName]='O'Tooles''.

有没有办法将代码更改为撇号？

Answer 1

您尝试使用单引号作为字符串分隔符，而是使用双引号（它们只需要使用额外的"进行转义：

stLinkCriteria = "[SupplierName]=" & """" & Me![SupplierName] & """"

访问名称中的VBA单引号会导致语法错误

1 个答案: