リストボックス内の複数の値を照会

Question

これは私の状況です。これに対して特に信頼できる情報源は見つかりませんでした。 フォームのリストボックスから複数の選択肢を照会する必要があります。 のQryが 表メトリックで、qryMetricsで、 フィールドは、仕事内容で、 リストボックスには、私は仕事の説明やクエリを実行]ボタンのリストを示し、リストボックスを持ってlstJobDesc、

です。 1つのJob Descriptionを選択してクエリを実行し、選択した1を返すことができます。ユーザーが複数の値を選択し、選択した値のクエリを返すことができるようにする必要があります。私はMulti SelectがNone以外を選択した場合にNullを返すが、フォームから選択された複数の値を返す間にExtendedまたはSimpleを動作させる方法を教えてください。

Answer 1

'''Listbox - Multiselect property=Simple 
Private Sub cmdOK_Click() 
    Text = "" 

    For i = 0 To Me.lstJobDesc.ListCount - 1 
     If Me.lstJobDesc.Selected(i) Then 
      Text = Text & Me.lstJobDesc.ItemData(i) & vbNewLine 
     End If 
    Next i 

    If Text = "" Then 
     For i = 0 To Me.lstJobDesc.ListCount - 1 
      Text = Text & Me.lstJobDesc.ItemData(i) & vbNewLine 
     Next i 
    End If 
    MsgBox Text 
End Sub