[Resolvido]Ajustar código para funcionar em 32 Bits e 64 Bits

Bom dia Amigos

Este BD que partilho, funciona no meu Office 2013 32 Bits

Preciso que algum amigo teste e me diga se funciona no Office 2016 64 Bits, ou outro 64 inferior.

Deve apresentar assim:




Obrigado

Bom dia Assis,



Tema rebatido, veja o que tem que fazer:
https://www.maximoaccess.com/t20840-resolvidoalterar-modulo-para-rodar-em-32-e-64-bits

Nota: Será melhor arranjar uma máquina (pode ser virtual) com o Access a 64Bit para testar.
https://www.maximoaccess.com/t22251-resolvidomigrar-do-2007-para-o-2010

Abraço

Teixeira

Fiz as alterações (acho eu) e continua igual.

PtrSafe ??

Desculpe dá para testar outra vez ?

Olá Assis,

Respondendo à sua pergunta agora não dá erro em 64bits.

Mas vai dar em 32bits, porque não faz isto:


e passa a funcionar em todos os ambientes e não tem mais problemas.

Outra coisa, coloque o endereço https para ir direto.
E também já sabe que tem outra forma mais rápida (msg nr. 16)
https://www.maximoaccess.com/t34895-resolvidodata-da-internet

Abraço

Obrigado Teixeira

É isto para dar o tópico como resolvido ?


Option Compare Database
Function fncOfice32ou64() As Byte
'Álvaro Teixeira (ahteixeira) - 2017
#If VBA7 Then
#If Win64 Then
fncOfice32ou64 = 64
#Else
fncOfice32ou64 = 32
#End If
#Else
fncOfice32ou64 = 32
#End If
End Function

Olá Assis,

Para dar com o tópico resolvido, o código que partilhou pode ser válido.

Se quer compreender, no tópico abaixo tem um exemplo a 32 bits e outro que partilhei que foi implementado para funcionar também a 64 bits, creio que será uma fonte de estudo por comparação
https://www.maximoaccess.com/t344-login-com-mascara-de-password-na-inputbox

Abraço

Obrigado Teixeira

PS - pode ser válido, é da sua autoria.

Olá Assis,

Para estudo este fica mais fácil (tem menos código), será comparar com o exemplo da mensagem nº 1.

Também ajustei o código da função "fncDataHoraNet" para o metodo mais rápido.
Vou ajustar o título do tópico.

Abraço