MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

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

    Compartilhe

    julianovv
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 523
    Registrado : 14/12/2010

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

    Mensagem  julianovv em Qui 27 Mar 2014, 17:21

    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!

     Rolling Eyes 

    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
    Anexos
    Falha de bits Office 2010a.jpg
    Você não tem permissão para fazer download dos arquivos anexados.
    (110 Kb) Baixado 11 vez(es)


    .................................................................................
    Juliano

    Uso o Access 2007 no XP SP3
    Pentil 4 Duo Core 2 - 3.2 ghz  - HD 250 GB ATA II - Placa Asus P5LD2-X - 2 GB de memória DDR2 667 mhz Kingston - GForce GT220 - Monitor 17" LCD 732N Samsung - Impressora Epson T33
    [Você precisa estar registrado e conectado para ver esta imagem.]

    gilmargdos
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1
    Registrado : 27/01/2015

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

    Mensagem  gilmargdos em Ter 27 Jan 2015, 01:16

    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.

    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3348
    Registrado : 04/04/2010

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

    Mensagem  Avelino Sampaio em Ter 27 Jan 2015, 08:19

    Olá, Gilmar!

    Baixe o aplicativo Maestro do meu site, entre no modo estrutura e copie o módulo mod_procurarArquivo.  A vantagem deste código é que não usa API e funciona para as versões de 32 e 64 bits.  Funciona a partir da versão 2007 do Access

    [Você precisa estar registrado e conectado para ver este link.]

    Aguardamos


    .................................................................................
    ============ Quer aprender Access em alta velocidade ? ============

    || [Você precisa estar registrado e conectado para ver esta imagem.] Acesse o site UsandoAccess.com.br e veja um ótimo kit de ensino que tenho para você.

    ===========================================================

    Rene-l1
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 24
    Registrado : 05/10/2015

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

    Mensagem  Rene-l1 em Ter 17 Nov 2015, 16:38

    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
    [Você precisa estar registrado e conectado para ver este link.]

    tauron
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 446
    Registrado : 07/12/2011

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

    Mensagem  tauron em Sab 21 Nov 2015, 00:37

    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

    Rene-l1
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 24
    Registrado : 05/10/2015

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

    Mensagem  Rene-l1 em Seg 23 Nov 2015, 18:43

    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?

    tauron
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 446
    Registrado : 07/12/2011

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

    Mensagem  tauron em Seg 07 Dez 2015, 23:30

    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.

    Rene-l1
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 24
    Registrado : 05/10/2015

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

    Mensagem  Rene-l1 em Ter 08 Dez 2015, 11:08

    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

    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3348
    Registrado : 04/04/2010

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

    Mensagem  Avelino Sampaio em Ter 08 Dez 2015, 20:52

    Este código parece não funcionar no Windows 8 e 10. melhor usar o sugerido neste meu tópico (para versão 2007 em diante)

    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso!


    .................................................................................
    ============ Quer aprender Access em alta velocidade ? ============

    || [Você precisa estar registrado e conectado para ver esta imagem.] Acesse o site UsandoAccess.com.br e veja um ótimo kit de ensino que tenho para você.

    ===========================================================

      Data/hora atual: Dom 04 Dez 2016, 12:10