Ocultar área de trabajo de access 2016 y trabajar con formulario
Quiero que al abrir el formulario que Yo quiero, el entorno de access se cierre y quede el formulario que yo quiero. Que abra el formulario lo tengo pero que se cierre el entorno de access no l consigo.
He encontrado algo pero no funciona:
Option Explicit
Const SW_HIDE = 0
Const SW_NORMAL = 1
Const SW_MINIMIZED = 2
Const SW_MAXIMIZED = 3
Private Declare 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 PRINCIPAL", windowmode:=acDialog
End Sub
Private Sub Form_Unload(Cancel As Integer) Dim lngRetCode As Long lngRetCode = ShowWindow(hWndAccessApp, SW_MAXIMIZED)
End Sub
Esto es le que he conseguido, pero no me dunciona. Además de quedarse colgado Access al cerralo y he de apagar y encender el ord, borrarla y volver a instalarla, ya que he tenido la precaución de hacer una copia en un pendrive
La imagen
Y la función declarada en un módulo
Option Compare Database Global Const SW_HIDE = 0 Global Const SW_SHOWMINIMIZED = 2 Global Const SW_SHOWMAXIMIZED = 3 Private Declare PtrSafe Function apiShowWindow Lib "user32" _ Alias "ShowWindow" (ByVal hwnd As Long, _ ByVal nCmdShow As Long) As Long Function fSetAccessWindow(nCmdShow As Long) Dim loX As Long Dim loForm As Form loX = apiShowWindow(hWndAccessApp, nCmdShow) End Function
De forma que cuando va a abrirse el formulario
Oculta todo el entorno Access, y si desde el escritorio creas un acceso directo a la base te queda como
Personalmente, en el botón de cerrar tengo puesto
Application. Quit
1 respuesta más de otro experto
¿Y no ha probado en programar la cinta de opciones?
Si no estoy mal los formularios deben tener en Propiedades, Otras, Emergente y Modal en SI.
Esto de ocultar el entorno hace que no se aprovechen algunas opciones de Access.
¡Gracias!
Si lo probé y después de meterlo en un modulo me funciona.
Lo quiero así para las personas que tienen que usarlo no se metan y modifiquen cosas y dege de funcionar.
bueno pues ahora no va
Si sabe programar la cinta de opciones y VBA puede controlar el acceso de los usuarios a los diferentes módulos sin necesidad de ocultar el entorno de Access y sacrificar las bondades de la cinta de opciones, esto era más común en las versiones anteriores a Access 2007. Tómelo como una recomendación-