Hola,
vi en un post de este foro que indica que esta pregunta es recurrente, sin embargo no logro encontrar el hilo adecuado (disculpen por ello), por lo que formulo mis preguntas:
1. ¿Cómo ocultar la venta de Access para que el archivo funcione como un programa ejecutable de cara al usuario?De este video (
https://www.youtube.com/watch?v=FKx4ZYmDPIw)he cogido un código para ocultar la ventana de Access.
El código funciona, sin embargo, no entiendo qué significan esas líneas de código, ni dónde aprender respecto a ellas. Por tanto no puedo manipularlas ni adecuarlas a mis necesidades.
Te agradecería si puedes explicar estas líneas, o, en todo caso, indicar el código que sugieres para hacer ello (y explicarlos de ser posible). (O indicar los hilos donde se trate el tema o las palabras clave para buscarlos)
- ¿qué son esas constantes SW_HIDE, SW_NORMAL, etc.?
- ¿qué es y qué hace esa función ShowWindow Lib "user32" y sus parámetros?
- ¿cómo funciona ShowWindow y sus parámetros?
Entiendo el evento OPEN, pero no entiendo el evento UNLOAD
Lo único que entiendo es la sentencia DoCmd.OpenForm "MENU"
2. ¿Cómo ocultar el botón "[X] (cerrar ventana)" en dicho código?Sucede que, aunque el código indicado funciona, si por error cierro el formulario con el botón [X], el Access se queda colgado y se tiene que reiniciar la PC. Agradecería saber cómo incrustar el código para eliminar ese botón (y la explicación del caso).
El código que estoy utilizando es el siguiente:Option Explicit
Const SW_HIDE = 0
Const SW_NORMAL = 1
Const SW_MINIMIZED = 2
Const SW_MAXIMIZED = 3
Private Declare PtrSafe Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Sub Form_Open(Cancel As Integer)
Call ShowWindow(hWndAccessApp, SW_HIDE)
DoCmd.OpenForm "MENU", windowmode:=acDialog
End Sub
Private Sub Form_Unload(Cancel As Integer)
Dim lngRetCode As Long
lngRetCode = ShowWindow(hWndAccessApp, SW_MAXIMIZED)
End Sub
Desde ya muchas gracias por tu atención a estas dudas.
Gracias!
César C.
