Marco Inicial Access
Publicado por José Maria (139 intervenciones) el 25/03/2016 18:10:37
Buenas,
Llevo meses buscando una mejor solución a la que encontré en su día pero no hay manera.
Mi objetivo es dejar access como una aplicacion de forma que no se vea el marco inicial.
Para conseguí este codigo:
Luego ponia todo en Modal Si y Emergente Si
el problema lo tengo con los informes para los cuales he tenido que hacer algo muy sucio y feo y es que cada vez que lo abre fSetAccessWindow (3) y al cerrarlo fSetAccessWindow (0).
En innumerables ocasiones el programa se queda oculto y sin poder hacer na mas que un shit+suprimir para cerrarlo.
Sabeis de una mejor forma?
Un saludo
Llevo meses buscando una mejor solución a la que encontré en su día pero no hay manera.
Mi objetivo es dejar access como una aplicacion de forma que no se vea el marco inicial.
Para conseguí este codigo:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Option Compare Database
Option Explicit
Global Const SW_HIDE = 0
Global Const SW_SHOWMINIMIZED = 2
Global Const SW_SHOWMAXIMIZED = 3
Private Declare PtrSafe Function apiShowWindow Lib "user32" _
Alias "ShowWindow" (ByVal hwnd As Long, _
ByVal nCmdShow As Long) As Long
Function fSetAccessWindow(nCmdShow As Long)
Dim loX As Long
Dim loForm As Form
loX = apiShowWindow(hWndAccessApp, nCmdShow)
End Function
Luego ponia todo en Modal Si y Emergente Si
el problema lo tengo con los informes para los cuales he tenido que hacer algo muy sucio y feo y es que cada vez que lo abre fSetAccessWindow (3) y al cerrarlo fSetAccessWindow (0).
En innumerables ocasiones el programa se queda oculto y sin poder hacer na mas que un shit+suprimir para cerrarlo.
Sabeis de una mejor forma?
Un saludo
Valora esta pregunta
0