アクセス コンボボックスで全項目表示

アクセス2000で発注書をつくっています

発注書フォームのサブフォーム「発注書sub」内で
「大項目」「中項目」「小項目」「商品コード」の
４つのコンボボックスを設置し、
絞込み検索で商品明細を入力しています

新規レコードに移動するときに
「大項目」「中項目」「小項目」の値を空白にし、
４つめの「商品コード」コンボボックスで
全商品を表示させたいのですが

どう記述していいのかわかりません

現在は

Private Sub 商品コード_AfterUpdate()
Me.品番 = Me.商品コード.Column(1)
Me.商品名 = Me.商品コード.Column(2)
Me.色 = Me.商品コード.Column(3)
Me.サイズ = Me.商品コード.Column(4)
Me.商品単価 = Me.商品コード.Column(5)

End Sub

Private Sub 小項目_Enter()
Me!商品コード.Requery
End Sub

Private Sub 大項目_AfterUpdate()
Me!中項目.Requery
End Sub

Private Sub 中項目_AfterUpdate()
Me!小項目.Requery
End Sub

Private Sub 小項目_AfterUpdate()
Me!商品コード.Requery
End Sub

'フォーカスが移ると同時にドロップダウンさせる
Private Sub 大項目_GotFocus()
Me.大項目.Dropdown
End Sub
Private Sub 中項目_GotFocus()
Me.中項目.Dropdown
End Sub
Private Sub 小項目_GotFocus()
Me.小項目.Dropdown
End Sub

'テスト
Private Sub 摘要_LostFocus()
Me!大項目 = Null
Me!中項目 = Null
Me!小項目 = Null
Me!商品コード.Requery
End Sub
です。
発注書フォーム（単票フォーム）
レコードソース「発注書」
サブフォーム名「発注書sub」(帳票形式)
レコードソース「発注書明細」
リンク親フィールド子フィールドともに「発注書コード」
（他に表記が必要なのがあるかもしれませんが。。）

テーブル
●発注書明細
「明細コード」「発注書コード」「商品コード」「品番」「商品名」「色」「サイズ」「商品単価」「数量」「摘要」です
●商品マスタ
「商品コード」「品番」「種類」「大項目」「中項目」「色」「商品名」「サイズ」「商品単価」
です。

どなたか
ご指導のほどよろしくお願いいたします

No.1 ベストアンサー 回答者： nda23 回答日時： 2008/11/14 16:11

各コンボボックスの制御(絞込み)をどうやっているのか分かりませんが、

例えば、大項目が決まると一致した商品だけが「商品コード」のリストに
表れ、中項目が決まると更に絞り込まれるといった仕様なのですか？
それで、新規の場合、大項目=Nullなので、全商品がリストされるとか？
ポイントは「商品コード」の元になっているクエリですね。それの
SQLを変更するか、動的にSQLをプログラムでSQLを組み立てて、
「商品コード」のControlSourceを書き替えるなどが考えられます。

この回答へのお礼

ありがとうございます

[コンボボックス名]or[コンボボックス名]is null

で解決しました！！

お礼日時：2008/11/14 16:22