Text Box Updating
I am having trouble getting a text box to auto fill from a choice made from a
combo box.
Combo Box Name is Address_21
Text Box Name is City_1
My code is as follows:
'Auto Fill CES Spec Written Office
Private Sub Address_21_Change()
Select Case Address_21
Case ""2306 Long Green Court"
City_1 = "Valrico"
Case ""3440 Oakcliff Road"
City_1 = "Atlanta"
Case "7015 East 14th Aveneue"
City_1 = "Tampa"
Case "1800 Taylor Drive"
City_1 = "Gastonia"
End Select
End Sub
Can someone help me figure out what I did incorrectly?
|