Insertar valor en un campo de consulta
Hola,
Después de buscar por infinidad de webs, no encuentro lo que necesito:
He creado un formulario para la introducción de datos, y este depende de un consulta.
Necesito que valores de algunos campos del formulario, también se graben en otros campos de la consulta que no están reflejados en el formulario.
Ejemplo: Introduzco el Nombre del Cliente en el Campo [Cliente] del formulario, y también quiero que ese mismo valor , se inserte en el campo [Cliente] de la tabla Ofertas, que también esta especificado en la consulta, pero no en el formulario.
¿Como lo hago?
Gracias por adelantado
1 Respuesta
Podrías hacerlo a través de código VBA.
Tendrías que crear un recordset para una tabla y otro para otra tabla. Por ejemplo:
Dim rs As Recordset
Dim db As Database
Set db = CurrentDb 'indicamos la base de datos, en este caso, es la base de datos activa
Set rs = db.OpenRecordset("TuTabla1")
rs.AddNew 'nuevo registro
rs!CLIENTE = Form!TXcliente.Value
Dim rs2 As Recordset
Dim db2 As Database
Set db2 = CurrentDb 'indicamos la base de datos, en este caso, es la base de datos activa
Set rs2 = db2.OpenRecordset("TuTabla2")
rs2.AddNew 'nuevo registro
rs2!CLIENTE = Form!TXcliente.Value
Más o menos sería algo así, sólo tendrías que cambiar los nombres de la tabla y campos por los tuyos, siendo:
TuTabla1 y 2: el nombre de las tablas
CLIENTE: el nombre del campo de la tabla
TXcliente: nombre del cuadro de texto del formulario.
Ha pasado mucho tiempo sin respuesta.