[Resolvido]Calendário access não exibe a figura data

Boa tarde a todos

No exemplo abaixo a Calendário access não exibe a figura ao lado do campo data. O que faço para retornar?

https://www.dropbox.com/s/7ziywmryvnkhcov/Teste%203.accdb?dl=0

Obrigado

Amigo, se for aquele calendario pequeninininho que fica do lado direito, ele so aparece para campos com formato Data. Dessa forma, va nas propriedades desse campo> formato: coloque DataHora. Escolha o melhor formato pro seu caso....

Meu amigo, vi agora seu aplicativo... O problema e o seguinte: Quando colocamos uma Mascara na Caixa de texto, com formato data, ela deixa de exibir o Calendario.

Para isso temos que fazer umas mudanças... Vamos la:

Primeiro Remova a Mascara do Seu Campo Data;

Depois no Evento Apos atualizar do seu Campo Data coloque:

Código:


Private Sub DataCadastroAdvogado_AfterUpdate()
Me!DataCadastroAdvogado.InputMask = ""
End Sub



Agora no Evento Ao Apertar tecla coloque:

Código:

Private Sub DataCadastroAdvogado_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Or KeyCode = vbKeyTab Then
Exit Sub
ElseIf Me!DataCadastroAdvogado.InputMask = "" Or IsNull(Me!DataCadastroAdvogado.InputMask) = True Then
Me!DataCadastroAdvogado.InputMask = "00/00/0000;0;_"
End If

End Sub


Dessa forma devera funcionar conforma vc pretende ( Exibindo a mascara de data e ainda mostrando calendario do lado direito)

Perfeito.
Muito obrigado Fábio.
Boa semana.
Abs