MaximoAccess

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

Obrigado

Administração do MaximoAccess

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]Erro ao abrir Formulário

    avatar
    Ismael Silva
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 615
    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 : 953
    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
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 615
    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 : 953
    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

      Data/hora atual: 12/7/2020, 12:43