[Resolvido] Converter módulo 32 bits para 64 bits

Boa tarde. Tenho esse módulo para abrir caixa de diálogo para Inserir arquivo que funciona bem no Access 2003 mas ao usá-lo no 2010 apareceu uma mensagem para converter o código para 64 bits (vide anexo).
Tentei fazer a importação do sistema todo para que o Access 2010 fizesse a conversão mas o mesmo erro apareceu.
Como converto esse código para 64 bits?
Obrigado!

  

Public Type OPENFILENAME
lStructSize As Long
hwndOwner As Long
hInstance As Long
lpstrFilter As String
lpstrCustomFilter As String
nMaxCustomFilter As Long
nFilterIndex As Long
lpstrFile As String
nMaxFile As Long
lpstrFileTitle As String
nMaxFileTitle As Long
lpstrInitialDir As String
lpstrTitle As String
flags As Long
nFileOffset As Integer
nFileExtension As Integer
lpstrDefExt As String
lCustData As Long
lpfnHook As Long
lpTemplateName As String
End Type

Public Const OFN_FILEMUSTEXIST = &H1000
Public Const OFN_HIDEREADONLY = &H4
Public Const OFN_PATHMUSTEXIST = &H800
Const cTAMANHO = 11
Public Declare Function GetOpenFileName Lib "comdlg32.dll" _
   Alias "GetOpenFileNameA" (lpofn As OPENFILENAME) As Long
Public 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
Public 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
Public Declare Function FindWindow Lib "User32" Alias _
   "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As Long) As Long
Public Declare Function SendMessage Lib "User32" Alias _
   "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, _
   ByVal wParam As Long, ByVal lParam As Long) As Long

Public Function Buscar(lngHwnd As Long, strTítulo As String, strPastaInicial As String, strFiltro As String) As String
   
   Dim filebox As OPENFILENAME
   Dim result As Long
   With filebox
       .lStructSize = Len(filebox)
       .hwndOwner = lngHwnd
       .hInstance = 0
       .lpstrFilter = strFiltro & vbNullChar & _
           "Todos os Arquivos (*.*)" & vbNullChar & "*.*" & vbNullChar & vbNullChar
       .nMaxCustomFilter = 0
       .nFilterIndex = 1
       .lpstrFile = Space(256) & vbNullChar
       .nMaxFile = Len(.lpstrFile)
       .lpstrFileTitle = Space(256) & vbNullChar
       .nMaxFileTitle = Len(.lpstrFileTitle)
       .lpstrInitialDir = strPastaInicial & vbNullChar
       .lpstrTitle = strTítulo & vbNullChar
       .flags = OFN_PATHMUSTEXIST Or OFN_FILEMUSTEXIST Or OFN_HIDEREADONLY
       .nFileOffset = 0
       .nFileExtension = 0
       .lCustData = 0
       .lpfnHook = 0
   End With

   result = GetOpenFileName(filebox)
   If result <> 0 Then
       Buscar = Left(filebox.lpstrFile, InStr(filebox.lpstrFile, vbNullChar) - 1)
   Else
       Buscar = ""
   End If

End Function

Olá Juliano, boa noite.

Acabei de ler o seu post, estou com o mesmo problema que a sua base de dados apresentou.

Pode me ajudar a corrigir o erro de código que aparece em minha base de dados?

Fico no aguardo.

Ola Avelino

Eu baixei porem não como usar o codigo

Eu copiei o modulo procuraarquivo para meu BD

Preciso que as janelas e seu componentes sejam redimensionados automaticamente ao mudar a resolução da tela

Segue link do BD
http://ge.tt/64aHCuR2/v/0?c

Siga esses passos

1. abra qualquer modulo
2. Menu Editar
3. Substituir
na janela que se abrir
coloque em localizar = Declare Function
Substituir por = Declare PtrSafe Function

4. Selecione Projeto atual

5 clique em substituir todas

pronto seu aplicativo já esta adaptado para 64 bits

Acho que deu certo

Neste caso não preciso copiar o modulo procura_arquivo do maestro?

basta sustituir qualquer codigo de 32 bits de Declare Function
Declare PtrSafe Function que ele passa a ser 64 bits?

Me desculpe Rene, isso mesmo. Acredito que o modulo do Avelino foi criado para garantir que bd rode em ambas plataformas sem a necessidade de realizar estas alterações manualmente.

OK

Más continuo não entendendo como o modulo procura arquivo funciona do Maestro funciona
Preciso chamar esse modulo pra ele funcionar? Como faço isso e a partir de onde chamo ele? Ele converte o meu codigo de 32 ou 64 para a ideal ou ele apenas ajuda a executar o codigo?

Desde ja agradeço a atenção de vocês