ＡＣＣＥＳＳのコンボボックスデータについて

質問

Microsoft Office Accessのフォームに作成したコンボボックスで選択できるデータは一つしかダメなんでしょうか？　コンボボックスには３項目のデータがあり２番目及び３番目のデータもクエリーの抽出条件として使いたいのですが可能でしょうか？
良い方法があれば教えて頂けないでしょうか。

回答No.2

30246kiku · ベストアンサー

どうも駄目っぽいですね（私が知らないだけかもしれませんが）

以下の方法２つを考えてみました。（遅かったらごめんなさい）

１）ユーザ定義関数を使用する
２）コンボボックスで選んだ時、不可視のテキストボックスに値を代入しておいて、クエリではテキストボックス側を参照する

フォーム名を「F1」、コンボボックス名を「cbx01」と仮定します。

１）ユーザ定義関数を使用する
以下の内容で、標準モジュールに関数を記述します。

Public Function myCombo(sCombo As String, iNum As Integer) As Variant
　　On Error Resume Next
　　myCombo = Eval(sCombo & ".Column(" & iNum & ")")
　　If (IsError(myCombo)) Then myCombo = Null
End Function

クエリの方では、2つ目を参照したかったら以下の様に記述します。

myCombo("[Forms]![F1]![cbx01]",1)

参照でエラーになったら Null で戻るので、その処理は入れてください。

２）コンボボックスで選んだ時、不可視のテキストボックスに値を代入しておいて、クエリではテキストボックス側を参照する
フォームヘッダ（フッター）部に、不可視のテキストボックスを配置します。
テキストボックス名を「txt_cbx2」（2列目用）、「txt_cbx3」（３列目用）と仮定します。
コンボボックスのクリック時イベントで以下を記述します。

Private Sub cbx01_Click()
　　If (Not IsNull(Me.cbx01)) Then
　　　　Me.txt_cbx2 = Me.cbx01.Column(1)
　　　　Me.txt_cbx3 = Me.cbx01.Column(2)
　　Else
　　　　Me.txt_cbx2 = Null
　　　　Me.txt_cbx3 = Null
　　End If
End Sub

マクロでするなら、
条件：　Not IsNull([cbx01])
アクション：　値の代入
アイテム：　[txt_cbx2]　　　式：　[cbx01].[Column](1)

条件：　...　　（半角ピリオド３つ）
アクション：　値の代入
アイテム：　[txt_cbx3]　　　式：　[cbx01].[Column](2)

条件：　...　　（半角ピリオド３つ）
アクション：　マクロの中止

条件：　（空欄）
アクション：　値の代入
アイテム：　[txt_cbx2]　　　式：　Null

条件：　（空欄）
アクション：　値の代入
アイテム：　[txt_cbx3]　　　式：　Null

クエリからは、[Forms]![F1]![txt_cbx2] とか [Forms]![F1]![txt_cbx3] で参照するようにします。

お礼

御礼が遅くなり申し訳ありません。

教えて頂いた２番目の方法で望んでいたとおりの結果を得ることができました！
まだまだ解らないことかたくさんありますが、おかげさまで問題が一つ解決しデーターベースの完成に向けて一歩進むことができました。

ありがとうございました。

回答No.1

iryuza

コンボボックスは、1つしか選べません。
リストボックスを使うか複数のコンボボックスを並べる位しかないと思います。

お礼

ご回答ありがとうございました。
できることなら条件設定をシンプルにしたかったのですが・・・　残念です。
ある人が作成したデーターベースですが、テーブル構造をなるべく壊さず少し改良して使いやすくしたかったったのですがテーブル構造等を少し見直してみたいと思います。