Access - Formularios e Informes Flotantes Access 2016

   
Vista:

Formularios e Informes Flotantes Access 2016

Publicado por Juan (5 intervenciones) el 29/09/2017 01:31:29
Hola amigos,
Con access 2003 cree una base de datos utilizando el método de acces oculta, solo se trabajaba con formularios y los informes se trabajaban con vista previa. Con esta aplicación nunca se me presentó problemas, actualmente se sigue trabajando en ella pero ahora si viene el problema … la empresa se pasa a access 2016 y la aplicación ya no anda bien.

Migré la base de datos a Access 2016 y ya logro trabajar los formularios sin problema lo único son los informes.

Alguien me puede ayudar con esto trabajamos con sistema operativo de 64 bits

Y lo he intentado de las siguientes formas y describo su correspondiente error arrojado

Método 01
*****************************************************
1
2
3
Private Sub Report_Open(Cancel As Integer)
fSetAccessWindow (3)
End Sub

Error de compilacion:
No se ha definido Sub o Function



Método 02
En descargue
*****************************************************

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
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 Report_Open(Cancel As Integer)
Call ShowWindow(hWndAccessApp, SW_NORMAL)
End Sub
 
Private Sub Report_Unload(Cancel As Integer)
Dim lngRetCode As Long
lngRetCode = ShowWindow(hWndAccessApp, SW_HIDE)
End Sub

Error:
La expresión 'Al abrir' que ha especificado como valor de la propiedad de evento produjo el error los comentarios solamente pueden aparecer después den End Sub, End Function o End Proterty




Método 03
*****************************************************

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

Error:
La expresión 'Al abrir' que ha especificado como valor de la propiedad de evento produjo el error los comentarios solamente pueden aparecer después den End Sub, End Function o End Proterty


Les agradezco, un saludo!
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
Imágen de perfil de Neckkito

Formularios e Informes Flotantes Access 2016

Publicado por Neckkito (1157 intervenciones) el 29/09/2017 14:26:26
http://nksvaccessolutions.com/Foro/viewtopic.php?f=8&t=834&hilit=fsetaccesswindow

Qué curioso (ya qué suerte has tenido) que ese usuario "Otrebo" tuviera exactamente el mismo problema y que diera el asunto por solucionado. Si te sirve, pues, ahí tienes la solución.

Saludos,

Neckkito
Access MVP
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

Formularios e Informes Flotantes Access 2016

Publicado por Juan (5 intervenciones) el 29/09/2017 14:57:11
gracias miro y les cuento
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
Revisar política de publicidad