【Access】リストボックスの選択された値を取得する


リストボックスの選択された値を取得するには、ItemsSelectedコレクションから選択行のインデックスを取得し、そのインデックスからItemDataプロパティで値を取得します。

たとえば、このようなフォームにリストボックス(listFruits)と[選択]ボタン(buttonSelect)、テキストボックス(textSelectedItem)が貼り付けてあるとします。


この[選択]ボタンをクリックしたときに選択された値をテキストボックスに表示するには次のように記述します。
Private Sub buttonSelect_Click()

    Dim selectedItem As String
    Dim n As Variant
    
    For Each n In Me.listFruits.ItemsSelected
        '選択された行の値を取得
        selectedItem = selectedItem & Me.listFruits.ItemData(n) & ","
    Next
    
    If Len(selectedItem) > 0 Then
        selectedItem = Left(selectedItem, Len(selectedItem) - 1)
    End If
    
    Me.textSelectedItem.Value = selectedItem
    
End Sub

実行結果









comments powered by Disqus