Access小技集

Microsoft Access小技集005-LISTBOXテクニック

投稿日:2021年4月22日 更新日:

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

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
アニス,イランイラン,カモミールローマン

-Access小技集

Copyright© ネーブルス Access講座 , 2021 All Rights Reserved.