Accessでの開発ならネーブルス

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

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

●現役システムエンジニアが教える　
システムを自作したい人のためのMicrosoft Access講座

Accessを覚えておけば、会社の業務だけに限らず様々なところに活用する事が出来る様になりますよ。Excelよりも、もっと便利なツールAccessを是非、この機会に覚えておきましょう。

現役のAccess開発者が、あなたのシステム開発のお手伝いを致します。
既に開発途中のものでも、ご相談ください。

これからAccessでのシステム開発にチャレンジしたい初心者の方も歓迎します。

（対面、オンライン対応）

⇒　ネーブルス Access講座