Autor Tema: Cargando Textbox Con Combobox (Leído 1724 veces)

MeLaT · « **en:** Domingo 1 de Abril de 2007, 07:14 »

Hola !!!

El siguiente código lo tengo en un combobox. Con este quiero que cuando seleccionene un item de los que tiene, varios textbox se carguen dependiendo de lo que haya seleccionado haciendo una conexión a SQL.

Código: Text

Private Sub cmb_sistemac_Change()
    If cmb_sistemac.Text = &#34;1A&#34; Then
        nuevoT          'vacia los textbox
        CRITERIO = &#34;SELECT * FROM T_SISTEMA WHERE (SIS_SISTEMA LIKE '&#34; & cmb_sistemac & &#34;')&#34;
        abrirRS          'abre el RecordSource
'cargar los campos relacionados con el sistema elegido
        If RS.EOF Then
            MsgBox &#34;El sistema fue modificado.&#34;, vbExclamation, &#34;Sistema&#34;
        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 = &#34;1B&#34; Then
        nuevoT          'vacia los textbox
        CRITERIO = &#34;SELECT * FROM T_SISTEMA WHERE (SIS_SISTEMA LIKE '&#34; & cmb_sistemac & &#34;')&#34;
        abrirRS          'abre el RecordSource
'cargar los campos relacionados con el sistema elegido
        If RS.EOF Then
            MsgBox &#34;El sistema fue modificado.&#34;, vbExclamation, &#34;Sistema&#34;
        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
 

Pero me manda un "error de compilación y variable no definida" y señala a: "RS!SIS_SEMANA", en que ando mal ?!

Gracias. . .

Sagutxo

Salu2, creo que lo que te pasa es que no tienes definido RS y por eso te da Variable no definida. la tendras definida en otra función quiero decir, pero es difícil saber lo que te pasa con ese trozo de código dado que yamas a 2 funciones que no veo aunke se sabe lo que hacen por el texto que pones, tampoco te veo cerrar el RS ni la DB que supongo que tambien está abierta.

SoloCodigo

Autor Tema: Cargando Textbox Con Combobox (Leído 1724 veces)

MeLaT

Cargando Textbox Con Combobox

Sagutxo

Re: Cargando Textbox Con Combobox