アクセスで3つのフィルターを連携させたい

やはり、AND検索をするときは確実な AND検索のためのSQL文を作成する必要が あります。方法は、No6の(3)に書いた通り なのですが、参照する内容を確認のために、 コンボボックスには、何を表示していますか。 郵便番号 郵便番号と名称 名称 のいずれですか。 それによって、 Me!Combo1.Column(1) などの、Column(1)の値を変更するか、 あるいは必要ないかの判断をします。 ところで、フォームには重複したデータが表示 されることはありませんね？

No5で、図の選択するフィールドのところが 欠けていたので再表示しておきます。 これで、フォームのレコードソースにします。 一応、都道府県IDを表示するようにしています。 必要かどうかは判断してください。

（１） たぶん、テーブルの設計に問題があるのでは、と思います。 このような場合、各テーブル名をT都道府県、T市区、T町村 とします。 T都道府県 都道府県ID (主キー) 都道府県 T市区 市区ID　（主キー) 市区 都道府県ID　（数値型) T町村 町村ID　（主キー） 町村 市区ID　（数値型) このようにします。各テーブルのIDはオートナンバー か、あるいは数値型を想定しています。 T市区の都道府県IDは該当する都道府県のID を格納します。同様に、T町村の市区IDは 該当する市区のIDを格納します。 そうすると、これらを基にクエリを作成するとき、 以下のようにそれぞれのIDが結ばれるように します。（画像を参照） これをフォームのレコードソースにします。 なお、各テーブルには上位のテーブルのデータとして 各上位のテーブルの主キーとしてのIDを設定しています。 この場合は、テーブルの正規化として上位の、たとえば T市区の上位テーブルとしてT都道府県の都道府県名を 設定する必要はありません。都道府県IDを設定します。 （２） 各コンボボックスのプロパティの設定は、 列数　　　　2 列幅　　　　0cm,5cm リスト幅　　5cm とします。列幅の最初の0cmは、各テーブルのID(主キー) がテーブルの最初に登録されるとしてこの表示はいらない ので、0cmとしています。ただし検索に必要なので非表示 で、データとしてコンボボックに持つ、ということです。 5cmとかいう幅は実際に合わせて変更してください。 このようにテーブルを設定すると、フォームのレコードソースは 結合線で結ばれたテーブルで作成したクエリですから、どの 一つのフィールドにフィルタをかけても必ず関連したデータ しか表示されません。 このようにすると、今のフィルタのかけ方でも機能するはずです。 一度、少ないデータで確認してみてください。 （３） ボタンのクリックでデータを平う場合は、コンボボックスの 表示データの設定に考慮すべき点があるので、少しコードに 目新しいものがでてきます。 Private Sub cmd検索_Click() 　　Dim strFil As String 　　Dim i As Long 　　Dim strKey(1 To 3) As String 　　strFil = "" 　　If IsNull(Me!Combo1) And IsNull(Me!Combo2) And IsNull(Me!Combo3) Then 　　　　MsgBox ("コンボボックスの選択がされていません") 　　　　Exit Sub 　　End If 　　If IsNull(Me!Combo1) Then 　　　　strKey(1) = "" 　　Else 　　　　strKey(1) = "[都道府県] ='" & Me!Combo1.Column(1) & "'" 　　End If 　　If IsNull(Me!Combo2) Then 　　　　strKey(2) = "" 　　Else 　　　　strKey(2) = "[市区] ='" & Me!Combo2.Column(1) & "'" 　　End If 　　If IsNull(Me!Combo3) Then 　　　　strKey(3) = "" 　　Else 　　　　strKey(3) = "[町村] ='" & Me!Combo3.Column(1) & "'" 　　End If 　　For i = 1 To 3 　　　　If strKey(i) = "" Then 　　　　Else 　　　　strFil = strFil & strKey(i) & " AND " 　　　　End If 　　Next i 　　strFil = Left(strFil, (Len(strFil) - 5)) 　　Me.Filter = strFil 　　Me.FilterOn = True End Sub ここで、Column(1)　というのが出てきますが、 これはコンボボックスの二番目のフィールド を指します。Column(0)は一番目のフィールドで この場合は非表示の各IDを指します。 いちおう、このようなところですが確認してみてください。

Option Compare Database Option Explicit Private Sub コンボ_都道府県_Change() 　　Me.コンボ_市区 = "" 　　Me.コンボ_町村 = "" 　　DoFilter End Sub Private Sub コンボ_市区_Change() 　　Me.コンボ_町村 = "" 　　DoFilter End Sub Private Sub コンボ_町村_Change() 　　DoFilter End Sub Public Sub DoFilter() 　　Dim strKubun(2) As String 　　Dim strFilter　 As String 　　 　　' ----------------------------- 　　'　区分の取得 　　' ----------------------------- 　　strKubun(0) = IIf(Len(Me.コンボ_都道府県 & "") > 0, コンボ_都道府県, "") 　　strKubun(1) = IIf(Len(Me.コンボ_市区 & "") > 0, Me.コンボ_市区, "") 　　strKubun(2) = IIf(Len(Me.コンボ_町村 & "") > 0, Me.コンボ_町村, "") 　　' ----------------------------- 　　'　フィルターの編集 　　' ----------------------------- 　　strFilter = "[都道府県] LIKE 'XXXXX*' AND [市区] LIKE 'YYYYY*' AND [町村] LIKE 'ZZZZZ*'" 　　strFilter = Replace(strFilter, "XXXXX", strKubun(0)) 　　strFilter = Replace(strFilter, "YYYYY", strKubun(1)) 　　strFilter = Replace(strFilter, "ZZZZZ", strKubun(2)) 　　' ----------------------------- 　　'　フィルターの実行 　　' ----------------------------- 　　Me.Filter = strFilter 　　Me.FilterOn = True End Sub

すみません。もう一つ。 (1) それぞれのコンボボックスで単独でフィルタをかけたとき、 どのような結果を求めていますか。 (2) また、二つの組合せではどのような結果を求めていますか。

連投ですみません。No1の続きです。 もし、フォームにフィルタをかけるならば、 (1) フォームのレコードソースはどのようになっていますか。 もし、テーブルならば、都道府県、市区、町村 の三つのフィールドがはいっているのでしょうか。 あるいは、別々のテーブルをクエリで一つに しているのでしょうか。 (2) ＞アクセスで3つのフィルターを連携させたい ＞Combo1　→　都道府県 ＞Combo2　→　市区 ＞Combo3　→　町村 これらのコンボボックスは単独でフィルタを かけることはありますか。

(1) ＞アクセスで3つのフィルターを連携させたい これは、フォームにフィルタをかける、という ことですか、あるいは3っつのコンボボックスを 連動させたい、ということですか？ (2) 各コンボボックスのコントロールソースは 同じテーブルですか、あるいは別々の テーブルですか。 できたら、各コンボボックスのコントロール ソースを補足してもらえれば、と思いますが。