MaximoAccess

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

Obrigado

Administração do MaximoAccess

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


    [Resolvido]Erro ao abrir Formulário

    avatar
    Ismael Silva
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 411
    Registrado : 11/12/2017

    [Resolvido]Erro ao abrir Formulário Empty [Resolvido]Erro ao abrir Formulário

    Mensagem  Ismael Silva em 15/5/2019, 13:19

    Bom dia,

    Quando abro um form de um exemplo que peguei aqui no Fórum, está dando o erro:

    Private Declare Function SHGetPathFromIDList Lib "shell32.dll" Alias _
    "SHGetPathFromIDListA" (ByVal pidl As Long, _
    ByVal pszPath As String) As Long

    Private Declare Function SHBrowseForFolder Lib "shell32.dll" Alias _
    "SHBrowseForFolderA" (lpBrowseInfo As BROWSEINFO) _
    As Long

    Diz que o código deste projeto deve ser atualizado para uso em sistema de 64 bits.


    Como posso resolver isso?


    Obrigado.
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às Regras 100%

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

    [Resolvido]Erro ao abrir Formulário Empty Re: [Resolvido]Erro ao abrir Formulário

    Mensagem  Alexandre Fim em 15/5/2019, 13:53

    bom dia Ismael,

    Em plataforma 64 bits, é necessário incluir a palavra-chave "PtrSafe" nas declarações.


    Segue:

    Código:


    Private Declare PtrSafe Function SHGetPathFromIDList Lib "shell32.dll" Alias _
    "SHGetPathFromIDListA" (ByVal pidl As Long, _
    ByVal pszPath As String) As Long

    Private Declare PtrSafe Function SHBrowseForFolder Lib "shell32.dll" Alias _
    "SHBrowseForFolderA" (lpBrowseInfo As BROWSEINFO) _
    As LongOption



    Boa sorte

    []'s
    avatar
    Ismael Silva
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 411
    Registrado : 11/12/2017

    [Resolvido]Erro ao abrir Formulário Empty Re: [Resolvido]Erro ao abrir Formulário

    Mensagem  Ismael Silva em 15/5/2019, 14:50

    Obrigado Alexandre.

    Resolvido!
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às Regras 100%

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

    [Resolvido]Erro ao abrir Formulário Empty Re: [Resolvido]Erro ao abrir Formulário

    Mensagem  Alexandre Fim em 15/5/2019, 15:45

    Valeu Ismael cheers
    O fórum agradece.

    Abraços

    Conteúdo patrocinado

    [Resolvido]Erro ao abrir Formulário Empty Re: [Resolvido]Erro ao abrir Formulário

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 26/5/2019, 14:34