以下のような方法はどうでしょうか?
フォーム「F_都道府県」と選択したデータを一時的に
格納するワークテーブル「W_選択都道府県」をまず用意。
※(都道府県のデータがあるテーブルとワークテーブル
にはそれぞれ都道府県番号と都道府県名という
項目があるものとする)
「F_都道府県」の中にデータの複数選択が可能な
リストボックス「選択」とコマンドボタン「実行」を
貼り付ける。
「実行_Click」に以下のような記述をする。
------
Dim frm As Form 'F_都道府県
Dim ctl As Control 'リストボックス
Dim varItm As Variant '選択したデータ
Dim rec As Variant 'ワークテーブル
Set frm = Forms!F_都道府県
Set ctl = frm!選択
Set rec = CurrentDb.Openrecordset("W_選択都道府県")
'選択したデータのインデックス番号を
'ワークテーブルに格納する
For Each varItm In ctl.ItemsSelected
rec.AddNew
rec!都道府県番号 = Val(ctl.ItemData(varItm))
rec.Update
Next varItm
'ワークテーブル内の都道府県番号と一致する
'番号を持つデータを抽出するクエリを実行する
DoCmd.OpenQuery "クエリ1"
-----
ちょっとごちゃごちゃとしてしまいましたが、これで
一応リストボックスで選択した複数の都道府県データを
最終的にクエリーで表示することが出来ます。
ただ、これはワークテーブルを使わなければならないので
一回ずつワークテーブルのデータを初期化する処理なども
必要になるのが難点です。
最後に実行するクエリーの条件として直接選択したデータ
の情報が渡せれば一番スマートなんでしょうけど・・・
その方法はちょっとわかりませんでした。
どなたか分かる方、よろしくお願いします。
お礼
プログラムまで付けて頂いてありがとうございました。 皆様のご回答を参考にプログラミングさせていただきます。