Microsoft Access小技集006－LISTBOXテクニック

・リストボックスをクリアする

dim vWk as variant

For Each vWk In .lstAroma.ItemsSelected
me.lstAroma.Selected(vWk) = False
Next
me.lstAroma.Selected(0) = False

・リストボックスの値を取得する

dim vWk as variant
dim sString as string
    sString = ""
    For Each vWk In .lstAroma.ItemsSelected
        If sString <> "" Then
            sString = sString & ","
        End If

        sString = sString & Me.lstAroma.ItemData(vWk)
    Next

↓上記結果をイミディエイトウィンドウで確認した結果
?sstring
アニス,イランイラン,カモミールローマン