[Resolvido]onde inserir mascaras de entrada personaliza no access 2003

PERGUNTA
ola eu mexo muito com cadastro de clientes e muitos sao cpf e muitos cnpj
tem como eu digitar os numeros e automaticamente ele me fala se e cpf ou cnpj
ex
digito assim cpf:12345678900
ele transforma assim no mesmo campo:123.456.789-00
digito assim cnpj:12345678900900
ele transforma assim no mesmo campo:12.345.678/0009-00
tudo no mesmo tempo

RESPOSTA
Considerando um campo chamado t1Cnpj (altere):
Private Sub Form_Current() Select Case Len(Me.t1Cnpj) Case 14 ' É CNPJ Me.t1Cnpj.InputMask = "00\.000\.000\/0000\-00" Case 11 ' É CPF Me.t1Cnpj.InputMask = "000\.000\.000\-00" Case Else ' Não é CNPJ nem CPF Me.t1Cnpj.InputMask = "" End SelectEnd SubPrivate Sub t1Cnpj_AfterUpdate() Select Case Len(Me.t1Cnpj) Case 14 ' É CNPJ Me.t1Cnpj.InputMask = "00\.000\.000\/0000\-00" Case 11 ' É CPF Me.t1Cnpj.InputMask = "000\.000\.000\-00" Case Else ' Não é CNPJ nem CPF Me.t1Cnpj.InputMask = "" End SelectEnd Sub

PERGUNTA??????
ONDE EU INSIRO ESSE CODIGO??????

OBRIGADO.. RAFAEL

Boas Rafael, evite digitar em Maiúsculas nos post's, na web digitar assim é o mesmo que gritar, agradeceriamos se editasse sua mensagem e corrigisse.

Moderação do Fórum

Ps... Colocou uma pergunta e logo após uma resposta, esta respostas foi conseguida em algum outro post?




O prórpio código da diz tudo, abra o form em modo Design, propriedades, eventos.

No Atual

Private Sub Form_Current()
Select Case Len(Me.t1Cnpj)
Case 14 ' É CNPJ
Me.t1Cnpj.InputMask = "00\.000\.000\/0000\-00"
Case 11 ' É CPF
Me.t1Cnpj.InputMask = "000\.000\.000\-00"
Case Else ' Não é CNPJ nem CPF
Me.t1Cnpj.InputMask = ""
End Select
End Sub

Apos atualizar da caixa texto
Private Sub t1Cnpj_AfterUpdate()
Select Case Len(Me.t1Cnpj)
Case 14 ' É CNPJ
Me.t1Cnpj.InputMask = "00\.000\.000\/0000\-00"
Case 11 ' É CPF
Me.t1Cnpj.InputMask = "000\.000\.000\-00"
Case Else ' Não é CNPJ nem CPF
Me.t1Cnpj.InputMask = ""
End Select
End Sub



Cumprimentos.