Private Sub cmb_sistemac_Change()
If cmb_sistemac.Text = "1A" Then
nuevoT 'vacia los textbox
CRITERIO = "SELECT * FROM T_SISTEMA WHERE (SIS_SISTEMA LIKE '" & cmb_sistemac & "')"
abrirRS 'abre el RecordSource
'cargar los campos relacionados con el sistema elegido
If RS.EOF Then
MsgBox "El sistema fue modificado.", vbExclamation, "Sistema"
Else
txt_semana.Text = RS!SIS_SEMANA
txt_dia.Text = RS!SIS_DIA
txt_mes.Text = RS!SIS_MES
txt_otro.Text = RS!TST_VALOROTROS
End If
Elseif
cmb_sistemac.Text = "1B" Then
nuevoT 'vacia los textbox
CRITERIO = "SELECT * FROM T_SISTEMA WHERE (SIS_SISTEMA LIKE '" & cmb_sistemac & "')"
abrirRS 'abre el RecordSource
'cargar los campos relacionados con el sistema elegido
If RS.EOF Then
MsgBox "El sistema fue modificado.", vbExclamation, "Sistema"
Else
txt_semana.Text = RS!SIS_SEMANA
txt_dia.Text = RS!SIS_DIA
txt_mes.Text = RS!SIS_MES
txt_otro.Text = RS!TST_VALOROTROS
End If
End If
End Sub