** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Access y VBA > Access y VBA
  Mensajes nuevos Mensajes nuevos RSS - Código VBA Datos anexados - 2da parte
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoCódigo VBA Datos anexados - 2da parte

 Responder Responder
Autor
Mensaje
CacoMarco Ver desplegable
Asiduo
Asiduo


Unido: 12/Octubre/2011
Localización: Chile
Estado: Sin conexión
Puntos: 258
Enlace directo a este mensaje Tema: Código VBA Datos anexados - 2da parte
    Enviado: 14/Febrero/2019 a las 03:33
Estimado Mihura; En una consulta de mi parte me entregó este código como solución el cual incluí en el botón del formulario y funciona perfectamente.

DoCmd.RunSQL "INSERT INTO TbDetallePresupuesto ( IdPresupuesto, IdProducto, Stock, Cantidad ) SELECT " & Me.IdPresupuesto & ", IdProducto, Stock, Cantidad FROM TbTemporalAgregarRepuestos"

Ocurre que a la TBTemporalAgregarRepuestos tuve que agregar un nuevo campo de nombre NroOTC
Al código anterior me faltaría agregar una condición Where para que los datos de la TBTemporalAgregarRepuestos que insertaré en la TBDetallePresupuesto sean sólo aquellos cuyo campo del formulario (NroOTC) sea igual al campo NroOTC de la TBemporalAgregarRepuestos.

Probé con esto, pero no funciona:

DoCmd.RunSQL "INSERT INTO TbDetallePresupuesto ( IdPresupuesto, IdProducto, Stock, Cantidad ) SELECT " & Me.IdPresupuesto & ", IdProducto, Stock, Cantidad FROM TbTemporalAgregarRepuestos" _
& " WHERE TBTemporalAgregarRepuestos.[NroOTC]='" & Me.NroOTC & "'"

Recalcado está lo que agregué pero no funciona.
Saludos,
CacoMarco/Chile
Arriba
Mihura Ver desplegable
Administrador
Administrador
Avatar

Unido: 06/Mayo/2005
Localización: En la dehesa
Estado: Sin conexión
Puntos: 10841
Enlace directo a este mensaje Enviado: 14/Febrero/2019 a las 08:40
No dices si te casca o si no te hace nada, que son distintas cosas.

De todas formas, la sentencia es correcta si el campo NroOTC es string, si no lo es sobrarían las comillas simples.

Controla el valor que tiene Me.NroOTC en el momento de la ejecución.


Jesús Mansilla Castells.
Saludos desde Móstoles.

Access Aplicaciones
Tecsys.es
Arriba
CacoMarco Ver desplegable
Asiduo
Asiduo


Unido: 12/Octubre/2011
Localización: Chile
Estado: Sin conexión
Puntos: 258
Enlace directo a este mensaje Enviado: 14/Febrero/2019 a las 12:34
Thumbs Up Hola Mihura, funciona bien sorry, está funcionando perfecto.
Tenía "basura" más abajo en el código y no me había dado cuenta, al parecer necesitaba descansar un poco.
Pero todo Ok.

Muchas gracias, pueden cerrar el hilo.
CacoMarco/Chile
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable