Código co máscara

Preciso da vossa ajuda para este código.
Penso que o format não é apropriado para a máscara de introdução.

Private Sub Rubrica_AfterUpdate()
If Rubrica = "02-02-01" or "04-08-02 Then
Format Rubrica = "##\-##\-##\.aa\.aa"
Else
Format Rubrica = "##\-##\-##"
End If

End Sub


Luís Antunes

Luis

Tente isso:

Código:



Private Sub Rubrica_AfterUpdate()
   
    If Rubrica = "02-02-01" Or Rubrica = "04-08-02" Then
        Rubrica.InputMask = "##\##\##\@@\@@"
    Else
        Rubrica.InputMask = "##\##\##"
    End If

End Sub



[]'s

FIM

Boa noite Alexandre

O seu código não resultou.
Mando em anexo uma BD com a dúvida.

Obrigado pela disponibilidade

Luís Antunes

Luis,

O que vc pretende ao usar a máscara no campo?

Em qual situação deve-se mudar a máscara?

Bom dia Alexandre

Quando imprimo o relatório o campo fica com esta forma:

02/01/02.__.__
04/08/02.AO.01

deveria ficar

02/01/02
04/08/02.AO.01

Luís Antunes