MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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

4 participantes

    [Resolvido]versão 32 para 64 bits

    rogeriorcds
    rogeriorcds
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 71
    Registrado : 26/06/2013

    [Resolvido]versão 32 para 64 bits Empty [Resolvido]versão 32 para 64 bits

    Mensagem  rogeriorcds 7/12/2013, 15:35

    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.
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]versão 32 para 64 bits Empty Re: [Resolvido]versão 32 para 64 bits

    Mensagem  criquio 7/12/2013, 15:44

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


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    rogeriorcds
    rogeriorcds
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 71
    Registrado : 26/06/2013

    [Resolvido]versão 32 para 64 bits Empty Re: [Resolvido]versão 32 para 64 bits

    Mensagem  rogeriorcds 7/12/2013, 16:01

    Valeu Criquio,

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

    Obrigado.
    rogeriorcds
    rogeriorcds
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 71
    Registrado : 26/06/2013

    [Resolvido]versão 32 para 64 bits Empty Re: [Resolvido]versão 32 para 64 bits

    Mensagem  rogeriorcds 7/12/2013, 16:16

    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 !!!
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]versão 32 para 64 bits Empty Re: [Resolvido]versão 32 para 64 bits

    Mensagem  criquio 7/12/2013, 16:29

    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


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    avatar
    Peutrindade
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 50
    Registrado : 26/09/2012

    [Resolvido]versão 32 para 64 bits Empty Re: [Resolvido]versão 32 para 64 bits

    Mensagem  Peutrindade 13/2/2014, 14:03

    Criquio, beleza?

    Onde eu ponho essa condição IF?

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

    Obrigado
    avatar
    Peutrindade
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 50
    Registrado : 26/09/2012

    [Resolvido]versão 32 para 64 bits Empty Re: [Resolvido]versão 32 para 64 bits

    Mensagem  Peutrindade 13/2/2014, 14:19

    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


    avatar
    Peutrindade
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 50
    Registrado : 26/09/2012

    [Resolvido]versão 32 para 64 bits Empty Re: [Resolvido]versão 32 para 64 bits

    Mensagem  Peutrindade 13/2/2014, 14:20

    Em tempo,

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


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]versão 32 para 64 bits Empty Re: [Resolvido]versão 32 para 64 bits

    Mensagem  Avelino Sampaio 13/2/2014, 14:24

    Olá!

    Veja mais detalhes neste meu artigo:

    http://www.usandoaccess.com.br/tutoriais/tuto28.asp?id=1#inicio

    Sucesso!


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso irrestrito ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.

      Data/hora atual: 5/12/2022, 17:29