Problemas numa BD que funcionava no Acess 2013 com utilização no Access 2016

Olá, Pessoal.

Sou novato nestas lides mas estou agora com este problema e preciso do apoio de alguém que me consiga ajudar.

Não estou a conseguir utilizar uma BD com a versão Access 2016 mas que funcionava na perfeição com a versão 2013.

Já ativei macros e active X. E nada! Quando se clica nos botões do menu inicial pura e simplesmente não acontece nada. O único botão que funciona é o de saída (autoexec).

Já vi as library's mas não dá indicação de que se encontrem ausentes. Já pesquisei na net mas não encontro nada que me ajude. Têm alguma dica ou ideia?

Desde já, obrigado pela atenção.

Cumprimentos.

Amigo, vamos as probabilidsdes.... 
Ja verificou se no evento do botao, ao clicar esta marcado Procedimento de Evento?

Verica no codigo desse botao se tem esta linha: On error Resume Next se tiver comente e clique nesse botao, nos informe o erro apresentado.


Se possivel porte o BD para quem tiver Office 2016 possa testar, pois nao possuo aqui.

Caro Fabio Paes,

No botão não tem essa linha: "On error Resume Next".

Em boa verdade o código é até bastante simples e devia estar a funcionar no 2016 tal como funcionava no 2013.

Vou postar o código integral de um daqueles botões que não estão a funcionar:


(Private Sub Rótulo1778_Click()

Dim PassWord As String
   PassWord = InputBoxDK("Introduza a Password")
   If PassWord = "formacao" Then
   ' Open Form
   DoCmd.OpenForm "frmPrincipal-Coordenação"
   Else
   MsgBox ("Password errada")
   End If
     
End Sub)

Trata-se apenas de abrir um formulário a partir de outro solicitando uma password para abrir o seguinte.

Obrigado pela atenção.

Cumps.
Japrama

Amigo, essa InputBoxDK, vc tem alguma Função com esse Nome?

Pois a Mensagem de Entrada se Chama ImputBox

Tirando isso, esta tudo normal e deve funcionar normalmente em versões Office 2013 e 2016...


Experimente rodar somente com ImputBox para ver se Funciona!

Outra coisa a se testar tambem, é tentar rodar em outra maquina com Access 2016... Pode ser problema no Office dessa maquina...

Olá A todos,
Jorge, Bem-Vindo ao fórum.

Não efetuou uma Busca aqui no fórum, veja se não é o mesmo problema
https://www.maximoaccess.com/t28022-resolvido-funcionar-em-32-e-64-bits-addressof-newproc-com-erro

Abraço

Olá, ahteixeira.

Comecei mesmo por aí inicialmente (fazer busca no fórum) mas não cheguei a nenhuma solução.

Obrigado pela dica mas não estou a conseguir resolver o meu problema.

Já copiei o código todo para dentro daquele procedimento e nada funcionou.

Reconheço que o meu domínio do código é ainda incipiente.

Como faço então para que funcione este código na versão 64 bits (pode ser que seja este o problema...):

Private Sub Rótulo1778_Click()
Dim PassWord As String
  PassWord = InputBoxDK("Introduza a Password")
  If PassWord = "formacao" Then
  ' Open Form
  DoCmd.OpenForm "frmPrincipal-Coordenação"
  Else
  MsgBox ("Password errada")
  End If
End Sub

Em relação à função InputBoxDK, estava convencido de que se trata de uma "public function" e já tentei sem o DK mas tb não deu em nada.

Peço aqui ajuda na coisa e tenham alguma paciência com este "rookie" nestas matérias.

Obrigado.
Japrama

Olá, se não estou enganado o seu Access 2016 é 64 bits.
No link que postei na mensagem 12 reencaminha para um exemplo.
Baixe o exemplo e teste em ambas as versões.
Se der erro altere o módulo
https://www.maximoaccess.com/t344-login-com-mascara-de-password-na-inputbox
Assim vai compreender.
Abraço