VBA Help: How to auto populate a Text Box based on tow or more Combo Boxes

[Mely]

I am very new at this and not very familiar with VBA, and hope someone can help me here. I need the Text Box to automatically update when values are chosen from 2 or more Combo Boxes. This is the code I have in my text box properities [Event Procedure]. If I put the code OnClick, it works but I want the value on the text box to show up automatically without having to click.

Private Sub Value_AfterUpdate()
 
If Me.ComboBox1.Value = "Director" And Me.ComboBox2.Value = "NATIONAL" And Me.ComboBox3.Value = "Oral" Then  TextBox.Value = "1"
   
    ElseIf Me. ComboBox1.Value = "CFO" And Me.ComboBox2.Value = "NATIONAL" And ComboBox3 = "Oral" Then       
    TextBox.Value = "2"
 
    Else
        [TextBox] = "0"
 
    End If
 
End Sub

Thank you.

[pbaldy]

I would expect it in the after update event of the 3 combos. I'd actually have a form level function that did it, and call it from those 3 events.

[Mely]

Thank you for the response Paul. Should I have the same code in each combo box? Would you mind expounding a little bit? I am not very familiar with a form level function, how should I proceed?

[pbaldy]

You can have the same code behind each combo. For ease of maintenance, I'd use the function. That way if/when you need to edit it, you only have to change it in one place. Here's a primer:

http://www.baldyweb.com/Function.htm

[Mely]

Thank you so much Paul.

[pbaldy]

Happy to help, and welcome to the site!