Ms access 组合框VBA编码问题

我正在使用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

当我第一次单击表单时，所有术语下拉框都会显示出来。如何设置它（在VBA代码中），以便在默认情况下显示与默认
课程ID
对应的
术语ID
，并隐藏其余的
术语ID
下拉框

汤姆

我已附上默认
课程ID
的屏幕截图。请注意，所有组合框看起来都是可见的

选项1
定义一个默认课程，在初始加载表单时，将其预先选中并显示相应的组合框
默认情况下使组合框的其余部分不可见（即，在设计时将组合框的其余部分的visible属性设置为false）

选项2
如果你不能有一个默认的课程，那么让所有的术语组合框在默认情况下不可见。因此，最初根本没有可用的术语组合框。
在连续形式中，每个控件只在所有记录上存在一次。同一控件在不同记录中不能有不同的格式。一旦在一条记录中隐藏控件，它就会在所有记录中隐藏

那些盒子里有什么？是否有机会在OneString事件中加入一个组合