選択したアイテムをリストボックスに表示

Question

私は6個のアイテムを持つリストボックスを持っています。リストボックスをドロップダウンするようにコーディングしました。私の質問は、選択したアイテムをリストボックスに入れる方法です。以下は、lostfocusイベントのコードです：

'---------------------------------------------------------------- 
' Save selection for update query 
'---------------------------------------------------------------- 

Dim frm As Form, ctl As Control 
Dim varItm As Variant 
Set frm = Forms!loginForm 
Set ctl = frm!areaLB 
For Each varItm In ctl.ItemsSelected 
areaGbl = ctl.ItemData(varItm) 
Next varItm 
'---------------------------------------------------------------- 
' CHeck selection to load station dropdown 
'---------------------------------------------------------------- 
If areaGbl = "Batting Cages" Then 
Me.stationLB.RowSource = "cageTbl" 
Else 
Me.stationLB.RowSource = "RangeBays" 
End If 
Me.areaDsp = areaHld 
Me.areaLB.Height = 500 

Answer 1

areaLBリストボックスコントロールのrowsourcetypeとは何ですか？

値リストの場合は、すべての項目を削除して、areaGbl変数から1つのレコード/値を追加するだけです。

For nIndex = 0 To areaLB.ListCount - 1 
    areaLB.RemoveItem nIndex 
Next nIndex 

areaLB.AddItem areaGBL

値集合タイプは、私が唯一つのエントリを収容するために、リストボックスのサイズを変更

areaLB.rowsource = "Select <fieldName> from <table name> where  
<fieldname> in '" & areaGBL & "'"