[Resolvido]Erro no módulo api Ventana Transparente em Windows 64 Bits

Olá Pessoal,

Estou precisando de ajuda para converter o módulo abaixo para Windows 64 Bits! Alguém poderia me ajudar? Pois não manjo muito de VBA...

Option Compare Database
Option Explicit

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 AccessTransparente(Nivel As Integer)

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

Ola bem vindo ao forum;

Procure aqui mesmo por PtrSafe.

Muito Obrigado JPaulo!

Sinceramente não consegui achar no fórum pesquisando por PtrSafe, mas valeu a dica porque encontrei um arquivo contendo várias instruções referentes à mudança para 64 bits!
Bem a parte do PtrSafe passou, porém agora está dando um "ERRO DE COMPILAÇÃO" na Function AccessTransparente(Nivel As Integer)...
Anexei uma imagem do módulo para ver se ajuda a entender o ponto exato do erro, já que deixa o título em amarelo e indica o "OR"

Abraços,



Option Compare Database
Option Explicit


Declare PtrSafe Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As LongPtr, ByVal nIndex As Long, ByVal dwNewLong As Long) As LongPtr
Declare PtrSafe Function GetWindow Lib "user32" Alias "GetWindowLonA" (ByVal hwnd As LongPtr, ByVal nIndex As Long) As LongPtr
Declare PtrSafe Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As LongPtr, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As LongPtr


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


Function AccessTransparente(Nivel As Integer)


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

Passe-a para publica e teste;

Public Function AccessTransparente(Nivel As Integer)


Aproveite e veja o artigo do Avelino;

https://www.usandoaccess.com.br/tutoriais/configurar-api-access-de-64-e-32-bits-ptrsafe.asp?id=1#inicio

infelizmente não deu certo....

Não se consegue visualizar em condições a imagem, poste ae um print screen em condições por favor.

Estou enviando o arquivo do Access para facilitar para aqueles que quiserem me dar um help!

Também serve como modelo para:
- menu suspenso para quem está iniciando (assim como eu);
- login e senha através de formulário

Eu criei em casa e funcionou 100% no note 32 Bits, porém na empresa onde pretendo utilizar os computadores são 64 Bits e aí deu esse pau!

Abraços a todos!

Jpaulo, muito obrigado pela ajuda!
Consegui resolver da forma abaixo :

No Módulo:
Option Compare Database
Option Explicit

Global Const SW_HIDE = 0

Declare PtrSafe Function apiShowWindow Lib "user32" Alias "ShowWindow" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long

Public Function FSetAccessWindow(nCmdShow As Long)


Dim loX As Long

Dim loForm As Form

     loX = apiShowWindow(hWndAccessApp, nCmdShow)

End Function


No Formulário Splash:
Private Sub Form_Load()
    Call FSetAccessWindow(0)

End Sub


Para Mostrar Novamente:
Private Sub Form_Load()
    Call FSetAccessWindow(1)

End Sub

resolvido!
Muito obrigado mais uma vez!