MS Accessの別のコンボボックスに基づいてコンボボックスを作成する方法

Question

別のコンボボックスの選択に基づいてコンボボックスに項目を追加しようとしています。

すべてのダイ番号の一覧を表示する1つのコンボボックスがあります。各ダイ番号には、それに関連付けられた特定の数のキャビティがあります。例示的なダイ1111は4つの空洞を有する。キャビティの数は1から8まで変化します。2番目のコンボボックスに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 

EDIT： 私が本当に探していますが、ダイがコンボボックスで選択されている場合、各ダイのキャビティの数を参照する方法です。 combobox1.valueはDie＃の値を返します。私は、combobox1にcombobox1.cavitiesを参照できる空洞の数と型番と2番目のコンボボックスに項目を追加する方法の両方を返すクエリを入力したので、私は仮定していました。

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のAfter_Updateに置きます。

Private Sub Form_AfterUpdate() 

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

End Sub