[Resolvido]Erro ao abrir aplicação access no Windows 11

Boa tarde.

Tenho um aplicação access que dentro dela utilizo um código para abrir uma outra aplicação e funcionou muito bem até o Windows 10, com o Windows 11 não funciona mais.

Segue o código:

Módulo:
Option Compare Database

Public Declare Function ShellExecute Lib "Shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Const SW_SHOWNORMAL = 1


Código para executar outro programa Access:
ShellExecute Application.hWndAccessApp, "open", "K:\QA-Lançamento_Quase_Reclamacao\SAP_Documentos\SAP_Organizador.accdb", vbNullString, vbNullString, 1


Mensagem de erro:
Compilar erro em modo oculto: Form_frmAPPS, este erro normalmente ocorre quando o código é incompatível com a versão, plataforma ou arquitetura do aplicativo.

Alguma sugestão de código alternativo que funcione no Windows 11?

Desde já agradeço.

Acabei encontrando uma solução para o problema utilizando no meu módulo o código abaixo levemente editado para a minha aplicação.



#If VBA7 Then 'Declaração de API´s para versões do MS Office 2010+.
   
   #If Win64 Then 'Declaração para as versões 64 bits.
           
       Public Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
       (ByVal hwnd As LongLong, ByVal lpOperation As String, ByVal lpFile As String, ByVal _
       lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As LongLong) As _
       LongLong
           
   #Else 'Declaração para as versões 32 bits.
       
       Public Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
       (ByVal hwnd As LongPtr, ByVal lpOperation As String, ByVal lpFile As String, ByVal _
       lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As LongPtr) As _
       LongPtr
       
   #End If
   
#ElseIf VBA6 Then 'Declaração de API´s para versões do MS Office 2007-.
   
   Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
   (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal _
   lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As _
   Long

#End If

Créditos ao Mikel Silveira Fraga

Olá Luciano Moura,

Apesar de ser membro desde 2020 é a sua primeiro tópico, seja bem vindo ao fórum!
Ficamos felizes por ter resolvido.

Obrigado por partilhar a solução.

Abraço