如何基于MS Access中的另一个组合框填充组合框

Question

我试图添加项目到一个组合框的基础上选择另一个组合框。

我有一个组合框，显示所有模具号码的总列表。每个模数都有与其相关联的特定数量的空腔。例如，模具1111有4个腔。腔体数量从1到8不等。我希望第二个组合框填充数字1到X，其中X是该模具编号的空腔数。

我正在考虑做一个类似于这样的for循环。

Private Sub cmbSection_Change()

    Dim Cavities
    Cavities = Me.cmbSection.Column(0)

    For intI = 1 To (Cavities)
        cmbCavities.AddItem (intI)
Next intI
End Sub

编辑:我真正寻找的是如何参考每个模具的数量，当模具是选择在组合框。因为combobox1.value只返回模具#的值。我的假设是，因为combobox1中填充了一个查询，该查询返回模具#和可以引用combobox1的空腔数，以及如何将项添加到第二个组合框中。

Answer 1

我找到了答案。我使用了最初使用for循环填充列表的方法。这是整个方法。按原计划工作。

Private Sub cmbSection_Change()

    ' Clears Current Items In Combo Box
    cmbCavities.RowSource = ""

    'Declaring and setting proper variables
    Dim Cavities As Integer
    Cavities = CInt(Me.cmbSection.Column(1))
    Dim intI As Integer

    ' Loop
    For intI = 1 To (Cavities)
        Me.cmbCavities.AddItem (intI)
    Next intI

End Sub

Answer 2

听起来你想在你的组合框中实现级联效应。把这个放在第一个ComboBox的ComboBox上。

Private Sub Form_AfterUpdate()

Me.SecondComboBoxID.RowSource = "SELECT CavityID, CavityName " _
                               & "FROM CavityTableName " _
                               & "WHERE DieID = " & Nz(Me.FirstComboBoxID) _
                               & "ORDER BY CavityName"

End Sub