Error al ocultar entorno de Access en 64bit
Publicado por Ray (1 intervención) el 28/03/2019 11:22:04
Saludos, soy novato en esto de access y he tenido un pequeño problema tengo este código para poder ocultar el entorno de Access pero me genera un error al abrir al archivo.
Este es el codido
y este es el error que me presenta al abrir el archivo.

espero puedan ayudarme.
gracias..
Este es el codido
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Option Explicit
Const SW_HIDE = 0
Const SW_NORMAL = 1
Const SW_MINIMIZED = 2
Const SW_MAXIMIZED = 3
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 Menu", windowmode:=acDialog
End Sub
Private Sub Form_Unload(Cancel As Integer)
Dim lngRetCode As Long
lngRetCode = ShowWindow(hWndAccessApp, SW_MAXIMIZED)
End Sub
y este es el error que me presenta al abrir el archivo.

espero puedan ayudarme.
gracias..
Valora esta pregunta


0