[Resolvido]Hora e data na InputBox

Bom dia Amigos,

Por favor, gostaria de ajuda para o seguinte:

tenho um código VBA (abaixo) e gostaria que na frente do titulo da InputBox me mostrasse a data e hora completa, conforme na imagem em anexo.

Private Sub Form_Open(Cancel As Integer)
If InputBox("Para ter acesso a esta pagina, você deverá digitar uma senha fornecida pelo administrador", "Manutenção Aviso - Data / hora completa ") <> Me![Corresenha] Then
MsgBox " Senha incorreta..." & Chr(13) & Chr(13) & "O sistema será fechado." & Chr(13) & Chr(13) & "Entre em contato com o Administrador!!!", A_DELETE_V2, "Aviso de Segurança "
Cancel = True
DoCmd.Quit acSave
End If

End Sub


Certo da boa atenção agradeço.

Att,

If InputBox("Para ter acesso a esta pagina, você deverá digitar uma senha fornecida pelo administrador", "Manutenção Aviso - " & format(Date, "dddd") & " - " & format(Date, "dd") & " de " & format(Date, "mmmm") & " de " & format(Date, "yyyy")) <> Me![Corresenha] Then

Boa tarde JPaulo,

Quase lá, rsrsrs

Gostaria que mostrasse a data e hora completa exemplo: dd-mm-aaaa hh:mm:ss

Att,

As listbox`s têm um comprimento certo, não extensivel;

Só assim;

If InputBox("Para ter acesso a esta pagina, você deverá digitar uma senha fornecida pelo administrador", "Manutenção Aviso - " & format(Date, "dd") & " de " & format(Date, "mmmm") & " de " & format(Date, "yyyy") & " " & format(Now(), "hh:nn:ss")) <> Me![Corresenha] Then

Humm, então tenho que adaptar os dados que quero dentro do tamanho máximo da InputBox , se fez necessário a data e hora pois a senha de abertura do formulário pede somas e subtrações com estes dados. desta forma a senha para abrir sempre será diferente devido a mudar o dia, hora e minuto.

Obrigado!!!

Opte por fazer um formulario identico a uma InputBox e trabalhe nele ao seu gosto.

JPaulo, desculpe a uma falha o segundo da hora fica travado e eu gostaria que fosse tempo real da para arrumar?

Na InputBox, como num formulario ??????

Nunca vi tal coisa, porque o form funciona com o Cronometro e a inputbox não.

Humm, tenho muito a aprender, mais já esta valendo...


Obrigado.