Access リストボックス複数選択を抽出条件に
Access リストボックスで複数選択した値をクエリの抽出条件にしたいです。
※PC環境：Win7 Access2007 Excel2007
リストボックスで複数選択した値を取得する事はできるのですが、
クエリ実行をすると結果が0件になってしまいます。
他の方のＱＡなどを参考に以下を作成しましたが、ほしい結果が得られず困っています。
おわかりになる方、ご教示いただけますようお願い致します。
＜動作概要＞
「画面」の「リストボックス」で複数選択し、
［実行］ボタンを押して、「リストボックス」で選択した値を、「テキストボックス」にセットし、
クエリの抽出条件に、in（テキストボックス）をセットし、テーブルから合致するデータを抽出したい
＜リストボックス＞ ※年区分テーブル参照
区分,区分名
1,1年
2,2～3年
3,4～5年
「2,2～3年」「3,4～5年」を選択
※「区分」は数値型
＜VBA＞
Private Sub 実行_Click()
Dim i As Variant
Me.テキストボックス = Null
For Each i In Me.リストボックス.ItemsSelected
Me.テキストボックス = Me.テキストボックス & Me.リストボックス.Column(0, i) & ","
Next
If Me.テキストボックス <> "" Then
Me.テキストボックス = Left(Me.テキストボックス, Len(Me.テキストボックス) - 1)
End If
'ここで画面を確認すると「テキストボックス」には、「2,3」 がセットされている
DoCmd.OpenQuery "クエリ"
'テーブルには抽出条件に該当するデータがあるが、クエリ実行結果は0件
End Sub
＜クエリ ＳＱＬ＞
SELECT テーブル
FROM テーブル
WHERE (((テーブル.区分) in([Forms]![画面]![テキストボックス])));
※「テーブル.区分」は、数値型
どうぞよろしくお願い致します。
