Access - Informe no abre al ocultar entorno de Access

   
Vista:

Informe no abre al ocultar entorno de Access

Publicado por Jumo25 (1 intervención) el 01/06/2017 16:54:52
Buenos días, estoy aprendiendo Access, tengo un bd terminada y funcionando todo, pero resulta que quiero implementar un código que oculta el entorno de Access y solo navega con formularios. ( https://www.youtube.com/watch?v=IJztimdZnXg ), Anda todo, menos cuando quiero abrir un informe que está en emergente y modal, supongo que es por qué no está el entorno de Access o bien porque al ocultarlo solo puedo ver 2 pantallas ...
Acá les dejo el código en cuestión :


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
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 "CAMBIAR TEXTO", windowmode:=acDialog
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
Dim lngRetCode As Long
lngRetCode = ShowWindow(hWndAccessApp, SW_MAXIMIZED)
End Sub

¿Hay alguna solución para que me muestre los informes? O puedo utilizar otro código ...
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

Informe no abre al ocultar entorno de Access

Publicado por Cesar (1 intervención) el 19/06/2017 00:23:18
la única solución que he encontrado es la siguiente, en cada reporte copie el código:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
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 Report_Open(Cancel As Integer)
Call ShowWindow(hWndAccessApp, SW_NORMAL) 'usen SW_NORMAL'
DoCmd.OpenForm "Formulario que ustedes han seleccionado", windowmode:=acDialog
End Sub
 
Private Sub Report_Unload(Cancel As Integer)
Dim lngRetCode As Long
lngRetCode = ShowWindow(hWndAccessApp, SW_HIDE) 'usen SW_HIDE'
End Sub

Muestra el informe bien, pero atras se ve el entornode access un poco pequeño y no encuentro la forma de ocultarlo, si maximizo el informe si funciona bien pero la idea es ocultarlo todo.
Lo mismo pasa con los Formularios Divididos, hay que copiar el codigo para que funcione, pero muestra un poco pequeño el Entorno de Access.
Si alguien lo puede probar y solucionar el pequeño detalle que hace falta, seria genial
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

Informe no abre al ocultar entorno de Access

Publicado por Anonimo (684 intervenciones) el 19/06/2017 14:00:17
Si no se puede mostrar Access .... programa en otro entorno, pues una aplicación será buena si esta bien diseñada para la función que se necesita y poco importa si se utilizo Access o cualquiera otro entorno de programación.
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