分類サブコンボの作り方

１、まず「テーブル１」「分類１」「分類２」という３つのテーブルを用意します。
「分類１」のテーブルに「分類１」というテキスト型のフィールドを作ります。
「分類２」のテーブルには「分類２」、「分類１」という２つのテキスト型フィールドを作ります。
「分類１」に次のようにデータを入力します。

「分類２」テーブルのデザインを開き「分類１」フィールドの設定を次のようにします。

「テーブル１」に「分類１」と「分類２」のフィールドを作成し、それぞれ左のように設定します。「分類２」のテーブルを開くと次のようになるようにデータを入力します。

上のようなフォームを作成し、フォームのプロパティのレコードソースに「テーブル１」を設定します。
コマンドボタンをつけ「一覧表」という名前にします。コンボボックス「分類２」のプロパティの
「値集合ソース」に下記のような設定をします。

フォームのモジュールに次の構文を入れます。

'再クエリーの実行
Private Sub 分類１_AfterUpdate()
DoCmd.Requery "分類２"
End Sub

'一覧表を開く
Private Sub 一覧表_Click()
On Error GoTo 一覧表_Click_Err
DoCmd.OpenTable "テーブル１", acNormal, acEdit
一覧表_Click_Exit:
Exit Sub
一覧表_Click_Err:
MsgBox Error$
Resume 一覧表_Click_Exit
End Sub

以上で「分類サブコンボ」の完成です。いろいろ応用してみてください。