Imprimir página | Cerrar ventana

Repetir Campo en Subformulario

Impreso de: Foro de Access y VBA
Categoría: Access y VBA
Nombre del foro: Access y VBA
Descripción del foro: Foro de programacion en Access (Con código y sin código)
URL: http://www.mvp-access.com/foro/forum_posts.asp?TID=84644
Fecha de impresión: 24/Abril/2024 a las 12:03


Tema: Repetir Campo en Subformulario
Publicado por: CacoMarco
Asunto: Repetir Campo en Subformulario
Fecha de publicación: 14/Agosto/2019 a las 02:11
Buenas noches estimados. Les escribo para solicitarles ayuda en lo sgte.en Access 2016:

En un formulario tengo un subformulario y que se basa en una tabla "TbDetallePresupuesto"
En esa tabla hay un campo "Margen" que tiene como valor predefinido 30.
Lo que quiero hacer es poner un cuadro de texto en el formulario principal para, por ejemplo, digitar 20 y todos los registros del subformulario del campo "Margen" cambien a 20 (o el número que digite).

Ocurre que a veces el subformulario tiene muchos registros y es una pérdida de tiempo enorme cambiarlo uno a uno.

Nota: Tanto el Formulario principal y el subformulario (y obviamente la tabla) tienen un registro por el que se ligan de nombre "NRO_OT".

Saludos a todos y muchas gracias como siempre por su gran aporte.




-------------
CacoMarco/Chile


Respuestas:
Publicado por: main
Fecha de publicación: 14/Agosto/2019 a las 11:49
Hola: Algo asi debería funcionarte
with me.nombreSubform.Form.Recordsetclone
     .movefirst
     Do until .eof
          .edit
          .Margen=CuadroTextoFormularioPrincipal
         .update
         .movenext
end with

Publicado por: CacoMarco
Fecha de publicación: 16/Agosto/2019 a las 19:18
Gracias Main por tu respuesta.
Me perdí y no se dónde poner ese código.



-------------
CacoMarco/Chile

Publicado por: CacoMarco
Fecha de publicación: 16/Agosto/2019 a las 20:40
Hecho a correr el código y me dice que "End With sin With"
No entiendo, ya que si está el With.....


-------------
CacoMarco/Chile

Publicado por: rokoko
Fecha de publicación: 16/Agosto/2019 a las 21:37
Con una consulta de actualizacion, con la TbDetallePresupuesto y  campos margen  y NRO_OT en el criterio  de NRO_OT  pon Formularios!NombreFormulario!NRO_OT   y en el campo margen el numero que quieras poner, entiendo que es el campo clave.  Formularios!NombreFormulario!NRO_OT

Publicado por: Plinio Montano
Fecha de publicación: 16/Agosto/2019 a las 22:49
Lo que te propone main lo puedes escribir en el evento Despues de Actualizar del cuadro de texto que vas a poner en el Formulario_1

Saludos cordiales

-------------
pmv

Publicado por: CacoMarco
Fecha de publicación: 16/Agosto/2019 a las 23:01
Gracias a todos, finalmente lo resolví con lo que explicó Rokoko.
Gracias de nuevamente.

Pueden cerrar el hilo


-------------
CacoMarco/Chile


Imprimir página | Cerrar ventana