Private Sub UserForm_Initialize() cboStations.Value = "Annual" cboYear.Value = "2012" Dim WorkDB As DAO.Database Dim workRecSetA As DAO.RecordSet Dim workRecSetB As DAO.RecordSet Dim x As Integer Set WorkDB = DBEngine.OpenDatabase("K:\TASS\2 - GEO-DATA PROCESSING SUPPORT\MICHELLE'S WORK_ENTER NOT!!\Work Folder\Map Automation Project\Access Tables\Map_Automation.mdb") Set workRecSetA = WorkDB.OpenRecordset(Name:="select * from Districts order by District_Name", Type:=dbOpenDynaset) Do Until workRecSetA.EOF cboDistrict.AddItem workRecSetA("District_Name") workRecSetA.MoveNext Loop Set workRecSetB = WorkDB.OpenRecordset(Name:="select * from Stations order by Station_Name", Type:=dbOpenDynaset) Do Until workRecSetB.EOF cboStations.AddItem workRecSetB("Station_Name") workRecSetB.MoveNext Loop For x = 2010 To 2015 cboYear.AddItem x Next End Sub Private Sub cmdCancel_Click() frmMapSetUp.Hide End Sub Private Sub cboStations_Change() Dim cboYear As String If cboStations.Text = "Urban" Then cboYear.AddItem "2010", "2011", "2012" >Here is where I am getting the invalid qualifier error!! End If End Sub Private Sub cboYear_Change() Dim cboDistrict As String If cboYear.Text = "2010" Then cboDistrict.AddItem "Abilene", "Amarillo", "Austin", "San_Antonio", "Waco", "Wichita_Falls" Else cboYear.Text = "2011" cboDistrict.AddItem "Beaumont", "Houston" Else cboYear.Text = "2012" cboDistrict.AddItem "Brownwood", "Bryan", "Childress", "Corpus_Christi", "El_Paso", Lubbock, "Odessa", "Yoakum" End If End Sub
Solved! Go to Solution.
Private Sub cboStations_Change() cboYear.Clear If cboStations.Text = "Urban" Then cboYear.AddItem "2010" cboYear.AddItem "2011" cboYear.AddItem "2012" End If End Sub
Private Sub cboYear_Change() cboDistrict.Clear If cboYear.Text = "2010" Then cboDistrict.AddItem "Abilene" 'add the rest Elseif cboYear.Text = "2011" Then cboDistrict.AddItem "Beaumont" 'add the rest Elseif cboYear.Text = "2012" Then 'or just Else cboDistrict.AddItem "Brownwood" 'add the rest End If End Sub
Private Sub cboYear_Change() dim myArray() as String cboDistrict.Clear If cboYear.Text = "2010" Then myArray = Array ("Abilene", "Amarillo", "Austin", "San_Antonio", "Waco", "Wichita_Falls" ) Elseif cboYear.Text = "2011" Then myArray = Array ("Beaumont", "Houston") Elseif cboYear.Text = "2012" Then 'or just Else myArray = Array ("Brownwood", "Bryan", "Childress", "Corpus_Christi", "El_Paso", Lubbock, "Odessa", "Yoakum") End If For Each myElement in myArray cboYear.AddItem myElement Next End Sub
Private Sub cboStations_Change() cboYear.Clear If cboStations.Text = "Urban" Then cboYear.AddItem "2010" cboYear.AddItem "2011" cboYear.AddItem "2012" End If End Sub
Private Sub cboYear_Change() cboDistrict.Clear If cboYear.Text = "2010" Then cboDistrict.AddItem "Abilene" 'add the rest Elseif cboYear.Text = "2011" Then cboDistrict.AddItem "Beaumont" 'add the rest Elseif cboYear.Text = "2012" Then 'or just Else cboDistrict.AddItem "Brownwood" 'add the rest End If End Sub
Private Sub cboYear_Change() dim myArray() as String cboDistrict.Clear If cboYear.Text = "2010" Then myArray = Array ("Abilene", "Amarillo", "Austin", "San_Antonio", "Waco", "Wichita_Falls" ) Elseif cboYear.Text = "2011" Then myArray = Array ("Beaumont", "Houston") Elseif cboYear.Text = "2012" Then 'or just Else myArray = Array ("Brownwood", "Bryan", "Childress", "Corpus_Christi", "El_Paso", Lubbock, "Odessa", "Yoakum") End If For Each myElement in myArray cboYear.AddItem myElement Next End Sub