ms-access - VBAはリストボックスを複数の値に設定しました

Question

Accessにmult-select値がtrueに設定されたリストボックスがあります。選択した値をVBAコードで設定できるようにしたい。どうすればこれを行うことができますか？

Answer 1

メソッドを使用して、.Selected選択するアイテムのインデックス値を渡します。

'Populate the listbox (probably you are doing this elsewhere):

'Select items items 1 and 2 (remembering ListBox is 0-index, so this selects the 2nd and 3rd items in the list:
ListBox1.Selected(1) = True
ListBox1.Selected(2) = True

また、.MultiSelect = fmMultiSelectMultiまたはを確認して.MultiSelect = fmMultiSelectExtendedください。

Answer 2

上記の補足として。ユーザーがさまざまな地域を選択する地域リストボックスがあるとします。このコードを使用して、選択した地域に一致する5番目の列（4、ゼロから数える）に基づいて複数選択リストボックスHospCountyから病院を選択できます。

For Each itm In Me.Region.ItemsSelected
    For i = 0 To Me.HospCounty.ListCount - 1
        If Trim(Me.HospCounty.Column(4, i)) = Trim(Me.Region.Column(0, itm)) Then
            Me.HospCounty.Selected(i) = True
        End If
    Next
Next