Access - Podeis ver mi codigo idecirme que puedo hacer para

HOLA A TODOS TENGO UN PEQUEÑO PROBLEMA TENGO TENGO UN FORMULARIO CON UN SUB FORMULARIO LOS CUALES TIENEN EL MISMO ORIGEN LO QUE QUIERO HACER ES QUE SI ME SITUO EN UN REGISTRO EN EL SUB FORMULARIO "CENTROS_LISTADO" ME ACTUALICE EL FORMULARIO PADRE "CENTROS" ASI QUE LO QUE HE ECHO SON DS FUNCIONES UNA QUE ME ACTUALICE EL HIJ CUANDO ESTOY EN EL PADRE Y LA OTRA QUE ME ACTUALICE EL PADRE CUANDO ESTOY EN EL HIJO PERO CUANDO SE ESTA EJECUTANDO ESTO PETA HE CREADO UN SEMAFORO O ALGO PARECIDO PARA NO CAER EN UN BUCLE SIN FIN ESTE ES EL CODIGO:

CENTROS:

Private Sub Form_Current()
Call sSubformularioSituar(Me.CENTROS_Listado)
End Sub


Sub sSubformularioSituar(poSubForm As SubForm)
mbParar = True
MsgBox Me.CENTROS_Listado.Form.RecordSource

Set poSubForm.Form!Recordset = Me.Recordset
mbParar = False
End Sub

CENTROS_LISTADO

'Public A As String
Private Sub Form_Current()
If mbParar = False Then
If Not (Me.Parent Is Nothing) Then
Call sMainformularioSituar(Me)
End If
End If
End Sub


Sub sMainformularioSituar(poSubForm As Form)
Set poSubForm.Parent.Form.Recordset = poSubForm.Recordset
End Sub

VARIABLE PUBLICA CREADA EN UN MODULO
Public mbParar As Boolean

GRACIAS POR TODO

La solución para actualizar el formulario padre desde el subformulario al situarse en un registro se puede lograr utilizando el evento "Current" en ambos formularios. Aquí tienes el código modificado para evitar el bucle infinito y lograr el resultado deseado:

CENTROS:


CENTROS_LISTADO:


En este código, se agregó una verificación adicional para evitar que se ejecute la actualización si el registro actual del subformulario es igual al registro anterior. También se utiliza un clon del recordset para buscar el registro correspondiente en el formulario padre y asignar el bookmark adecuado.

Recuerda declarar la variable pública "mbParar" en un módulo, tal como lo has hecho.

Con esta solución, podrás actualizar el formulario padre desde el subformulario al situarse en un registro sin caer en un bucle infinito.

Espero que esta solución te sea útil. ¡Buena suerte!