[RESUELTO] Cerrar formulario guardando sin preguntar

[jopicach]

Hola,

Estoy intentando a través de un botón cerrar un formulario y que lo haga guardando primero los datos modificados de formulario y subformularios, pero sin preguntar si quiero guardar, que los guarde directamente.

He encontrado en el foro estas opciones de RMG

con macro = ThisComponent.CurrentController.Frame.Close( True )
sin macro = En la propiedad del botón "Acción", seleccionar "Abrir documento/ página web", y en la propiedad "URL" poner, .uno:CloseDoc

En la opción con macro no me guarda los datos, con la opción sin macro (que esta muy bien) si, pero me pregunta si quiero guardar.

Gracias.

[RMG]

Hola,

Una posible solución es decirle que antes de cerrar que te guarde el registro modificado.

Código: Seleccionar todo

Sub GuardarRegistro( Evento )
Dim oForm As Object
	oForm = Evento.Source.Model.Parent
	If oForm.IsModified Then
		If oForm.IsNew Then oForm.InsertRow Else oForm.UpdateRow
	End If
End sub

Saludos

[jopicach]

Hola,

He probado tu solución añadiendo la línea para que cierre el formulario, el resultado que me da es que si modifico algo, al salir tengo que pulsar dos veces el botón y sale guardando datos, pero si no modifico nada, no sale del formulario.

Sub GuardarRegistro( Evento )
Dim oForm As Object
oForm = Evento.Source.Model.Parent
If oForm.IsModified Then
If oForm.IsNew Then oForm.InsertRow Else oForm.UpdateRow
ThisComponent.CurrentController.Frame.Close(true)
End If
End sub

Gracias.

[RMG]

Hola,

La linea que has añadido, debe ir al final, después del End If.

Saludos

[jopicach]

Hola,

Esa opción la había probado también. Se cierra el formulario pero sin guardar los cambios.

Saludos

[RMG]

Hola,

Puedes adjuntar un pequeño ejemplo?.

Saludos

[jopicach]

Hola,

Adjunto el archivo. Al cerrar con el botón no guarda cambios.

Saludos

[RMG]

Hola,

Dos posibles soluciones.

La macro mencionada puesta en el evento al perder el foco de los controles a modificar y cerrar con .uno:CloseDoc.

El botón que haga dos acciones, salva primero el registro con .uno:RecSave y ejecuta una macro solo para cerrar el formulario.

Mira el adjunto.

[jopicach]

Hola,

Creo que la segunda opción es la que mejor se va a adaptar, muy buena solución, funciona perfecto. Y Muchas gracias por la rapidez.

Un saludo.