Ocultar el entorno de Access, me marca error, como corregirlo?
Tengo el siguiente código para ocultar el entorno de Access:
Option Compare Database
Private Sub Form_Open(Cancel As Integer)
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 "Inicio de sesión", windowmode:=acDialog
End Sub
Private Sub Form_Unload(Cancel As Integer)
Dim lngRetCode As Long
lngRetCode = ShowWindow(hWndAccessApp, SW_MAXIMIZED)
End Sub
Al iniciar la aplicación o el programa, me manda el siguiente mensaje de error:
¿A qué se debe?
1 Respuesta
Mauricio: No sé si es un error de Copia, pero si no fuera así te sobra la primera línea de apertura del Formulario: No he mirado nada más.
Option Compare Database
Private Sub Form_Open(Cancel As Integer) 'Sobra
Saludos >> Jacinto
Muchas gracias Jacinto, justo lo que me mencionas resolvió el problema que tenía con mi base, es decir, esa línea de código la tenía de más.
