Copiar datos de una tabla a otra
Hola y gracias por adelantado.
Tengo mi formulario factura y el subformulario lineas_factura. En lineas_factura, hay un campo que es precio, el cual, quiero que al elegir el código del producto (cod_pro) en el subformulario, me busque el precio en la tabla productos y me lo coloque.
Por tanto, tengo este código
Private Sub cod_prod_AfterUpdate()
DoCmd.RunSQL "Insert into LINEAS_FACTURA(pvp_unid) select pvp from PRODUCTOS where [cod_prod]=cod_prod"
End Sub
El problema es que me pregunta si quiero actualizar todas las filas, cuando yo realmente sólo quiero la fila que estoy introduciendo. En las dos tablas, el código del producto se llama igual.
Saludos y gracias
Tengo mi formulario factura y el subformulario lineas_factura. En lineas_factura, hay un campo que es precio, el cual, quiero que al elegir el código del producto (cod_pro) en el subformulario, me busque el precio en la tabla productos y me lo coloque.
Por tanto, tengo este código
Private Sub cod_prod_AfterUpdate()
DoCmd.RunSQL "Insert into LINEAS_FACTURA(pvp_unid) select pvp from PRODUCTOS where [cod_prod]=cod_prod"
End Sub
El problema es que me pregunta si quiero actualizar todas las filas, cuando yo realmente sólo quiero la fila que estoy introduciendo. En las dos tablas, el código del producto se llama igual.
Saludos y gracias
1 respuesta
Respuesta de luis45ccs
1
en el sql pones where [cod_prod]=cod_prod" pero no le dices de que factura
tambien le puedes quitar los mensages para que no aparezcan, pero mas facil seria usar
dlookup("Campo","tabla", "[cod_prod]='" & cod_prod & "'") si el código es numerico quita los apostrofes
tambien le puedes quitar los mensages para que no aparezcan, pero mas facil seria usar
dlookup("Campo","tabla", "[cod_prod]='" & cod_prod & "'") si el código es numerico quita los apostrofes
