[Resolvido]Caixa de Combinação que muda a Máscara da Caixa de Texto com Fonte do Controle

Prezados Mestres!
Fiz uma extensa pesquisa mas não consegui resolver a seguinte questão.
Tenho um formulário com um campo para informar PIS, PASEP, NIS ou NIT. Apesar do mesmo número de algarismos, as máscaras são diferentes, Assim, preciso selecionar numa Caixa de Combinação o tipo de documento e esta seleção colocar a máscara no campo especificado. Consegui parte disso conforme abaixo, porém quando seleciono outro registro com outra máscara o Access muda todas as máscaras para a última selecionada.
Mais uma vez agradeço a atenção.

Private Sub CBO_PISPASEP2_AfterUpdate()
If Me.CBO_PISPASEP2 = "PIS" Then
Me.txtPISPASEP.InputMask = "000\.00000\.00\-0"
End If
If Me.CBO_PISPASEP2 = "PASEP" Then
Me.txtPISPASEP.InputMask = "0\.000\.000\.000\-0"
End If
If Me.CBO_PISPASEP2 = "NIT" Then
Me.txtPISPASEP.InputMask = "000\.00000\.00\-0"
End If
If Me.CBO_PISPASEP2 = "NIS" Then
Me.txtPISPASEP.InputMask = ""
End If
End Sub

Amigo, uma solução prática para isso é inserir a Mascara junto com o Campo...

Considerações:
O Campo deve ser do Tipo Texto;
A Caixa de Texto do Formulário não deve ter nenhuma mascara de Entrada.


Feito essas Mudanças, mude o Comando do Evento apos atualizar da CBO_PISPASEP2 para:


Private Sub CBO_PISPASEP2_AfterUpdate()


Select Case Me.CBO_PISPASEP2
    Case "PIS", "NIT" 'Juntei aqui, pois a Mascara de ambos são iguais.
    Me.txtPisPasep.InputMask = "000\.00000\.00\-0;0"
    Case "PASEP"
    Me.txtPisPasep.InputMask = "0\.000\.000\.000\-0;0"
    Case "NIS"
    Me.txtPisPasep.InputMask = ""
End Select

End Sub




Observe que na sua mascara foi adicionado  ;0 no final ("0\.000\.000\.000\-0;0") para guardar também a mascara.

Caro Fábio,

Fiz as alterações que você indicou mas não surtiu efeito, ao alterar um registro ele põe a mesma máscara em todos e após fechar o formulário todos retornam sem máscara.

Posta aqui pra eu verificar... Pq aqui deu certinho...


Obs: Só Funcionará para Novos Registros...

Carlos

Você disse: "ao alterar um registro ele põe a mesma máscara em todos ..."

O formulário é contínuo?

[ ]'s

Boa noite, se me permitem....

Select Case Me.CBO_PISPASEP2
Case "PIS", "NIT" 'Juntei aqui, pois a Mascara de ambos são iguais.
Me.txtPisPasep.InputMask = "@@@.@@@@@\@@-@"
Case "PASEP"
Me.txtPisPasep.InputMask = "@.@@@.@@@.@@@-@"
Case "NIS"
Me.txtPisPasep.InputMask = ""
End Select


colocar essa rotina no evento ao sair do campo.

Em tempo, caso surta efeito, essas mascaras deverão estar nos eventos: ao carregar, ao abrir, no atual do formulário.

Eita....Noobezinho, nem vi a tua resposta.....

Se for formulário continuo....esqueça as mascaras não irão funcionar.

Meus Caros,

Está funcionando para alguns registros, vou estudar no fim de semana e retorno a vocês, não consegui anexar o arquivo, mesmo compactado ficou com um pouco mais de 5 MB.
Obrigado e bom final de semana a todos!

Carlos

Deletei as nossas ultimas mensagens para deixar teu tópico limpo

Então, o que me deixou intrigado é pelo fato do código passado pelo amigo

FabioPaes não ter funcionado.

Atente para as considerações feitas por ele:

O Campo deve ser do Tipo Texto;
A Caixa de Texto do Formulário não deve ter nenhuma mascara de Entrada.

Verifique se não existe nenhum código nas propriedades da caixa de texto txtPISPASEP

que possa estar interferindo na máscara de entrada.

Caso ainda não tenha conseguido, sugiro que separe a tabela/consulta e o formulário com 2 ou 3 registros

e disponibilize para nós poder analisar.

[ ]'s

Caro, Fábio, Nobezinho e Sílvio,

Após efetuar todas as mudanças propostas por vocês e uma compactação reparação do BD, o campos está funcionando como precisava.
Mais uma vez, obrigado a todos.

Grato pelo retorno! Até a Próxima se Deus quiser!