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

5 participantes

    [Resolvido]sistema 32 não abre em 64 bits

    adriano_byte
    adriano_byte
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 115
    Registrado : 12/12/2013

    [Resolvido]sistema 32 não abre em 64 bits Empty [Resolvido]sistema 32 não abre em 64 bits

    Mensagem  adriano_byte Qui 29 Maio 2014, 1:20 am

    Como faço para minha aplicação não ter problemas com o tamanho do bit ?

    Devo incluir algum codigo para ser reconhecido tanto para o de 32 quanto o de 64 bits?

    E que codigo é esse?
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10634
    Registrado : 04/11/2009

    [Resolvido]sistema 32 não abre em 64 bits Empty Re: [Resolvido]sistema 32 não abre em 64 bits

    Mensagem  JPaulo Qui 29 Maio 2014, 4:39 pm

    Utilize o ptrsafe, veja como:

    https://www.usandoaccess.com.br/tutoriais/configurar-api-access-de-64-e-32-bits-ptrsafe.asp


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]sistema 32 não abre em 64 bits Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]sistema 32 não abre em 64 bits Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]sistema 32 não abre em 64 bits Folder_announce_new Instruções SQL como utilizar...
    adriano_byte
    adriano_byte
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 115
    Registrado : 12/12/2013

    [Resolvido]sistema 32 não abre em 64 bits Empty ops

    Mensagem  adriano_byte Qui 29 Maio 2014, 10:35 pm

    Muito obrigado pela ajuda meu amigo, estarei dando uma olhada e retornando.

    ...
    adriano_byte
    adriano_byte
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 115
    Registrado : 12/12/2013

    [Resolvido]sistema 32 não abre em 64 bits Empty ops

    Mensagem  adriano_byte Sex 30 Maio 2014, 12:59 am

    Olhei o tutorial mas não sei fazer funcionar.

    Veja o meu procedimento:

    coloquei em um modulo a função dada e depois chamei ela ao carregar o sistema.

    Resultado:

    Dá erro e o access não entendi.


    Eu devo proceder como?
    adriano_byte
    adriano_byte
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 115
    Registrado : 12/12/2013

    [Resolvido]sistema 32 não abre em 64 bits Empty ops

    Mensagem  adriano_byte Sex 30 Maio 2014, 1:09 am

    Melhorando...

    EU peguei esse codigo e coloquei em um modulo:

    Option Compare Database
    Option Explicit

    function converter()
    #If VBA7 Then
    'Área comum do Access 2010 de 32 bits e 64 bits
    Declare ptrsafe Function GetActiveWindow Lib "user32" () As LongPtr
    #if WIN64 then
    'Área exclusiva do Access 2010 de 64 bits
    Declare PtrSafe Function GetTickCount64 Lib "kernel32" () As LongLong
    #else
    'Área exclusiva do Access 2010 de 32 bits
    Declare PtrSafe Function GetTickCount Lib "kernel32" () As Long
    #end if
    #Else
    'Área do Access 2007 e inferiores
    Declare Function GetActiveWindow Lib "user32" () As Long
    Declare Function GetTickCount Lib "kernel32" () As Long
    #End If
    end fuction


    Chamei a função no formulário e deu erro..



    vini.magrin
    vini.magrin
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 83
    Registrado : 16/03/2014

    [Resolvido]sistema 32 não abre em 64 bits Empty Re: [Resolvido]sistema 32 não abre em 64 bits

    Mensagem  vini.magrin Sex 30 Maio 2014, 1:39 am

    tipo, isso agora me deixou com uma duvida...

    aqui na empresa, passei todos os pcs pra windows 7 64 bit e estou usando o a2010 runtime 64.

    em uma maquina, teve que ficar xp por enquanto, por causa de um programinha, que sera eliminado quando o sistema em access que estou fazendo ficar pronto.

    nesse, eu instalei o a2010 runtime de 32 bits e estou abrindo o mesmo arquivo que os outros.

    fucionou!

    tenho que adotar algum procedimento a mais, ou posso usar tranquilo?



    .................................................................................
    Vinicius Magrin
    adriano_byte
    adriano_byte
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 115
    Registrado : 12/12/2013

    [Resolvido]sistema 32 não abre em 64 bits Empty ops

    Mensagem  adriano_byte Qua 04 Jun 2014, 2:30 am

    Pessoal não tem solução pra isso?
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10634
    Registrado : 04/11/2009

    [Resolvido]sistema 32 não abre em 64 bits Empty Re: [Resolvido]sistema 32 não abre em 64 bits

    Mensagem  JPaulo Qua 04 Jun 2014, 4:20 pm

    O problema está numa confusão sua mesmo.

    Você não viu em lado nenhum function converter() para fazer funcionar no 64 bits.

    As declarações com o PrtSafe apenas são nas API`s nos modulos.

    Dependendo das API`s que você está a usar, é que deve aplicar o PrtSafe.

    Exemplo, se você usar a API GetActiveWindow é que deve aplicar o PrtSafe como abaixo;


    http://www.ambienteoffice.com.br/officevba/compatibilidade_de_chamadas_api_no_vba/

    #If VBA7 Then
      Declare PtrSafe Function GetActiveWindow Lib "user32" () As LongPtr
    #Else
      Declare Function GetActiveWindow Lib "user32" () As Long
    #End If


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]sistema 32 não abre em 64 bits Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]sistema 32 não abre em 64 bits Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]sistema 32 não abre em 64 bits Folder_announce_new Instruções SQL como utilizar...
    adriano_byte
    adriano_byte
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 115
    Registrado : 12/12/2013

    [Resolvido]sistema 32 não abre em 64 bits Empty ops

    Mensagem  adriano_byte Qui 05 Jun 2014, 1:37 am

    Mas eu não declarei nem uma api para ser usada.

    Acontece que o programas feitos em office 2010 32b não executam em outras máquinas anteriores e nem superiores como as de 64b.

    como faz?

    tem exemplo?
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10634
    Registrado : 04/11/2009

    [Resolvido]sistema 32 não abre em 64 bits Empty Re: [Resolvido]sistema 32 não abre em 64 bits

    Mensagem  JPaulo Qui 05 Jun 2014, 2:08 am

    Então deve ter alguma referencia ausente ou as seguranças de macro habilitadas.

    Se pretender envie o banco para o meu email, que vejo isso para você.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]sistema 32 não abre em 64 bits Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]sistema 32 não abre em 64 bits Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]sistema 32 não abre em 64 bits Folder_announce_new Instruções SQL como utilizar...
    adriano_byte
    adriano_byte
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 115
    Registrado : 12/12/2013

    [Resolvido]sistema 32 não abre em 64 bits Empty ops

    Mensagem  adriano_byte Qui 05 Jun 2014, 2:39 am

    Era realmente uma API que eu havia declarado errado. resolvido.

    Obrigado.
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10634
    Registrado : 04/11/2009

    [Resolvido]sistema 32 não abre em 64 bits Empty Re: [Resolvido]sistema 32 não abre em 64 bits

    Mensagem  JPaulo Qui 05 Jun 2014, 3:21 am

    Valew.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]sistema 32 não abre em 64 bits Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]sistema 32 não abre em 64 bits Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]sistema 32 não abre em 64 bits Folder_announce_new Instruções SQL como utilizar...
    avatar
    jpaulorh
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]sistema 32 não abre em 64 bits Empty 32 bits e 64 bits

    Mensagem  jpaulorh Sab 07 Jun 2014, 2:20 am

    Estou com o mesmo problema... Tenho algumas máquinas de 32 bits e outras de 64 bits, e portanto está dando erros e confesso que aprendi a desenvolver algumas coisas em access com ajuda de todos vocês, porém não tenho conhecimento a nível de resolver esse problema...
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10634
    Registrado : 04/11/2009

    [Resolvido]sistema 32 não abre em 64 bits Empty Re: [Resolvido]sistema 32 não abre em 64 bits

    Mensagem  JPaulo Sab 07 Jun 2014, 2:31 am

    E você leu o topico todo incluindo os links ?


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]sistema 32 não abre em 64 bits Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]sistema 32 não abre em 64 bits Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]sistema 32 não abre em 64 bits Folder_announce_new Instruções SQL como utilizar...
    avatar
    jpaulorh
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]sistema 32 não abre em 64 bits Empty Re: [Resolvido]sistema 32 não abre em 64 bits

    Mensagem  jpaulorh Seg 09 Jun 2014, 6:56 pm

    Fiz da seguinte forma mas não está dando certo.

    Option Compare Database
    Option Explicit
    #If VBA7 Then
      Public Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
       Public Declare PtrSafe Function GetFocus Lib "user32" () As LongPtr
    #Else
       Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
       Public Declare Function GetFocus Lib "user32" () As Long
    #End If


    Usei também esta:

    #If VBA7 Then
      'Área comum do Access 2010 de 32 bits e 64 bits
         Declare ptrsafe Function GetActiveWindow Lib "user32" () As LongPtr 'Declare ptrsafe Function GetActiveWindow Lib "user32" () As LongPtr
      #If Win64 Then
         'Área exclusiva do Access 2010 de 64 bits
         Declare ptrsafe Function GetTickCount64 Lib "kernel32" () As LongLong
      #Else
         'Área exclusiva do Access 2010 de 32 bits
         Declare ptrsafe Function GetTickCount Lib "kernel32" () As Long
      #End If
    #Else
      'Área do Access 2007 e inferiores
      Declare Function GetActiveWindow Lib "user32" () As Long
      Declare Function GetTickCount Lib "kernel32" () As Long
    #End If

    Em todas as situações dá um erro de compilação apontando no ptrsafe dizendo o seguinte: Era esperado: Sub ou Function
    avatar
    jpaulorh
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]sistema 32 não abre em 64 bits Empty Re: [Resolvido]sistema 32 não abre em 64 bits

    Mensagem  jpaulorh Qua 11 Jun 2014, 12:24 am

    Embarassed  Alguém pode me ajudar? Preciso resolver essa situação porque trabalho numa empresa de 15 filiais e possui muitas máquinas algumas com office de 32 bits e outras de 64 bits.
    Normalmente as máquinas que possui o win de 64 tem também o office de 64...

    Li os tópicos indicados pelo J Paulo e tentei resolver da forma acima, mas não consegui e não sei em que estou errando...

    Será que estou fazendo corretamente. Confesso que não tenho muito conhecimento nesse ponto.
    vini.magrin
    vini.magrin
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 83
    Registrado : 16/03/2014

    [Resolvido]sistema 32 não abre em 64 bits Empty Re: [Resolvido]sistema 32 não abre em 64 bits

    Mensagem  vini.magrin Sex 18 Jul 2014, 11:59 pm

    eu estou desenvolvendo no 64 e depois ao disponibilizar pros de 32, esta funcionando normal.

    já o contrario (principalmente quando peguei exemplos daqui em mdb 32 bits) deu erro.

    Recomendo você tentar fazer o mesmo teste que eu fiz, sem declarar nada.

    cria o arquivo num pc 64 mesmo e depois tenta rodar no 32.


    acho que e bom você usar a mesma versão pra abrir. Se for usar runtime, usar mesma versão.


    Isso e o que venho fazendo, sem problemas.

    att


    .................................................................................
    Vinicius Magrin
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1833
    Registrado : 23/01/2018

    [Resolvido]sistema 32 não abre em 64 bits Empty Re: [Resolvido]sistema 32 não abre em 64 bits

    Mensagem  crysostomo Ter 28 Set 2021, 6:23 am

    JP boa noite poderia abrir o link para baixar para ver como funciona ?


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.

      Data/hora atual: Dom 17 Out 2021, 3:45 am