MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Estou com problemas em compatibilidade na tela inicial do meu aplicativo

    mfmaiafilho
    mfmaiafilho
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 384
    Registrado : 02/08/2018

    [Resolvido]Estou com problemas em compatibilidade na tela inicial do meu aplicativo Empty [Resolvido]Estou com problemas em compatibilidade na tela inicial do meu aplicativo

    Mensagem  mfmaiafilho 10/4/2021, 00:25

    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


    como faço pra corrigir isso? já coloquei as bibliotecas de referencias porem não resolve...

    [Resolvido]Estou com problemas em compatibilidade na tela inicial do meu aplicativo Erro10
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1716
    Registrado : 23/01/2018

    [Resolvido]Estou com problemas em compatibilidade na tela inicial do meu aplicativo Empty Re: [Resolvido]Estou com problemas em compatibilidade na tela inicial do meu aplicativo

    Mensagem  crysostomo 10/4/2021, 01:40

    Antes do Function coloque ptrsafe


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2832
    Registrado : 22/11/2016

    [Resolvido]Estou com problemas em compatibilidade na tela inicial do meu aplicativo Empty Re: [Resolvido]Estou com problemas em compatibilidade na tela inicial do meu aplicativo

    Mensagem  DamascenoJr. 11/4/2021, 01:14

    Tópico movido da sala de Formulários para a sala de Módulos e VBA. Atentar-se a descrição de cada sala ao abrir tópicos.


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    mfmaiafilho
    mfmaiafilho
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 384
    Registrado : 02/08/2018

    [Resolvido]Estou com problemas em compatibilidade na tela inicial do meu aplicativo Empty Re: [Resolvido]Estou com problemas em compatibilidade na tela inicial do meu aplicativo

    Mensagem  mfmaiafilho 12/4/2021, 16:58

    perdão mestre não me atentei a classificação do topico,

    rodou normal colocando PtrSafe na frente da function,

    agora uma dúvida, eu to testando em outros offices, outras máquinas pra validar se realmente vai ficar bom e se vai rodar em todas as máquinas entende?

    existe algo pra impedir isso de acontecer ?

    se eu usar muitas bibliotecas de referencias algo do tipo?
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1476
    Registrado : 13/12/2016

    [Resolvido]Estou com problemas em compatibilidade na tela inicial do meu aplicativo Empty Re: [Resolvido]Estou com problemas em compatibilidade na tela inicial do meu aplicativo

    Mensagem  Alexandre Fim 12/4/2021, 17:15

    Olá Mizael,

    Apenas complementando o post do @crysostomo, é necessário aplicar as validações de API's tanto para 32 quanto para 64 bits.
    Desta forma, teu sistema pode rodar em qualquer arquitetura do Office. Sege exemplo:

    Código:


    #if Win64 then
      Declare PtrSafe Function MyMathFunc Lib "User32" (ByVal N As LongLong) As LongLong
    #else
      Declare Function MyMathFunc Lib "User32" (ByVal N As Long) As Long
    #end if
    #if VBA7 then
      Declare PtrSafe Sub MessageBeep Lib "User32" (ByVal N AS Long)
    #else
      Declare Sub MessageBeep Lib "User32" (ByVal N AS Long)
    #end if


    Espero ter ajudado.

    FIM


    .................................................................................
    - Procure sempre anexar seu projeto para análise do problema/dúvida.
    - Ao copiar/colar um código VBA, procure entender seu funcionamento.
    - Se o problema foi resolvido, não se esqueça de marcar o tópico como RESOLVIDO.

      Data/hora atual: 23/6/2021, 07:33