Fundo do acess

Amigos boa trade sobre a transparecia da janela do Access eu utilizo esse codigo
Option Compare Database
Option Explicit

Código:


Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _
(ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _
(ByVal hwnd As Long, ByVal nIndex As Long) As Long

Private Declare Function SetLayeredWindowAttributes Lib "user32" _
(ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long

Private Const GWL_EXSTYLE = (-20)
Private Const WS_EX_LAYERED = &H80000
Private Const LWA_ALPHA = &H2

Function Nivel_Transparencia(Escala As Integer)
Dim lngHwnd As Long
If Escala < 0 Or Escala > 250 Then Exit Function
lngHwnd = Application.hWndAccessApp
SetWindowLong lngHwnd, GWL_EXSTYLE, GetWindowLong(lngHwnd, GWL_EXSTYLE) Or WS_EX_LAYERED
SetLayeredWindowAttributes lngHwnd, 0, Escala, LWA_ALPHA
End Function


mas so que o access abre a janela e fecha ou seja , ele mostra que o access primeiro para depois fechar!
O que poderia está impedindo-o?

O usuário do tópico abaixo relata desconforto com o MS Access aparecer primeiro. Veja se o relato e solução dele também te ajuda.
https://www.maximoaccess.com/t5566-splash-screen-incrementada

ja tentei ,mas da no mesmo.  no anexo, se der certo no seu é problema do meu access.

Boa tarde

Também uso. No windows e access 2007 funciona muito bem já no windows 10 tanto com access 2007 quanto com o 2016 aparece a janela primeiro e depois ela fecha ficando o fundo escondido.
Algumas vezes nem fecha o fundo e eu preciso mandar fechar e abrir o aplicativo novamente, aí o aplicativo abre porém sempre o fundo access primeiro, por alguns segundos.

eu estou nas 3 lutas .
meu office é 2007 e 2010 32 bits.
.preciso que ele rode no 64 bits sem sem precisar colocar o PrtSafe em cada function
.fechar a janela do access
. e tenho um condigo aqui que ele cria o icone mas continua com icone do access na barra de tarefa