1

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

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

我收到以下 RunSQL 错误：

“一个 RunSQL 语句需要一个由 SQL 语句组成的参数”

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) 是我在查询中尝试确保它有效的语句，它确实有效。

4

1 回答 1

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
于 2016-09-07T04:13:40.797 回答