[Resolvido]WritePrivateProfileString em Access RunTime

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.

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

Olá a todos,

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

Abraço a todos

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!

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:
https://www.maximoaccess.com/t23916-resolvidocodigo-para-office-2007-32-bits-e-2013-32-e-64-bits
https://www.maximoaccess.com/t20840-resolvidoalterar-modulo-para-rodar-em-32-e-64-bits

Abraço a todos