<div>
Select Case Me.CboBox1<br />
&nbsp; &nbsp; Case &quot;Choice1&quot;<br />
&nbsp; &nbsp; &nbsp; &nbsp; Me.CboBox2.RowSource = &quot;Result1;Result2;Result3&quot;<br />
&nbsp; &nbsp; Case &quot;Choice2&quot;<br />
&nbsp; &nbsp; &nbsp; &nbsp; Me.CboBox2.RowSource = &quot;Result4;Result5;Result6&quot;<br />
End Select
</div>


Select Case Me.CboBox1
    Case "Choice1"
        Me.CboBox2.RowSource = "Result1;Result2;Result3"
    Case "Choice2"
        Me.CboBox2.RowSource = "Result4;Result5;Result6"
End Select

<div>
I would advise against hard coding this. &nbsp;Instead, put those option combinations in a table and use queries as the source for your combo boxes.<br />
<br />
The second combo would have a source like<br />
<br />
Select field2 from yournewtable <br />
Where field1 = forms!yourformname.combo1
</div>


I would advise against hard coding this.  Instead, put those option combinations in a table and use queries as the source for your combo boxes.

The second combo would have a source like

Select field2 from yournewtable
Where field1 = forms!yourformname.combo1

<div>
<div class="content wysiwyg-content">
I have a series of combo boxes. I want to use VBA to change the values available in the second combo box, based on what was chosen in the first one. <br />
<br />
I think the following code, (even though its non-working), shows what I am wanting to do:<br />
<br />
Private Sub CboBox1_AfterUpdate()<br />
<br />
If Me.CboBox1 = &quot;Choice1&quot; Then<br />
Me.CboBox2.RowSource = &quot;Result1&quot;;&quot;Result2&quot;;&quot;Resul<wbr />t3&quot;<br />
ElseIf Me.CboBox1 = &quot;Choice2&quot; Then<br />
Me.CboBox2.RowSource = &quot;Result4&quot;;&quot;Result5&quot;;&quot;Resul<wbr />t6&quot;<br />
<br />
End Sub<br />
<br />
I have seen examples of combo boxes that do something similiar to what I am wanting to do, but they all used select statements - Is there a way to control the options available in a combo box purely with VBA?
</div>
</div>


I have a series of combo boxes. I want to use VBA to change the values available in the second combo box, based on what was chosen in the first one. 

I think the following code, (even though its non-working), shows what I am wanting to do:

Private Sub CboBox1_AfterUpdate()

If Me.CboBox1 = "Choice1" Then
Me.CboBox2.RowSource = "Result1";"Result2";"Result3"
ElseIf Me.CboBox1 = "Choice2" Then
Me.CboBox2.RowSource = "Result4";"Result5";"Result6"

End Sub

I have seen examples of combo boxes that do something similiar to what I am wanting to do, but they all used select statements - Is there a way to control the options available in a combo box purely with VBA?

Make The Selections Available In ComboBox2 Dependant On The Value Of ComboBox1

Microsoft Access is a rapid application development (RAD) relational database tool. Access can be used for both desktop and web-based applications, and uses VBA (Visual Basic for Applications) as its coding language.

Microsoft Access

Microsoft applications include a variety of software programs, including development and digital authoring programs (Expression and Media Center), educational programs, Internet software, including Essentials, Skype and the Live family, anti-virus, productivity applications and suites like Office, Excel, Word, Outlook, Access and PowerPoint, video games and server applications such as Exchange, SharePoint, IIS and Virtual Server.