Como ejecutar el Informe despues de ejecutar el entorno de Access
Publicado por XAVIELON1 (1 intervención) el 28/02/2024 01:43:00
Lugo de horas y horas de pruebas en un App que desarrolle se me presentaba el problema que cuando ejecutaba el informe se me ocultaba. Después de Varios Intentos fallidos llegué a la solucion a este problema que tanto nos afecta a los fanáticos de Access, después de utilizar el código para ocultar el entorno de Access, harás lo siguiente:
Option Compare Database
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 "F_Panel_Principal", windowmode:=acDialog
End Sub
Private Sub Form_Unload(Cancel As Integer)
Dim lngRetCode As Long
lngRetCode = ShowWindow(hWndAccessApp, SW_MAXIMIZED)
End Sub
vas a crear una macro
con los siguientes pasos sencillos
Nombre del informe: "nombre de tu informe"
vista: Informe
Modo de la Ventana: Dialogo
luego de ello abrirás otra secuencia
mostraras todas las acciones de macros
y buscaras la opción: "RestaurarVentana"
eso es todo amigos, espero les funcione.
Option Compare Database
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 "F_Panel_Principal", windowmode:=acDialog
End Sub
Private Sub Form_Unload(Cancel As Integer)
Dim lngRetCode As Long
lngRetCode = ShowWindow(hWndAccessApp, SW_MAXIMIZED)
End Sub
vas a crear una macro
con los siguientes pasos sencillos
Nombre del informe: "nombre de tu informe"
vista: Informe
Modo de la Ventana: Dialogo
luego de ello abrirás otra secuencia
mostraras todas las acciones de macros
y buscaras la opción: "RestaurarVentana"
eso es todo amigos, espero les funcione.
Valora esta pregunta
0