[Resolvido]Esconder tela do access 2010

Pessoal,

Como faço para esconder a tela do Access 2010, testei um exemplo aqui do site, mas a aplicação fecha junto com o formulário

Código:

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 "Entrada", acNormal

End Function
Function fSetAccessWindow(nCmdShow As Long)
Dim loX As Long
Dim loForm As Form
loX = apiShowWindow(hWndAccessApp, nCmdShow)
End Function

Feche o Módulo e dê-lhe este nome:(AutoexeWaldito)

No formulário de inicio no evento load digite:

fSetAccessWindow (0)

tem alguma modificação para o Access 2010?

Olá! Dê uma olhada nesse exemplo. Tem um módulo para ocultar a janela principal do Access. Você só precisará dele e, no evento "Ao carregar" do formulário principal, coloque:

Call AccessTransparente(0)

Perfeito, muito obrigado

Grato pelo retorno. O forum agradece.