La Web del Programador: Comunidad de Programadores
 
    Pregunta:  19125 - CAMBIAR CAMPOS CUANDO SELECCIONAMOS UN ITEM DE UN DBCOMBO VB
Autor:  Edilberto Tapiero
Tengo un DBcombo sobre un formulario el cual me despliga todos los registros de un determinado campo, a la vez tengo dos textbox que contienen otros campos de la misma tabla; cuando despliego la lista del DBcombo y selecciono un registro no cambian los datos de los dos textbox que tengo abajo; mientras que si le doy avanzar con el datacontrol si cambian los tres(dbcombo y los 2 Txtbox)

  Respuesta:  Matias Alejandro Nolazco Guerrero.
Si estas trabajando con Access97.

Primero:
Cierro la base de datos porque me imagino que el data lo tienes conectado directamente mediante las propiedades y durante la ejecuciĆ³n del programa siempre tendras la base de datos abierta y al tener abierta la base de datos cualquier cambio que modifiques en los textbox y el combo se vera afectada en la base de datos y se reflejara
como registro modificado.

Teclea el siguiente codigo.

Private Sub Combo1_Click()
Dim Var As String
Data1.Database.Close
Var = "SELECT * FROM TABLA WHERE campoligadoalcombo LIKE'*" & Combo.Text & "*'"
'Conecto de nuevo la base de datos para que puedas moverte tambien mediante el data
'para el registro seleccionado en el combo.
Data1.DatabaseName = "e:\Ruta.mdb"
Data1.RecordSource = Var
'Actualizo el data
Data1.Refresh
End Sub

!Espero que te sirba