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

2 番目のステートメント (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 に答える