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


4 participantes

    [Resolvido]Abrir em 32 bits e 64bits

    tauron
    tauron
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1416
    Registrado : 07/12/2011

    [Resolvido]Abrir em 32 bits e 64bits Empty [Resolvido]Abrir em 32 bits e 64bits

    Mensagem  tauron 21/6/2019, 19:25

    Pessoal, utilizo esse modulo (acho que era de um modelo do Assis), mas ele so roda em 32 bits quando instalo em maquina com 64 é solicitado para marcar com "PtrSafe". Seria possível prepará-lo para rodar independente do sistema? (o modulo tem mais rotinas mas o erra so ocorre nesta parte)

    Código:
    Option Compare Database
    '////////////////////////////////////////////////////////////////////
    'Password masked inputbox
    'Allows you to hide characters entered in a VBA Inputbox.
    '




    'API functions to be used
    Private Declare Function CallNextHookEx _
    Lib "User32" ( _
    ByVal hHook As Long, _
    ByVal ncode As Long, _
    ByVal wParam As Long, _
    lParam As Any) _
    As Long

    Private Declare Function GetModuleHandle _
    Lib "kernel32" _
    Alias "GetModuleHandleA" ( _
    ByVal lpModuleName As String) _
    As Long

    Private Declare Function SetWindowsHookEx _
    Lib "User32" _
    Alias "SetWindowsHookExA" ( _
    ByVal idHook As Long, _
    ByVal lpfn As Long, _
    ByVal hmod As Long, _
    ByVal dwThreadId As Long) _
    As Long

    Private Declare Function UnhookWindowsHookEx _
    Lib "User32" ( _
    ByVal hHook As Long) _
    As Long

    Private Declare Function SendDlgItemMessage _
    Lib "User32" Alias "SendDlgItemMessageA" ( _
    ByVal hDlg As Long, _
    ByVal nIDDlgItem As Long, _
    ByVal wMsg As Long, _
    ByVal wParam As Long, _
    ByVal lParam As Long) _
    As Long

    Private Declare Function GetClassName _
    Lib "User32" _
    Alias "GetClassNameA" ( _
    ByVal hWnd As Long, _
    ByVal lpClassName As String, _
    ByVal nMaxCount As Long) _
    As Long

    Private Declare Function GetCurrentThreadId _
    Lib "kernel32" () _
    As Long
    Anexos
    [Resolvido]Abrir em 32 bits e 64bits AttachmentLista Arquivo.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (25 Kb) Baixado 9 vez(es)
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Abrir em 32 bits e 64bits Empty Re: [Resolvido]Abrir em 32 bits e 64bits

    Mensagem  Alexandre Fim 21/6/2019, 20:58

    Olá Tauron,

    É necessário fazer esta implementação no código, conforme exemplo abaixo:
    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


    Fonte: docs.microsoft.com/pt-br/office/client-developer/shared/compatibility-between-the-32-bit-and-64-bit-versions-of-office

    Boa sorte

    []'s
    tauron
    tauron
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1416
    Registrado : 07/12/2011

    [Resolvido]Abrir em 32 bits e 64bits Empty Re: [Resolvido]Abrir em 32 bits e 64bits

    Mensagem  tauron 21/6/2019, 23:46

    Entao Alexandre eu já havia tentado e não resultou, pode ser que tenha feito algo errado. Veja no arquivo anexo
    Anexos
    [Resolvido]Abrir em 32 bits e 64bits AttachmentLista Arquivo2.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (26 Kb) Baixado 13 vez(es)
    tauron
    tauron
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1416
    Registrado : 07/12/2011

    [Resolvido]Abrir em 32 bits e 64bits Empty Re: [Resolvido]Abrir em 32 bits e 64bits

    Mensagem  tauron 22/6/2019, 00:43

    Alexandre, através do link que disponibilizou, encontrei este codigo que aparentemente deu certo. Irei realizar os teste agora. Abraços e obrigado mais uma vez. Very Happy

    Código:
    #if VBA7 then    ' VBA7
    Declare PtrSafe Function SHBrowseForFolder Lib "shell32.dll" _
      Alias "SHBrowseForFolderA" (lpBrowseInfo As BROWSEINFO) As Long
    Public Type BROWSEINFO
      hOwner As LongPtr
      pidlRoot As Long
      pszDisplayName As String
      lpszTitle As String
      ulFlags As Long
      lpfn As LongPtr
      lParam As LongPtr
      iImage As Long
    End Type
     
    #else    ' Downlevel when using previous version of VBA7
    Declare Function SHBrowseForFolder Lib "shell32.dll" _
      Alias "SHBrowseForFolderA" (lpBrowseInfo As BROWSEINFO) As Long
    Public Type BROWSEINFO
      hOwner As Long
      pidlRoot As Long
      pszDisplayName As String
      lpszTitle As String
      ulFlags As Long
      lpfn As Long
      lParam As Long
      iImage As Long
    End Type
     
    #end if
    Sub TestSHBrowseForFolder ()
        Dim bInfo As BROWSEINFO
        Dim pidList As Long
        bInfo.pidlRoot = 0&
        bInfo.ulFlags = &H1
        pidList = SHBrowseForFolder(bInfo)
    End Sub
    tauron
    tauron
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1416
    Registrado : 07/12/2011

    [Resolvido]Abrir em 32 bits e 64bits Empty Re: [Resolvido]Abrir em 32 bits e 64bits

    Mensagem  tauron 24/6/2019, 19:28

    Entao mestres, após inserir o código postado na mensagem anterior, o sistema funcionou perfeitamente na minha maquina (Win10 - 64Bits, Office 2013 - 64 Bits). Ao testar em uma máquina com win7 - 32 Bits e office 2010 - 32 Bits deu o seguinte erro:

    Erro de Compilação:

    Somente comentários podem aparecer após End Sub, End Function ou End Property
    Anexos
    [Resolvido]Abrir em 32 bits e 64bits AttachmentLista Arquivo Erro.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (27 Kb) Baixado 21 vez(es)
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Abrir em 32 bits e 64bits Empty Re: [Resolvido]Abrir em 32 bits e 64bits

    Mensagem  crysostomo 19/7/2019, 14:32

    Bom dia amigos.
    Não uso o 64 bits ainda , mas fico de carona no tópico , mais a frente vou formatar e deixa tudo novo e passar a usar....


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    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 : 3845
    Registrado : 22/11/2016

    [Resolvido]Abrir em 32 bits e 64bits Empty Re: [Resolvido]Abrir em 32 bits e 64bits

    Mensagem  DamascenoJr. 29/3/2020, 15:43

    Tauron, algum avanço?


    .................................................................................
    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.
    tauron
    tauron
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1416
    Registrado : 07/12/2011

    [Resolvido]Abrir em 32 bits e 64bits Empty Re: [Resolvido]Abrir em 32 bits e 64bits

    Mensagem  tauron 30/3/2020, 20:54

    Embarassed

    Conteúdo patrocinado


    [Resolvido]Abrir em 32 bits e 64bits Empty Re: [Resolvido]Abrir em 32 bits e 64bits

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 8/11/2024, 04:08