Problema al ocultar entorno de Access
Publicado por Salvador (94 intervenciones) el 31/08/2018 10:18:13
Intento crear una base de datos que oculte el entorno de Access.
Todo me funciona bien al crear un formulario con el siguiente código:
Ese código me funciona solo para moverme por formularios, pero no
me permite abrir/imprimir informes o consultas.
¿Alguien sabe si es posible solucionar esto?, ¿o no es posible?
Envío u ejemplo
Saludos
Salva
Todo me funciona bien al crear un formulario con el siguiente código:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
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 "CAMBIAR NOMBRE", windowmode:=acDialog
End Sub
Private Sub Form_Unload(Cancel As Integer)
Dim lngRetCode As Long
lngRetCode = ShowWindow(hWndAccessApp, SW_MAXIMIZED)
Ese código me funciona solo para moverme por formularios, pero no
me permite abrir/imprimir informes o consultas.
¿Alguien sabe si es posible solucionar esto?, ¿o no es posible?
Envío u ejemplo
Saludos
Salva
Valora esta pregunta
0