以前のフィルター(テキストボックス)に基づいて入力されたリストボックスがあります。これは、リストボックスに事前定義された数のアイテムがないため、インデックスを使用できないことを意味します。
私が探しているのは、クリックされた選択された行のリストボックスに3つの列があるため、column(0)の値を選択する方法です。
Private Sub listSource_Click()
Dim strSource As String
strSource = "SELECT [Product Code],[Stock Level],[Description] FROM [products/stock] " & _
"WHERE Mid([Product Code],1,5) = " & Me.listSource.Column(0).Value & ";"
Me.listResult.RowSource = strSource
Me.listResult = vbNullString
End Sub
私が必要だと思うのは、「Me.listSource.Column(0).Value」があるはずの小さなコードです。
よろしくお願いします、ボブP