MaximoAccess

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

Obrigado

Administração do MaximoAccess

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


    [Resolvido]versão 32 para 64 bits

    rogeriorcds
    rogeriorcds
    Intermediário
    Intermediário

    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 em 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 100%

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

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

    Mensagem  criquio em 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 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 em 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 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 em 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 100%

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

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

    Mensagem  criquio em 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
    Novato
    Novato

    Respeito às Regras 100%

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

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

    Mensagem  Peutrindade em 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
    Novato
    Novato

    Respeito às Regras 100%

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

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

    Mensagem  Peutrindade em 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
    Novato
    Novato

    Respeito às Regras 100%

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

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

    Mensagem  Peutrindade em 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 100%

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

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

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

    Olá!

    Veja mais detalhes neste meu artigo:

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

    Sucesso!

    Conteúdo patrocinado

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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 21/11/2019, 22:43