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

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?

Utilize o ptrsafe, veja como:

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

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

...

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?

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..

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?

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

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

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?

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ê.

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

Obrigado.

Valew.

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...

E você leu o topico todo incluindo os links ?

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

  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.

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

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