コンボボックスVBAコーディングの問題

Question

Accessを使用して学生データベースを作成しています。私のデータベースの一部として、私はコンボボックスからコースを選択する必要があるフォームを持っています。私はドロップダウンボックスからどのコースを選択するかに応じて、利用可能なコースの条件が異なります。また、用語は、一貫性のためにドロップダウンボックスを使用して選択されます。私が最初にフォームをクリックするとダウンボックス用語低下のすべてが表示されている

Private Sub Course_ID_AfterUpdate() 

    If Me![Course ID] = 1 Or Me![Course ID] = 2 Or Me![Course ID] = 3 Then 
    Me![Combo30].Visible = True Else: Me![Combo30].Visible = False End If 

    If Me![Course ID] = 4 Then Me![Combo26].Visible = True Else: 
    Me![Combo26].Visible = False End If 

    If Me![Course ID] = 5 Then Me![Combo22].Visible = True Else: 
    Me![Combo22].Visible = False End If 

    If Me![Course ID] = 6 Then Me![Combo28].Visible = True Else: 
    Me![Combo28].Visible = False End If 

    If Me![Course ID] = 7 Then Me![Combo24].Visible = True Else: 
    Me![Combo24].Visible = False End If 

End Sub 

：私のコードで

は、私は次のコードでAfter_Clickイベントプロシージャを持っています。デフォルトでは、Course IDに対応するTerm IDが表示され、残りのTerm IDドロップダウンボックスは非表示になるように（VBAコードで）どのように設定しますか？

トム

私はデフォルトCourse IDのスクリーンショットを貼られています。すべてのコンボボックスが表示されているように見えます。

Answer 1

オプション1 は、（デフォルトのコースを定義して、フォームの初期ロード時に、それが事前に選択させると、デフォルトでは見えないコンボボックスの残りの部分を作る 目に見える対応するコンボボックスを持っているつまり、デフォルトのコースを持つことができない場合は、

）設計時にfalseにコンボボックスの残りのVisibleプロパティを設定することにより、オプション2 は、デフォルトでは、用語のコンボボックスのすべてを不可視に。そのため、当初、用語コンボボックスはまったく使用できません。

Answer 2

連続した形式では、すべてのレコードに対してすべてのコントロールが1回だけ存在します。別のレコードで、同じコントロールで異なる書式を設定することはできません。 1つのレコードでコントロールを非表示にするとすぐに、すべてのレコードで非表示になります。

これらのボックスには何がありますか？ OnEntringイベントで1つのコンボを記入する機会はありますか？