(Resolvido) selecionador de datas e mascara juntos

[Humm]

o access 2007 já vem com um selecionador de datas nativo, que mostra um calendario onde você seleciona a data e ele preenche o campo.

porem, se eu usar mascara de entrada, o selecionador n aparece mais.

alguém sabe como fazer para usar mascara + selecionador?

por exemplo, pra forçar a exibição do selecionador de datas:

DoCmd.RunCommand acCmdShowDatePicker

pra definir a mascada de entrada do campo:

Me.CAMPO.InputMask = "00/00/0000;0;_"

já tentei forçar a exibicao do selecionador no campo com mascara, até aparece, e da pra selecionar.. mas ao selecionar, da erro.

então to pensando num codigo que faça o seguinte..

ao clicar no campo, mostre o selecionadore remova a mascara de entrada.. porem, se você apertar qualquer tecla pra digitar, que entre a mascara e saia o selecionador.. e assim que terminar, suma a mascara..

sumir a mascara, eu coloco no afterupdate

mas pra fazer entrar a mascara ao digitar, n to conseguindo..

Editado Novembro 3, 2010 por Humm

[Humm]

consegui =)

Private Sub DAVE_AfterUpdate()
    Me.DAVE.InputMask = ""
End Sub

Private Sub DAVE_KeyDown(KeyCode As Integer, Shift As Integer)
    If Me.DAVE.InputMask = "" Or IsNull(Me.DAVE.InputMask) Then
        Me.DAVE.InputMask = "00/00/0000;0;_"
    End If
End Sub

[Humm]

tive que incrementar o codigo, pois ao selecionar uma data no calendario, não chega a gerar um update no campo. então ao pressionar ENTER ou TAB, acabava limpando o campo e abrindo a mascara de entrada.

Private Sub DATA_AfterUpdate()
    Me.DATA.InputMask = ""
End Sub

Private Sub DATA_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyReturn Or KeyCode = vbKeyTab Then
        GoTo FIM
    ElseIf Me.DATA.InputMask = "" Or IsNull(Me.DATA.InputMask) Then
        Me.DATA.InputMask = "00/00/0000;0;_"
    End If
FIM:
End Sub

Editado Novembro 3, 2010 por Humm

[MrMALJ]

Fera você tinha a dúvida, resolveu e postou sua correções. obrigado por compartilhar suas soluções no forum.

[Humm]

busco solucoes aqui.. tenho que compartilhar as minhas =)

[Julio Viana]

Valeu amigo ! 

Sua postagem me ajudou muito fiz uma pequena adaptação no seu código para aceitar data formato dd/mm/yy 

 

Private Sub DATA_AfterUpdate()
    Me.DATA.InputMask = ""
End Sub

Private Sub DATA_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyReturn Or KeyCode = vbKeyTab Then
        GoTo FIM
    ElseIf Me.DATA.InputMask = "" Or IsNull(Me.DATA.InputMask) Then
        Me.DATA.InputMask = "99/99/9999;0"
    End If
FIM:
End Sub