Imprimir página | Cerrar ventana

Actualizar subformularios

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=84922
Fecha de impresión: 27/Marzo/2026 a las 06:03


Tema: Actualizar subformularios
Publicado por: Antonalo
Asunto: Actualizar subformularios
Fecha de publicación: 30/Diciembre/2019 a las 17:12
Hola
Tengo un formulario principal  con un control de ficha
en la primera ficha tengo un Subformulario SubForm1
En la segunda otro :  SubForm2

En SubForm1 introduzco nombre de personas
En SubForm2, uno de los controles es un desplegable que me da las direcciones de las personas de SubForm1

Todo funciona salvo que me vuelvo loco dando a guardar y actualizar hasta que por fin me aparecen las direcciones

Quisiera una forma de que cuando vaya a la pestaña del subform2, se actualice.

He probado:

Private Sub Ficha_Change()
If Me.Pagina2 = 1 Then
Me.SubForm1.Requery
Me.SubForm2.Requery
End If
End Sub


esto no me funciona

Como sería la mejor forma?


Respuestas:
Publicado por: Antonalo
Fecha de publicación: 30/Diciembre/2019 a las 17:28
Bueno puesto que ya he encontado la solución, yo mismo me contesto y así, el que sepa menos que yo puede aprender algo

Private Sub Ficha_Change()
If Me.Pagina2 = 1 Then
Me.SubForm1.Requery
Me.SubForm2.Form!ComboDirecciones.Requery
End If
End Sub

Publicado por: Antonalo
Fecha de publicación: 30/Diciembre/2019 a las 23:19

Me imagino que si no hay ningún comentario es porque la solución no es mala.
Me va bien, y aunque supongo que habrá muchas otras formas de hacer lo mismo, esto es super sencillo y lo probaré en otras partes. Si en algún sitio no funciona ya veremos.

Lo he dejado porque es una situación que puede aparecer a menudo y supongo que habrá gente que también pueda tener ese problema, pero ya podéis cerrar.

Publicado por: Antonalo
Fecha de publicación: 11/Febrero/2020 a las 18:47
Este hilo lo podéis cerrar


Imprimir página | Cerrar ventana