如果用户在另一个组合框中选择一个值，则选择一个组合框的值

Question

我有一个 MS Access 2010 表单，其中有一个名为 cbxClass 的组合框和另一个名为 cbxCourse 的组合框 + 另一个名为 cbxInstitute 的组合框。现在，该表格通过 selecting 学院工作，cbxCourse 中的所有值都根据学院的不同而变化。 cbxClass 组合框内的值也会根据研究所发生变化。基本上 cbxClass 值根据 class 属于研究所而变化，现在的问题是，我希望用户能够 select 来自 cbxClass 的 class 并且一旦发生此事件碰巧，cbxCourse 的 selected 值根据 class 注册的课程而变化....一个 class 只能注册一门课程，所以只有一个选择，我想在用户从下拉菜单中选择 class 后自动 select。

我对 MS access 很陌生，我通常从事其他工作，在配置宏方面我真的没有太多经验。

Answer 1

为组合框 cbxClass 创建 OnLostFocus 事件并添加
cbxCourse.value = findCourse(cbxClass.value)。

findCourse 将是 returns 给定 class 对应课程的函数，因为只有您知道哪个课程属于给定 class。每次您离开 cbxClass 组合框时都会调用它。您也可以使用 OnChange 事件，然后它会在您每次更改 cbxClass 组合框中的内容时执行。

如果您单击 cbxClass 控件并打开控件属性，应该有一个名为 "Events" 或类似名称的选项卡，我只有德语版。在该选项卡中应该有 OnLostFocus、OnChange、OnAfterUpdate 等事件。双击您要使用的事件，您应该会看到如下内容：

Option Compare Database
Option Explicit

Private Sub cbxClass_AfterUpdate()

End Sub

然后只需添加上面的语句并将 findCourse 函数添加到 AfterUpdate 事件之外，如下所示：

Option Compare Database
Option Explicit

Private Function findCourse(selectedClass as String) As String
    '// do your stuff here
    '// and return your course by using the following:
    findCourse = "theFoundCourse"
End function

Private Sub cbxClass_AfterUpdate()
    cbxCourse.value = findCourse(cbxClass.value)
End Sub

如果用户在另一个组合框中选择一个值，则选择一个组合框的值

Selecting a value of a combo box if the user selects a value in another combo box

database

ms-access

vba

combobox

ms-access-2010