多选时如何链接组合框？

Question

我正在尝试创建一个将一个组合框链接到另一个组合框的访问表单，以便在一个组合框中进行的选择确定下一个组合框的下拉菜单。这是我的代码：

Private Sub Combo58_AfterUpdate()

With Forms("UserForm").Combo60
    If IsNull(Forms("UserForm").Combo58) Then
        .RowSource = ""
    Else
        .RowSource = "SELECT DISTINCT [BusinessLvl2(Unit)Code] " & _
                     "FROM HRBI " & _
                     "WHERE [BusinessLvl1(Group)Code]=[Forms]![UserForm]![Combo58];"
    End If
    Call .Requery
End With

结束子

当下拉选项少于 16 个时，我的代码可以成功运行。之后，我收到错误消息“系统资源超出”。我假设我遇到了访问限制，但这似乎是一项非常简单的尝试和完成的任务。有没有人对我做错了什么和解决方法有任何想法？

谢谢。

Answer 1

将组合框属性表上的“列表行”属性修改为您需要的内容。