** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Access y VBA > Access y VBA
  Mensajes nuevos Mensajes nuevos RSS - Repetir Campo en Subformulario
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoRepetir Campo en Subformulario

 Responder Responder
Autor
Mensaje
CacoMarco Ver desplegable
Asiduo
Asiduo


Unido: 12/Octubre/2011
Localización: Chile
Estado: Sin conexión
Puntos: 283
Enlace directo a este mensaje Tema: Repetir Campo en Subformulario
    Enviado: 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
Arriba
main Ver desplegable
Colaborador
Colaborador
Avatar

Unido: 31/Agosto/2009
Localización: OVIEDO
Estado: Sin conexión
Puntos: 1258
Enlace directo a este mensaje Enviado: 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


Editado por main - 14/Agosto/2019 a las 11:50
Arriba
CacoMarco Ver desplegable
Asiduo
Asiduo


Unido: 12/Octubre/2011
Localización: Chile
Estado: Sin conexión
Puntos: 283
Enlace directo a este mensaje Enviado: 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
Arriba
CacoMarco Ver desplegable
Asiduo
Asiduo


Unido: 12/Octubre/2011
Localización: Chile
Estado: Sin conexión
Puntos: 283
Enlace directo a este mensaje Enviado: 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
Arriba
rokoko Ver desplegable
Colaborador
Colaborador
Avatar

Unido: 16/Febrero/2008
Localización: Pamplona
Estado: Sin conexión
Puntos: 3062
Enlace directo a este mensaje Enviado: 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

Editado por rokoko - 16/Agosto/2019 a las 21:38
Arriba
Plinio Montano Ver desplegable
Habitual
Habitual
Avatar

Unido: 10/Marzo/2015
Localización: Cuba
Estado: Sin conexión
Puntos: 124
Enlace directo a este mensaje Enviado: 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
Arriba
CacoMarco Ver desplegable
Asiduo
Asiduo


Unido: 12/Octubre/2011
Localización: Chile
Estado: Sin conexión
Puntos: 283
Enlace directo a este mensaje Enviado: 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
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable