Creating a dropdown list box that will call another dropdown list box in access.

[fish919]

Hello All,
I am creating a date base in access. I want to create a dropdown list box that is connected to another dropdown list box.
You start with a dropdown list that has 5 choices and each of these choices will call another dropdown list box when one of the choices from the first gets selected. (I hope this makes sense)

All of this is being done on a single form.
I know how to make a (sub) dropdown list not seen before the action and disappear after the action. I do not know the coding for a sub dropdown list box.
If there is a website that covers this that would be great, or if some one know the name of the action I am trying to do that would be great. I have been trying to search the web and by library for any clues but I am coming up short.
I really appreciate the help.

[VBWheaties]

Where are the other values stored? In a table?

[fish919]

all the values are stored In the same table.

[VBWheaties]

all the values are stored In the same table.

Many ways to do this.

My approach would be to create a global dictionary containing key/value pairs where the value is a delimited sequence of data that should be inserted into the other combobox.

In other words, something like

Public d As New Dictionary 'Scope to global (public) so we can use the dictionary elsewhere in code. 
 
'**set a reference to Microsoft Scripting Runtime or scrrun.dll 
'   otherwise, declare d as variant and set it to CreateObject("Scripting.Dictionary")
 
d.add "Combo1KeyText", "Value1^Value2^Value3^Value4"
d.add "Combo2KeyText", "Value1^Value2" 
d.add "Combo3KeyText", "Value1^Value2^Value3" 
 

Then, capture the comboboxes changed event and load the Values list into the other combobox.

Private Sub Combo1_Change()
   Dim sValues As String 
   Dim varValues
   Dim i as Integer
   If d.Exists(Combo1.Text) Then 'd is our global dictionary object
      Combo2.Clear 
      sValues = d(Combo1.Text) 
      varValues = Split(sValues, "^") 
      For i = 0 to ubound(varValues)
         Combo2.AddItem varValues(i) 
      Next i 
   End If 
End Sub