Tenho um modulo que o vieirasoft contribuiu
Este modulo oculta a janela do access
Mas quando clico em relatorio para ele aparecer na tela, ele nao aparece.
segue o codigo abaixo
Option Compare Database
Option Explicit
Global Const SW_HIDE = 0
Global Const SW_SHOWMINIMIZED = 2
Global Const SW_SHOWMAXIMIZED = 3
Private Declare Function apiShowWindow Lib "user32" _
Alias "ShowWindow" (ByVal hwnd As Long, _
ByVal nCmdShow As Long) As Long
Public Function AUTOEXEWALDO()
DoCmd.OpenForm "MEU FORMULÁRIO de ENTRADA", acNormal
End Function
Function fSetAccessWindow(nCmdShow As Long)
Dim loX As Long
Dim loForm As Form
loX = apiShowWindow(hWndAccessApp, nCmdShow)
End Function
Módulo com o nome "AutoexeWaldito"
Form Load fSetAccessWindow (0)
Alguem pode me ajudar
Este modulo oculta a janela do access
Mas quando clico em relatorio para ele aparecer na tela, ele nao aparece.
segue o codigo abaixo
Option Compare Database
Option Explicit
Global Const SW_HIDE = 0
Global Const SW_SHOWMINIMIZED = 2
Global Const SW_SHOWMAXIMIZED = 3
Private Declare Function apiShowWindow Lib "user32" _
Alias "ShowWindow" (ByVal hwnd As Long, _
ByVal nCmdShow As Long) As Long
Public Function AUTOEXEWALDO()
DoCmd.OpenForm "MEU FORMULÁRIO de ENTRADA", acNormal
End Function
Function fSetAccessWindow(nCmdShow As Long)
Dim loX As Long
Dim loForm As Form
loX = apiShowWindow(hWndAccessApp, nCmdShow)
End Function
Módulo com o nome "AutoexeWaldito"
Form Load fSetAccessWindow (0)
Alguem pode me ajudar