[Resolvido]ACCDB funciona mas ACCDE não

Bom dia pessoal,
Fiz uma BD e olha que estranho: Em accdb funciona o botão e o evento ao clicar para pedir uma senha:

Private Sub BTN_CadastroDocumentos_Click()
If InputBox("Digite a senha", "Senha de acesso") <> "123" Then
MsgBox "Senha incorreta. Tente novamente", vbCritical, "Ops!"
Else
DoCmd.RunMacro "MacroDocs1"
End If
End Sub

Mas depois de salvar como ACCDE o botão não funciona mais.
O que será?

Olá,
Não será nas definições de segurança? (Execução de macros ou Centro de Fidedignidade).
Testei seu exemplo e criei accde e funcionou.

Abraço

ahteixeira,
Não é, pois habilitei as macros na central de segurança.
Mas veja o que fiz:

Private Sub BTN_CadastroDocumentos_Click()
If InputBox("Digite a senha", "Senha de acesso") <> "123" Then
MsgBox "Senha incorreta. Tente novamente", vbCritical, "Ops!"
Else
DoCmd.OpenForm "Formu_Validade_documentos", acNormal, "", "", , acNormal
End If
End Sub

simplesmente não chamando mais a macro, mas agora abrindo o formulario (a macro é que abria o formulario) com DoCmd.OpenForm "Formu_Validade_documentos", acNormal, "", "", , acNormal
Funciona!
Estranho , não é? sabe dizer o que seria?

Ola de novo,

Experimentei apenas o código e funcionava o Imputbox a macro não cheguei a testar porque não disponho da informação.

a) O imputbox funciona no seu exemplo?

Segue o meu exemplo de teste em anexo, pode testar e dar retorno.

Código utlizado

Código:

If InputBox("Digite a senha", "Senha de acesso") <> "123" Then
MsgBox "Senha incorreta. Tente novamente", vbCritical, "Ops!"
Else
DoCmd.OpenForm "Formulário2", acNormal
End If
End Sub

Ahteixeira, esse código funciona, porque não chama a macro.
Avelino, depurei e não ocorreram erros. Esse erro acontece na mesma máquina. Não testei em outras.
Estou usando o access2013.
Bom, como passou a funcionar com o exemplo do ahteixeira, não vou me preocupar mais com isso.
Mas um dia vou fazer outros testes malucos pra ver o que poderia ser. Minha maquina é 64 bits e vou testar em uma 32 bits.

Eu já havia instalado essa atualização antes.
Não era isso.

Olá,

Apesar de já estar dado como fechado, na minha opinião não funcionava em VBA pelo argumento abaixo a negrito:

DoCmd.OpenForm "Formu_Validade_documentos", acNormal, "", "", , acNormal

Devendo ficar:

DoCmd.OpenForm "Formu_Validade_documentos", acNormal, "", "", , acWindowNormal

Abraço a todos   

ahteixeira, não era isso não.
Veja:
O erro era quando : DoCmd.RunMacro "MacroDocs1" (ou seja, não rodava a Macro de dentro do VBA)
Mas com : DoCmd.OpenForm "Formu_Validade_documentos", acNormal, "", "", , acNormal (agora funciona, porque abro o formulario em VBA, e não por meio da Macro dentro do VBA)

O problema é que após transformar em VBA, este não executava o DoCmd.RunMacro "MacroDocs1"
então que eu fiz? transformei o RunMacro em DoCmd.OpenForm "Formu_Validade_documentos", acNormal, "", "", , acNormal

Olá, obrigado pelo retorno

Abraço.

Pessoal boa tarde. Enfrentei o mesmo erro ao criar ACCDE no Access 2013. Fucei um pouco considerando todos os argumentos apresentado aqui na discussão.
O meu problema é que acrescentei novas consultas e formulários ao BD já criando anteriormente, fiz também menus e botões de acesso aos formulários e acho que isso impedia de criar o ACCDE corretamente. O que descobri e realizei: apena fiz a depuração (Depurar: Compilar [BD]) da minha macro autoexec em VB sem alterar nada, a depuração corrigiu o erros das novas consultas e formulários.

Se alguém estiver diante desta muralha, a escada é essa"
Abraços a todos.

Estava com o mesmo problema, resolvi facilmente pela dica do Claudinei. Grato.

Apenas para ajudar futuras consultas, fiz todos os procedimentos citados, mas nada funcionou, quando estava desistindo, mudei o nome do .accde para outro nome totalmente diferente, ae funcionou...