如何根据当前表单中的另一个下拉列表选择从下拉列表中删除列表项

Question

我的“添加医师”表单中有 2 个下拉菜单。一个是选择大学，一个是选择部门。我想让部门（有 6 个列表项）列表项根据选择的大学（有 2 个列表项）而改变。如果用户选择另一所大学，我还想让选择重置部门下拉菜单。

如果选择了阿尔伯塔大学，我想从部门下拉菜单中删除“神经学”和“物理医学与康复”。

这是我目前的编码：

Private Sub cboUniversity_AfterUpdate()
On Error GoTo err_trap

If Me.cboUniversity = "University of Alberta" Then
    Me.cboDepartment.RemoveItem "Neurology"
    Me.cboDepartment.RemoveItem "Physical Medicine & Rehabilitation"
End If

err_trap_exit:
    Exit Sub

err_trap:
    MsgBox "The following error has occurred: " & Err.Number & " - " & Err.Description     & " - University - After Update"
    Resume err_trap_exit

End Sub

我已经在 cboUniversity Change、AfterUpdate 和 LostFocus 事件以及 cboDepartment Change 事件上进行了尝试，虽然我没有收到任何错误消息，但它实际上并没有删除两个列表项“Neurology”和“物理医学与康复”从部门下拉列表。我做错了什么或错过了什么？

如果大学下拉菜单中的选择发生更改，我也不知道如何重置它？

非常感谢！

Answer 1

如果您的 cboUniversity_AfterUpdate 过程不是从 cboDepartment 中删除项目，而是相应地更改 cboDepartment 的行源 - 例如

Private Sub cboUniversity_AfterUpdate()
    if cboUniversity = "University of Alberta" then
        cboDepartment.RowSource = ... 'New ValueList, or New SQL which omits the unwanted departments
    else
        cboDepartment.RowSource = ...
    end if
end sub

Answer 2

有两种方法可以填充 #2 组合框。

1. 您可以将其基于值列表，并对列表进行修订。
2. 也许在这种情况下更有用的是，您可以将 #2 组合框基于 查询并过滤其结果（或以其他方式修改查询）。

这两种解决方案都比RemoveItem 更有意义（我不确定它是否存在，真的……听起来像是DOM 操纵的东西）。

说明可能会有所帮助：access.mvps.org/access/forms/frm0028.htm