[Resolvido]versão 32 para 64 bits

Galera,
peguei uma função na internet para escrever numeros por extenso. em casa funcionou bem mas no escritório da uma mensagem de erro sobre a versão do windows de 32 para 64 bits e para nesta parte da função.

Private Declare Function GetLocaleInfo& _
Lib "kernel32" Alias "GetLocaleInfoA" ( _
ByVal Locale As Long, _
ByVal LCType As Long, _
ByVal lpLCData As String, _
ByVal cchData As Long)

como eu resolvo este problema ?

Obrigado.

Olá! Faça uma pesquisa no fórum. Há alguns tópicos sobre o assunto.

Valeu Criquio,

Mas eu ja procurei e não consegui encontrar algo que resolva o problema.

Obrigado.

Resolvido.
Pessoal, buscando na internet eu consegui resolver o problema, basta acrescentar a PtrSafe Declare e Function.
Fica conforme abaixo.

Private Declare PtrSafe Function GetLocaleInfo& _
Lib "kernel32" Alias "GetLocaleInfoA" ( _
ByVal Locale As Long, _
ByVal LCType As Long, _
ByVal lpLCData As String, _
ByVal cchData As Long)

Obrigado mais uma vez !!!

Você procurou por "64 bits"? Usando as dicas de pesquisa do vídeo cujo link está na minha ↓assinatura↓ aparecem tópicos que tem essa dica. Inclusive informando para utilizar as duas formas, pois, se você deixar preparado apenas para 64 bits, o sistema dará erro quando executado em 32 bits. Como a versão do VBA no 64 bits é a 7, você pode incluir isso em uma condição If para quando for VBA7 executar com ptrSafe e caso contrário executar na forma normal:

Código:

#If VBA7 Then
    Linhas com ptrSafe
#Else
    Linhas normais
#End If

Criquio, beleza?

Onde eu ponho essa condição IF?

Tenho o mesmo problema de versão 32 ou 64bits

Obrigado

Rsolvido,

Fiz assim:

Option Compare Database

#If VBA7 Then
'Linhas com ptrSafe
Public Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

#Else
'Linhas normais
Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

#End If

Em tempo,

Obrigado. Não vou mais precisar excluir os módulos para trabalhar em casa.
Valeu mesmo