Access - Como ejecutar el Informe despues de ejecutar el entorno de Access

 
Vista:

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.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Como ejecutar el Informe despues de ejecutar el entorno de Access

Publicado por Anonimo (3316 intervenciones) el 28/02/2024 10:56:22
Para 'visibilizar' los informes cuando se oculta la ventana principal de Access, solo se necesita 'jugar' con su invisibilidad al abrir/cerrar el informe.

Mientras este abierto el informe (ventana principal en modo 'visible') se abren accesos que pueden ser utilizados para romper la seguridad que la invisibilidad mantiene sellados.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar