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]WritePrivateProfileString em Access RunTime

    avatar
    IuriEmanuel
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 69
    Registrado : 23/08/2018

    [Resolvido]WritePrivateProfileString em Access RunTime Empty [Resolvido]WritePrivateProfileString em Access RunTime

    Mensagem  IuriEmanuel em 24/5/2019, 12:29

    Pessoal, estou com um problema ao abrir uma aplicação chamando a seguinte biblioteca em um módulo:

    Código:
    Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nsize As Long, ByVal lpFileName As String) As Long
    Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long

    Preciso de ambas para trabalhar com leitura e escrita de arquivos INI, e roda muito bem no Access instalado no meu PC Windows 10 (Servidor) porem ao tentar executar a aplicação em outro PC Windows 7 com o Access Runtime, diz que o aplicativo deve ser interrompido devido a um erro em tempo de execução.
    caiosouza
    caiosouza
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 410
    Registrado : 05/12/2016

    [Resolvido]WritePrivateProfileString em Access RunTime Empty Re: [Resolvido]WritePrivateProfileString em Access RunTime

    Mensagem  caiosouza em 24/5/2019, 13:58

    Bom dia!

    1 - O Access runtime não faz especificação de erro, por tanto vc deve colocar um tratamento de erro e mostrar esses erros via Msgbox, algo do tipo:

    Código:
    On Error Go To TrataErro
          'Seu procedimento....
    TrataErro:
    If Err.Number > 0 Then Msgbox Err.Number & " - " & Err.Description

    2 - Como sabe que o erro pode ser nessa linha?
    Normalmente o erro que pode acontecer em declarações é quando tenta rodar uma declaração em SO de 64bits sem o uso do PtrSafe.

    Altere o início das declarações para:
    Código:

    Declare PtrSafe Function


    .................................................................................
    A persistência leva ao sucesso!
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6308
    Registrado : 15/03/2013

    [Resolvido]WritePrivateProfileString em Access RunTime Empty Re: [Resolvido]WritePrivateProfileString em Access RunTime

    Mensagem  ahteixeira em 24/5/2019, 14:11

    Olá a todos,

    Luri, verifique se as definições de segurança se não estão a bloquear o código:
    http://www.maximoaccess.com/t18110-resolvidodesativar-aviso-de-seguranca-do-runtime

    Abraço a todos
    avatar
    IuriEmanuel
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 69
    Registrado : 23/08/2018

    [Resolvido]WritePrivateProfileString em Access RunTime Empty Re: [Resolvido]WritePrivateProfileString em Access RunTime

    Mensagem  IuriEmanuel em 24/5/2019, 23:20

    Muito obrigado a todos!

    Ahteixeira, Verifiquei a sua recomendação as configurações já estão como informadas, obrigado!
    Realmente, caiosouza só funcionou depois do PtrSafe, engraçado uma palavra muda tudo rs

    Obrigado novamente pessoal, consegui dar procedimento ao meu projeto! Deus os abençoe!
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6308
    Registrado : 15/03/2013

    [Resolvido]WritePrivateProfileString em Access RunTime Empty Re: [Resolvido]WritePrivateProfileString em Access RunTime

    Mensagem  ahteixeira em 25/5/2019, 10:55

    Olá a todos,

    Luis Emanuel, que bom que resolveu.
    Se quiser ter o código a rodar em 32 Bits e 64 Bits, veja tópicos abaixo:
    http://www.maximoaccess.com/t23916-resolvidocodigo-para-office-2007-32-bits-e-2013-32-e-64-bits
    http://www.maximoaccess.com/t20840-resolvidoalterar-modulo-para-rodar-em-32-e-64-bits

    Abraço a todos


    Conteúdo patrocinado

    [Resolvido]WritePrivateProfileString em Access RunTime Empty Re: [Resolvido]WritePrivateProfileString em Access RunTime

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 21/9/2019, 16:55