组合框 VBA 编码问题答案

【问题标题】：Combo box VBA coding problems组合框 VBA 编码问题
【发布时间】：2012-05-13 11:54:41
【问题描述】：

我正在使用 Access 创建一个学生数据库。作为我的数据库的一部分，我有一个表格，要求用户从组合框中选择一门课程。我有不同的课程术语，对应于他们从下拉框中选择的课程。为了保持一致性，还使用下拉框选择术语。

在我的代码中，我有一个 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

当我第一次单击表单时，所有术语下拉框都会显示。我如何设置它（在 VBA 代码中），以便默认显示对应于默认 Course ID 的 Term ID，而隐藏其余的 Term ID 下拉框？

汤姆

我附上了默认Course ID 的截图。请注意，所有组合框似乎都是可见的。

【问题讨论】：

标签： ms-access vba if-statement combobox

【解决方案1】：

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

选项 2 如果您不能拥有默认课程，则默认情况下使所有术语组合框不可见。因此，最初根本没有可用的术语组合框。

【讨论】：

【解决方案2】：

在连续形式中，每个控件在所有记录中仅存在一次。不同记录中的同一控件不能有不同的格式。一旦您在一个记录中隐藏一个控件，它就会隐藏在所有记录中。

你在那些盒子里有什么？是否有机会在 OnEntring 活动中填写一个组合？

【讨论】：