[Resolvido]Formatação de campo em SubFormulário

Bom dia pessoal, já de antemão agradeço pelo auxílios dados neste fórum, pois como estou iniciando em Access este trabalho de vocês é fantástico.

Estou necessitando de uma nova ajuda para poder formatar a máscara de um campo de um sub formulário de acordo com o valor de outro campo deste sub formulário.

Tenho um campo que diz se o pagamento será em Cheque ou Deposito, e se este campo for selecionado que o pagamento será em cheque, o campo de pagamento quero formatar "9999 - 99/99/99", que será informado o numero do cheque e a data do pagamento.

Já tentei colocar em evento porem ele formata todos os registros independente se for pagamento em cheque ou deposito, e na formatação condicional não consegui fazer se é que da para fazer por lá.

Alguém teria alguma dica para me passar para eu formatar o campo de acordo com a explicação acima.

Agradeço desde já.

No evento ao pintar do detalhe do seu subformulario;

Código:

Private Sub Detail_Paint()
    If Me.SeuCampo = "Cheque" Then
        Me![SeuCampoPagamento].InputMask = "0000 - 00-00-00;;_"
        Else
        Me![SeuCampoPagamento].InputMask = "000\.000-00"
    End If
End Sub

Obrigado pela dica JPaulo, porem não estou achando este Evento no meu SubFormuário.
Utilizo o Access 2007.

Opa Achei a opção porem não ocorre nada...

O que quero é que ao preencher o campo pagamento com Cheque este novo campo fique formada da forma que coloquei acima.
E da forma que você colocou não ocorre nada, nem neste evento o programa entra.

Consegui fazer pelo Evento ao receber o foco dai formatei deu certinho, porem ao fechar o formulario e abri-lo os dados deste campo não estão formatados pois foram gravados sem a máscara.
Teria que ver se existe um evento para fazer esta formatação no campo para os registros no momento em que se abre o formulário, ou então somente para este campo eu gravar os dados já com a máscara.

Você saberia se tem esta possibilidade de gravar o campo com a máscara?

O campo na tabela tem de estar em texto;

Código:

Private Sub SeuCampoPagamento_AfterUpdate()
If Me.SeuCampoEscolhe = "Cheque" Then
        Me![SeuCampoPagamento].Value = Format(Me![SeuCampoPagamento], "0000 - 00-00-00;;_")
        Else
        Me![SeuCampoPagamento].Value = Format(Me![SeuCampoPagamento], "000\.000-00")
    End If
End Sub

Muito obrigado JPaulo, deu certo agora.

Obrigado pelo retorno o fórum agradece.