La Web del Programador: Comunidad de Programadores
 
    Pregunta:  50046 - BOTON PARA SALIR DE ACCESS
Autor:  cristina gp
Hola a todos,
tengo un problema con una aplicacion de Access. Tengo una serie de formularios a los que he agregado un boton para poder salir del programa. El caso es que cuando se hace click en el boton se cierra Access, pero me gustaria que saliera un mensaje con la pregunta de si estas seguro que deseas salir de Access, porque hasta ahora lo cierra sin mas.
He probado con DoCmd.Quit acFormPrompt, con una macro... pero no consigo que realice la pregunta antes de cerra todo.

Muchas gracias por vuestra ayuda.
Un saludo.

  Respuesta:  Juan Amorós Cantó
Hola Cristina:
Has muchas opciones:
Una sencilla...

1.- En cada botón de acces incluye en el evento AL HACER CLICK: (entre el Sub y el End Sub)
...
DIm respuesta, estilo, mensaje, titulo
mensaje=\"¿Desea salir de Access?\"
estilo = vbYesNo + vbQuestion
titulo=\" Advertencia \"

respuesta=msgbox(mensaje, estilo, titulo)
if respuesta=vbYes
Docmd.RunMacro \"TUMACRO.SubmacroCERRAR\" (1)
Exit Sub
Else
Exit Sub
End if
...
(1) Macro que tan sólo debe de cerrar ACCESS. Si No hay submacro, no hace falta que pongas nada después del nombre de tu macro.

Otra manera sería escribir el código en un módulo e invocarlo al hacer click en botón de cada formulario. Pero te propongo que esa segunda opción la desarrolles tú..., te gustará.

Saludos
Juan Amorós

PD.- Si tienes dudas me lo dices