[RESOLVIDO] Erro ao abrir Access 2003 em Win 7 64 bits

Boa tarde,

Tenho um pequeno sistema desenvolvido em access 2003. Troquei de PC e hoje uso Windows 7 64 bits. Agora não consigo abrir o sistema, pois dá erro no editor VBA.

A mensagem de erro aparece nesta linha:

Declare Function aht_apiGetOpenFileName Lib "comdlg32.dll" _
   Alias "GetOpenFileNameA" (OFN As tagOPENFILENAME) As Boolean

Declare Function aht_apiGetSaveFileName Lib "comdlg32.dll" _
   Alias "GetSaveFileNameA" (OFN As tagOPENFILENAME) As Boolean

Declare Function CommDlgExtendedError Lib "comdlg32.dll" () As Long



A mensagem de erro é essa:

Erro de compilação:

O código desse projeto deve ser atualizado para uso em sistemas de 64 bits. Analise e atualize as instruções Declare e, em seguida, marque-as com o atributo PtrSafe.

Aguardo ajuda de vocês!

Veja se assim resolve:


Declare PtrSafe Function aht_apiGetOpenFileName Lib "comdlg32.dll" _
  Alias "GetOpenFileNameA" (OFN As tagOPENFILENAME) As Boolean

Declare PtrSafe  Function aht_apiGetSaveFileName Lib "comdlg32.dll" _
  Alias "GetSaveFileNameA" (OFN As tagOPENFILENAME) As Boolean

Declare PtrSafe Function CommDlgExtendedError Lib "comdlg32.dll" () As Long


Para se aprofundar mais no Assunto veja:
http://www.usandoaccess.com.br/tutoriais/configurar-api-access-de-64-e-32-bits-ptrsafe.asp?id=1

Deu certo.

Obrigado!