[Resolvido]Mascara de entrada ativa

Oi, Pessoal

Existe alguma forma de alterar a máscara de entrada de um campo do formulário dependendo do botão que eu clico ou do dado que eu insiro em outro campo?

Obrigado
Yuri

é só você colocar assim no seu botão

Private Sub SeuBotão_Click()
Me.SeuCampo.InputMask = "00/00/0000"
end sub

caso seja para datas.


Private Sub SeuBotão_Click()
Me.SeuCampo.InputMask = "000.000.000-00"
end sub

caso seja CPF.

e assim continuar. espero que ajude.

Coloquei este código em um botão, trocando o nome do campo e do botão, mas não aconteceu nada...não apareceu nenhuma máscara.
O que posso ter feito de errado?
Uso Acess 2010

EDIT: preciso do seguinte: tenho um campo chamado SIM1, que é uma combobox com as cinco operadoras de celular: CLARO, TIM, OI, VIVO, NEXTEL. tenho um outro campo SNUM1 no qual eu preencho o número de identificação do chip, e gostaria que assim que eu escolhesse a operadora, aparecesse a máscara correta no campo:
"00000.00000.00000.00000" (CLARO);
"0000.0000.0000.0000.9999" (TIM);
"000000.0000.0000.00000" (OI);
"00000.00000.00000.00000" (VIVO) e
"000.000.000.000.000" "NEXTEL".

Mais tarde, quando eu dominar este comando, pretendo usar em vários pontos do meu banco.

Boa noite Yuri,

Tenta colocar no evento Ao Receber Foco do teu campo. Pode ser que dê certo.


Nivaldo.

Acho que eu consegui fazer funcionar usando máscaras assim:

"00000.00000.00000.00000;;_"

Vou fazer mais uns testes e retorno
Obrigado pelas dicas

Consegui com o seguinte código, aproveitando o que aprendi com o Nivaldo no outro tópico:

Código:


Option Compare Database
'O campo OP1 é baseado em uma pesquisa na tabela, gravando o número no campo:
'1 - CLARO
'2 - TIM
'3 - OI
'4 - VIVO
'5 - NEXTEL

Private Sub OP1_AfterUpdate()

    Select Case Me.OP1
   
        Case 1
            Me.SNUM1.InputMask = "00000.00000.00000.00000;;_"
        Case 2
            Me.SNUM1.InputMask = "0000.0000.0000.0000.9999;;_"
        Case 3
            Me.SNUM1.InputMask = "000000.0000.0000.00000;;_"
        Case 4
            Me.SNUM1.InputMask = "00000.00000.00000.00000;;_"
        Case 5
            Me.SNUM1.InputMask = "000.000.000.000.000;;_"
           
    End Select
   
End Sub

Aparentemente o problema era a falta da parte final da máscara (que informa o que deve ser gravado no campo?). Só não consegui usar o Select Case para fazer o mesmo com os meus dados originais, cujas operadoras estão gravadas em texto.

Obrigado, abraços.