[RESUELTO]SubForms en linea Nuevo Registro al abrir un Form

[antonsiete]

Hola,

Para abrir Forms en la linea de Nuevo registro, estoy usando esta Macro proporcionada por Longi(Muchas gracias):

Código: Seleccionar todo

REM  *****  BASIC  *****

Option Explicit'Obliga a declarar las variables antes de poder usarlas


'Inicio Macro para abrir Formularios en la linea de Nuevo Registro
Sub NuevoRegistro (Evento)
    
    Evento.Source.movetoInsertRow

End sub
'Fin Macro

que va genial para los Forms en los que hay un Control de Tablas y de esta forma se abre en la linea de nuevo registro mostrando los Registros existentes,
pero por lo veo no hace "efecto" en los SubForms que haya "anidados" en ese Form principal, (en las Propiedades de SubForms, en Acontecimientos, tambien lo tengo puesto en la linea "Al cargar").

¿Hay alguna forma de que esos SubForms se abran tambien el la linea Nuevo registro al abrir el Form en el cual estan "anidados"?

Un saludo y gracias

[RMG]

Hola,

Ten en cuenta una cosa los subform estan vinculado a un id del form, como el form al cargar aun no tiene datos la logica es que el subfom tampoco. No se si es ese tu problema.

Saludos

[antonsiete]

Hola,

ok, me he explicado mal,

Cuando abro el formSociasAlta, en el Control de Tablas que muestra la lista de las socias va a la linea nuevo registro, por lo tanto no hay datos vinculados en los Subforms ContactosSocia y CuotasSocia, y salen en blanco.
Me refiero a cuando yo selecciono uno de los registros ya existentes en la lista, para modificar o añadir algun dato, en los SubForms no va a la linea de nuevo registro.
Si hay alguna forma de hacerlo, bien, y si no, tampoco pasa nada, son solo curiosidades que me surgen.

Un saludo

[RMG]

Hola,

Esto te puede servir, pero para mi opinión es cargar la BD con cosas innecesarias. Puedes ordenar los subform por fecha descendente para ver los últimos datos.

En el evento Tras cambio de registro del Form.

Código: Seleccionar todo

Sub NuevoRegistroSub (Evento)
	wait 100' sin esta espera de tiempo da error
	If Evento.Source.IsNew Then Exit Sub
       Evento.Source.SubForm_Cuotas.movetoInsertRow
	Evento.Source.SubForm_ContactosSocia.movetoInsertRow
End sub

Saludos

[antonsiete]

Hola,

muchas gracias,

Lo guardo para probarlo en algun momento, pero como no es algo imprescindible de momento no lo voy a usar por seguir en la linea de cuanto mas simple mejor.

Un saludo