工作 SQL 查询在 VBA 中生成 "A RunSQL statement requires an argument consisting of an SQL statement"

Question

我正在尝试在 Access 中创建一个具有“键入时搜索”功能的表单来查找客户。
我将双击列表框中的正确匹配项以更新客户信息文本框。

我成功完成了“键入时搜索”部分，但没有完成列表框双击更新表单部分。

我得到以下运行SQL 错误：

"A RunSQL statement requires an argument consisting of an SQL statement"

SQL 语句在查询中起作用。

Private Sub lstClient_DblClick(Cancel As Integer)
    Dim selectedItem, strSQL, strSQL1 As String
    Dim i As Integer
        
    i = lstClient.ListIndex
    selectedItem = lstClient.ItemData(i)
    txtCustName.Value = selectedItem
        
    strSQL = "SELECT tblClient.[Addresse] FROM tblClient WHERE tblClient.[Nom] ='" & selectedItem & "';"

    strSQL1 = "SELECT tblClient.[Addresse] FROM tblClient WHERE tblClient.[Nom] ='Bernache Funeral home';"
            
    DoCmd.RunSQL (strSQL1)
    Text191.Value = strSQL1
End Sub

第二条语句 (strSQL1) 是我在查询中尝试确保它有效的语句，它确实有效。

Answer 1

试试

Dim db As Database
Dim rs As DAO.Recordset

Set db = CurrentDb
Set rs = db.OpenRecordset(strSQL1)
Text191.Value = rs.Fields("Addresse").Value

Set rs = Nothing
Set db = Nothing

工作 SQL 查询在 VBA 中生成 "A RunSQL statement requires an argument consisting of an SQL statement"

Working SQL query generates "A RunSQL statement requires an argument consisting of an SQL statement" in VBA

sql

ms-access

vba

ms-access-2016