アクセスを使用して学生データベースを作成しています。データベースの一部として、ユーザーがコンボ ボックスからコースを選択する必要があるフォームがあります。ドロップダウン ボックスから選択したコースに応じて、さまざまなコース条件を利用できます。用語は、一貫性を保つためにドロップダウン ボックスを使用して選択することもできます。
私のコードにはAfter_Click
、次のコードを含むイベント プロシージャがあります。
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
フォームを最初にクリックすると、すべての用語ドロップダウン ボックスが表示されます。Term ID
デフォルトでデフォルトに対応するものCourse ID
が表示され、残りのTerm ID
ドロップダウンボックスが非表示になるように(VBAコードで)設定するにはどうすればよいですか?
トム
デフォルトのスクリーンショットを添付しましたCourse ID
。すべてのコンボ ボックスが表示されていることに注意してください。