Guardar información de cuadro combinado en un formulario a una tabla
Primeramente cuento con una tabla principal donde se tiene que almacenar toda la información que se escriba dentro de un formulario, por lo cual al realizar el formato ocupe "agregar campos existentes" de tal forma que si escribo en el formulario y lo guardo, también se guarde en la tabla. Hasta ahí iba bien.
Conforme a las necesidades del formulario realice un cuadro combinado de forma independiente almacenando el valor del campo dentro de un "cuadro de edición " (que es un campo existente dentro de la tabla) así que en mi formulario tengo : mi cuadro combinado "no. De ficha"( se despliegan opciones y cada línea tiene 3 datos : 1212-Juan Mar- seguridad e higiene ) al seleccionar la opción el resultado se va a un apartado "nombre" donde aparece únicamente el dato de "juan mar" y por tanto al almacenarlo en un campo existente aparece en mi tabla principal.
El problema esta que en la tabla las columnas van así: Ficha- nombre- departamento. Y por tanto el dato de "juan mar" si aparece en el "nombre" pero ficha no aparece, porque es un cuadro combinado independiente, entonces lo que quiero hacer es que al seleccionar la ficha ( que en formulario solo aparece el " 1212" y no "juan mar- seguridad e higiene ) en el cuadro combinado esa información aparezca en la tabla, para así poder guardarla, solo quiero que se guarde el número.
Pensé en agregar ficha como campo existente que es considerado cuadro de edición, para luego con clic derecho cambiarlo a cuadro combinado pero no me aparece la opción de "asistente para cuadro combinado" y por tanto se convierte en cuadro combinado pero se queda en blanco.
1 respuesta
En primer lugar, si quieres que un valor se guarde en la tabla, así como dices que lo tienes estructura, es necesario que ese campo esté en el formulario (que entiendo que tiene como origen de datos la propia tabla).
Si no he entendido mal tu explicación (que resulta un tanto confusa), lo que yo haría sería:
En el formulario, añadir el campo que debe guardarte el 1212. A ese campo yo lo llamaré [NFicha]. Si no quieres que se vea sacas sus propiedades -> Pestaña Formato -> visible: NO
En el combo independiente (que yo llamaré [NCombo] que tienes sacas sus propiedades y te vas a Pestaña Eventos -> Después de actualizar, y le asignas el siguiente código:
...
Private Sub...
Dim laFicha as long 'Supongo que el tipo de campo de [NFicha] es entero largo
laFicha=nz(me.[NCombo].value,0)
If laFicha=0 then
exit sub
else
me.[NFicha].value=me.[NCombo].Column(0)
end if
end sub
...
A ver si con esto te sale.
