:realmad:
To whom it may concern,
The following code does what it is suppost to for the first 2 case statements GT-116 PD and GT-116 PC but fails to work for the next two case statements GT-116 PB and GT-116 PA.
It will warn the user to pick a horizontal or vertical duct mount position (see code)
any help would be appreciated.
Mark
VBA code start
Private Sub cmd_sensor_gt_116_p_Click()
'ComboBox_gt_116_p Dropdown Menu
ComboBox_gt_116_p.Style = fmStyleDropDownList
'Get ComboBox_gt_116_p Dropdown Menu user pick
Select Case ComboBox_gt_116_p.Text
Case "GT 116-PD" 'Calls sub from Module_ebtron_sensors
If Opt1_gt_116_horiz = True Then
'Gets the Horizontal block
Sensor_gt_116_pd_horizontal_get
End If
If Opt2_gt_116_vert = True Then
'Gets the Vertical block
Sensor_gt_116_pd_vertical_get
Else: pick_gt_116_position_warn
End If
Case "GT 116-PC" 'Calls sub from Module_ebtron_sensors
If Opt1_gt_116_horiz = True Then
'Gets the Horizontal block
Sensor_gt_116_pc_horizontal_get
End If
If Opt2_gt_116_vert = True Then
'Gets the Vertical block
Sensor_gt_116_pc_vertical_get
Else: pick_gt_116_position_warn
End If
Case "GT 116-PB" 'Calls sub from Module_ebtron_sensors
If Opt1_gt_116_horiz = True Then
'Gets the Horizontal block
Sensor_gt_116_pb_horizontal_get
End If
If Opt2_gt_116_vert = True Then
'Gets the Vertical block
Sensor_gt_116_pb_vertical_get
Else: pick_gt_116_position_warn
End If
Case "GT 116-PA" 'Calls sub from Module_ebtron_sensors
If Opt1_gt_116_horiz = True Then
'Gets the Horizontal block
Sensor_gt_116_pa_horizontal_get
End If
If Opt2_gt_116_vert = True Then
'Gets the Vertical block
Sensor_gt_116_pa_vertical_get
Else: pick_gt_116_position_warn
End If
End Select
End Sub