Hola:
Te lo explicaré a través de un ejemplo. Supongamos que yo tengo tres campos, [Nombre], [Apellidos] y [EC], que son los que se tienen que rellenar al seleccionar un valor en el combo. Evidentemente combo y campos están en el formulario.
Lo primero que haremos, por comodidad, es renombrar el combo. Sacas sus propiedades y te vas a la Pestaña Otras -> Nombre, y ahí le escribes cboDatos
Lo segundo, vamos a utilizrar el evento "Después de actualizar" del combo para ejecutar el código. Para eso, sacas las propiedades del combo y te vas a la Pestaña Eventos -> Después de actualizar, y le generas el siguiente código:
...
Private Sub cboDatos_AfterUpdate()
'Si no hay valor en el combo sale del proceso
If IsNull(Me.cboDatos.Value) Then Exit Sub
'Asignamos los valores del combo
With Me
.[Nombre].Value = .cboDatos.Column(0)
.[Apellido].Value = .cboDatos.Column(1)
.[EC].Value = .cboDatos.Column(2)
End With
End Sub
...
Debes tener en cuenta que el combo de ejemplo mostraba, por este orden, Nombre/Apellido/EC. Como el conteo de las columnas no empieza por 1, sino por 0 (cero), es por ello por lo que en el código le estoy diciendo
With me
.El valor del campo nombre = el valor de la columna 0 del combo
.El valor del campo apellido = el valor de la columna 1 del combo
etc.
Pues entre el With y el End With, siguiendo la estructura, tú debes poner todos los campos que quieras que se te rellenen y su correspondencia con el número de columna del combo.
Un saludo,
Neckkito (...
http://neckkito.eu5.org ...)
