Private Sub cmdMap_Click() Dim UserValue As String Dim Value As String Dim Year As String Dim pDoc As IDocument Dim pApp As IApplication Set pDoc = New MxDocument Set pApp = pDoc.Parent If cboStations.Text = "Annual" Then Select Case cboDistrict.Text Case "Abilene" pApp.OpenDocument ("K:\TASS\4_MAPPING_DATA_SUPPORT\Traffic_Mapping\District_Maps\2012\Abilene\Abilene_Base_Map.mxd") Case "Amarillo" pApp.OpenDocument ("K:\TASS\4_MAPPING_DATA_SUPPORT\Traffic_Mapping\District_Maps\2012\Amarillo\Amarillo_Base_Map.mxd") Case "Atlanta"
Solved! Go to Solution.
Private Sub cmdMap_Click() Dim UserValue As String Dim Value As String Dim Year As String Dim pDoc As IDocument Dim pApp As IApplication Set pDoc = New MxDocument Set pApp = pDoc.Parent If cboYear.Text = "" then Year = Year(Date) Else Year = cboYear.Text End If If cboStations.Text = "Annual" Then Select Case cboDistrict.Text Case "Abilene" pApp.OpenDocument ("K:\TASS\4_MAPPING_DATA_SUPPORT\Traffic_Mapping\District_Maps\" & Year & "\Abilene\Abilene_Base_Map.mxd") Case "Amarillo" pApp.OpenDocument ("K:\TASS\4_MAPPING_DATA_SUPPORT\Traffic_Mapping\District_Maps\" & Year & "\Amarillo\Amarillo_Base_Map.mxd") Case "Atlanta"
If cboStations.Text = "Annual" Then
pApp.OpenDocument ("K:\TASS\4_MAPPING_DATA_SUPPORT\Traffic_Mapping\District_Maps\" & Year & "\" & cboDistrict.Text & "\" & cboDistrict.Text & "_Base_Map.mxd")
ken, you beat me to it. should I be concerned that we think alike? Do you have access to my computer? Are you watching me? lol... no really, are you?