[Resolvido]Erro em sistema 64 Bits

Em anexo, cópia de um arquivo que utilizo.
Ele funciona normalmente sem erros no Windows 7, porém, ao tentar abri-lo no Windows 8. Uma mensagem diz que não é suportado nesse sistema e que é para convertê-lo para 64 bits. Já tentei de tudo e pesquisei aqui, mas nada até agora.
Por isso, disponibilizo aqui para saber se podem me ajudar.

Olá, não vi o projecto, no entanto para os utilizadores do fórum poderem ajudar será melhor postar mais detalhes da versão do Windows e Access.
Abraço

Veríssimo

Abri sem problemas
Meu sistema
Win 8.1 64 Bits

Office 2007

Esqueci este detalhe; a versão é Office 2010.

No modulo Imagem Altere esta linha

Declare PtrSafe Function apiGetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA" (OPENFILENAME As tagOPENFILENAME) As Long

Sim, é esta linha que aparece com erro.
Substituindo este código irá funcionar em outras versões?

Olá Verissimo, veja este excelente tópico do Mestre Avelino:
http://www.usandoaccess.com.br/tutoriais/configurar-api-access-de-64-e-32-bits-ptrsafe.asp?id=1#inicio
Veja em especial as duas últimas caixas com código de exemplo, se pretende que o seu projecto funcione quer em 32 Bits, quer em 64 bits.
Abraço

Inseri a linha fornecida pelo matutano e funcionou no Windows 7 normalmente.

Vou levá-lo para casa e acessar do Windows 8.1 64 bits com Office 2010 para o teste definitivo.

Enquanto isso, sigo estudando os exemplos do Avelino indicados pelo ahteixeira.

Deixo aqui meus cumprimentos a todos que me ajudaram...sempre.

Conforme disse no post anterior.
Cheguei em casa e testei o bd com a alteração fornecida pelo matutano.
Ele abriu sem apresentar erro, porém, ao clicar no botão para inserir a foto nada acontece, ou seja, não consigo fazer com que a janela para procurar o arquivo de foto seja aberta.
O botão parou de funcionar.

Olá, teste assim:

Código:

#If WIN64 Then
        Declare PtrSafe Function apiGetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA" (OPENFILENAME As tagOPENFILENAME) As LongLong
  #Else
        Declare Function apiGetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA" (OPENFILENAME As tagOPENFILENAME) As Long
#End If

Se funcionar, amanha teste em 64

Abraço

ahteixeira, fiz a alteração e a segunda linha ficou na cor vermelha. Enquanto o botão continua sem funcionar.
O problema agora é com ele que não faz a função que deveria; que é a de inserir uma fotografia.

Bom dia,
Se ficou a segunda linha a vermelho, significa que o office que você estava a usar é 32 bit.
Efectuei um teste e com o W7 a 64 e Office2007 a 32 está a funcionar.
Segue link do meu teste AcervoFotograficoDelegacia_32_64.rar
Abraço

Deve ser, então, a combinação de meu sistema: Windows 8.1 com Office 2010.
A versão do Office é a de 32 Bits.
Em todos os outros PCs que testei, deu certo: Windows XP, Vista, 7, Office 2003, 2007...

Ola , entao no 8.1 continua a não dar?
Verifique se tem o último service pack do office 2010 instalado.
Verifique também as definiçoes densegurança, execuçao de makros e código.
Outra questão windows 8.1 a 32 ou 64.
Se algum colega aqui do forum poder testar nas mesmas versões, agradecemos retorno.
Abraço

Pessoal, só que agora percebi. O Office instalado aqui é o 2013 e não o 2010 como havia dito.
Só não sei qual versão é: 32 ou 64 bits.

Veja como faz para ver aqui: https://support.office.com/en-us/article/What-version-of-Office-am-I-using-932788b8-a3ce-44bf-bb09-e334518b8b19

Não sei se já verificou as definições de segurança.
Caso não consiga, baixe o tuto5.zip, descompacte para a mesma pasta onde tem o seu ficheiro e abra.
De seguida teste o seu projecto.
Recomendo a leitura, mais um excelente artigo do Mestre Avelino
http://www.usandoaccess.com.br/tutoriais/macro-de-seguranca-e-currentproject-istrusted.asp?id=1
Abraço

Opa! Acabei de ver...é Office 2013 64 Bits mesmo.

Olá Eduardo Veríssimo, como vai a situação?
Os utilizadores do fórum agradecem o retorno.

Infelizmente ainda não sanei. Porém, para não ficar com este tópico aberto e como no meu computador pessoal o program funciona normalmente, darei como Resolvido.

Agradeço muito a todos que se dispuseram a ajudar.