[Resolvido]Imputmask para RG e Inscrição Estadual

Boa tarde,

Quero já agradecer a todos pela ajuda e apoio que tem nos prestado. Somos pequeno e estamos apreendendo e com certeza ter o apoio dos companheiros é gratificante.

Encontrei aqui mesmo no Fórum um módulo e imputmask para CNPJ e CPF. Gostaria de saber se alguém tem o módulo para RG e Inscrição Estadual?

Grato pela atenção e apoio...

Abraços,

Jefferson D'Assis

algo parecido com isso no evento após atualizar do campo RG/Inscr. Estadual
aviso: na tabela terá que estar formatado o campo como texto e sem mascaras de entrada.
é só adaptar as tuas necessidades.
bons estudos.

Private Sub RG_AfterUpdate()
' aqui as mascaras para formatar o RG / Insc. Estadual do Cliente
Dim NC
NC = Len(RG)

If NC = 7 Then
Me.RG.Format = "@.@@@.@@@" ' formato o campo com 7 digitos
End If
'
If NC = 8 Then
Me.RG.Format = "@.@@@.@@@-@" 'formato o campo com 8 digitos
End If

If NC = 9 Then
Me.RG.Format = "@@.@@@.@@@-@" 'formato o campo com 9 digitos
End If

If NC = 10 Then
Me.RG.Format = "@@.@@@.@@@-@@" ' formato o campo com 10 digitos

If NC = 12 then ' campo da inscr. estadual do estado de SP
me.rg.format= "@@@.@@@.@@@.@@@"
End If

End Sub

Obrigado pela Dica!!! Me ajudou muito!!!

Bom dia.

Não se esqueça de colocar o tópico como resolvido.

Ok, porém não fui eu quem o criou e não sei se pra essa pessoa resolveu!
Eu agradeci, pois pra mim resolveu!

eita....lamento meu caro....na correria aqui, não me havia apetecido ! Minhas escusas a ti.

Boa noite Silvio,

Desculpa não responder antes...

Deu certo aqui. Desde já agradeço pela sua ajuda. Deus continue te abençoando junto a sua família...


"Se não houvessem problemas para resolver, com certeza não haveriam soluções para os problemas".

tentei colocar mascara no campo indentidade e no primeiro momento funcionou, mas quando fecho o formulario e abro novamente ele entra sem a mascara, teria como manter a mascara quando ele entrar?

E agora fui testar, cliquei no campo para ver se ia atualizar ai não funcionou mais poderia me dizer o que fazer e onde errei?

Muito obrigada

segue o link :

https://www.dropbox.com/s/kjt6yubnms1a42o/RG.mdb?dl=0

Boa noite Senhores(as),

Segue Script para ser usado no form Access para CNPJ e CPF no mesmo Campo...

Foi a forma que encontrei para solucionar o problema. Se servir para vocês por gentileza nos de um retorno... Foi disponibilizado aqui no Fórum pelo amigo Noobezinho... Autoria de JPaulo. Dois grandes feras...

SEGUE:

O Script abaixo tem como Autor:

Copyright © JPaulo MaximoAccess ® 2010

Private Sub Form_Load()
If Me.Status.Value = "FISICO" Then 'Lista de valores na combox com dois valores
Me![SeuCampo_CPF_CNPJ].InputMask = "000.000.000\-00"
Me.lblInforma.Caption = "CPF" 'Rotulo do campo que muda de nome
Else
If Me.Status.Value = "JURIDICO" Then 'Lista de valores na combox com dois valores
Me![SeuCampo_CPF_CNPJ].InputMask = "00\.000\.000\/0000\-00"
Me.lblInforma.Caption = "CNPJ" 'Rotulo do campo que muda de nome
End If
End If
End Sub


Private Sub SuaCombox_AfterUpdate()
If Me.SuaCombox.Value = "FISICO" Then 'Lista de valores na combox com dois valores
Me![SeuCampo_CPF_CNPJ].InputMask = "000.000.000\-00"
Me.lblInforma0.Caption = "CPF" 'Rotulo do campo que muda de nome
Me.Status.Value = Me.SuaCombox.Value
Me.SeuCampo_CPF_CNPJ.SetFocus
Else
If Me.SuaCombox.Value = "JURIDICO" Then 'Lista de valores na combox com dois valores
Me![SeuCampo_CPF_CNPJ].InputMask = "00\.000\.000\/0000\-00"
Me.lblInforma0.Caption = "CNPJ" 'Rotulo do campo que muda de nome
Me.Status.Value = Me.SuaCombox.Value
Me.SeuCampo_CPF_CNPJ.SetFocus
End If
End If
End Sub


Módulo = BasValida

Option Explicit

'******************************************
'Rotinas para cálculo de dígito verificador
'e validação de CNPJ e CPF
'Autor: Luiz Cláudio C. V. Rocha
'******************************************

Public Function fDigCNPJ(cnpj As String) As String
'Calcula os dígitos verificadores do CNPJ
Dim I As Integer
Dim intFator As Integer
Dim intTotal As Integer
Dim intResto

'Verifica se tem 12 ou 14 dígitos
If Not (Len(cnpj) = 12 Or Len(cnpj) = 14) Then
Exit Function
Else
'Verifica se é numérico
If Not IsNumeric(cnpj) Then
Exit Function
Else
'Trunca o CNPJ em 12 caracteres
cnpj = Left$(cnpj, 12)
End If
End If

Inicio:
'Percorre as colunas (de trás para frente),
'multiplicando por seus respectivos fatores
intFator = 2
intTotal = 0
For I = Len(cnpj) To 1 Step -1
If intFator > 9 Then intFator = 2
intTotal = intTotal + ((CInt(Mid(cnpj, I, 1)) * intFator))
intFator = intFator + 1
Next I

'Obtém o resto da divisão por 11
I = intTotal Mod 11
'Subtrai 11 do resto
I = 11 - I
'O dígito verificador é i
If I = 10 Or I = 11 Then I = 0
'Concatena ao CNPJ
cnpj = cnpj & CStr(I)

If Len(cnpj) = 13 Then
'Calcula o segundo dígito
GoTo Inicio
End If

'Retorna os dígitos verificadores
fDigCNPJ = Right$(cnpj, 2)
End Function

Public Function fDigCPF(cpf As String) As String
'Calcula os dígitos verificadores do CPF
Dim I As Integer
Dim intFator As Integer
Dim intTotal As Integer
Dim intResto

'Verifica se tem 9 ou 11 dígitos
If Not (Len(cpf) = 9 Or Len(cpf) = 11) Then
Exit Function
Else
'Verifica se é numérico
If Not IsNumeric(cpf) Then
Exit Function
Else
'Trunca o CPF em 9 caracteres
cpf = Left$(cpf, 9)
End If
End If

Inicio:
'Percorre as colunas (de trás para frente),
'multiplicando por seus respectivos fatores
intFator = 2
intTotal = 0
For I = Len(cpf) To 1 Step -1
intTotal = intTotal + ((CInt(Mid(cpf, I, 1)) * intFator))
intFator = intFator + 1
Next I

'Obtém o resto da divisão por 11
I = intTotal Mod 11
'Subtrai 11 do resto
I = 11 - I
'O dígito verificador é i
If I = 10 Or I = 11 Then I = 0
'Concatena ao CPF
cpf = cpf & CStr(I)

If Len(cpf) = 10 Then
'Calcula o segundo dígito
GoTo Inicio
End If

'Retorna os dígitos verificadores
fDigCPF = Right$(cpf, 2)
End Function

Public Function fCNPJ(cnpj As String) As Boolean
'Verifica se o CNPJ é válido
Dim strChar As String

'Verifica se tem 14 caracteres
If Not Len(cnpj) = 14 Then
fCNPJ = False
Exit Function
End If

'Verifica se o dígito verificador confere
strChar = Mid$(cnpj, 13, 2)
If fDigCNPJ(cnpj) = strChar Then
fCNPJ = True
Else
fCNPJ = False
End If
End Function

Public Function fCPF(cpf As String) As Boolean
'Verifica se o CPF é válido
Dim strChar As String

'Verifica se tem 11 caracteres
If Not Len(cpf) = 11 Then
fCPF = False
Exit Function
End If

'Verifica se o dígito verificador confere
strChar = Mid$(cpf, 10, 2)
If fDigCPF(cpf) = strChar Then
fCPF = True
Else
fCPF = False
End If
End Function

Por favor teria como me ajudar pois tentei colocar mascara no campo indentidade e no primeiro momento funcionou no formulario, mas quando fecho o formulario e abro novamente ele entra sem a mascara, e no campo da tabela rg fica cadastrado sem mascara l, teria como manter a mascara quando ele entrar e manter salvo o valor rg com a máscara salvo na tabela?

E agora fui testar, cliquei no campo para ver se ia atualizar ai não funcionou mais poderia me dizer o que fazer e onde errei?

Por favor teria como me ajudar pois tentei colocar mascara no campo indentidade e no primeiro momento funcionou no formulario, mas quando fecho o formulario e abro novamente ele entra sem a mascara, e no campo da tabela rg fica cadastrado sem mascara l, teria como manter a mascara quando ele entrar e manter salvo o valor rg com a máscara salvo na tabela?

E agora fui testar, cliquei no campo para ver se ia atualizar ai não funcionou mais poderia me dizer o que fazer e onde errei?

Private Sub SuaCaixaDeTexto_AfterUpdate()
Dim NC
NC = Len(SuaCaixaDeTexto)
If NC = 8 Then
Me.SuaCaixaDeTexto.Format = "@.@@@.@@@-@" 'formato o campo com 8 digitos
Else
Me.SuaCaixaDeTexto.Format = "@@.@@@.@@@-@" 'formato o campo 9 digitos
End If
End Sub

Faz assim, para ficar mais simples

Private Sub RG_AfterUpdate()
' aqui as mascaras para formatar o RG / Insc. Estadual do Cliente
Dim NC
NC = Len(RG)

If NC = 7 Then
Me.RG.Format = "@.@@@.@@@" ' formato o campo com 7 digitos
End If
'
If NC = 8 Then
Me.RG.Format = "@.@@@.@@@-@" 'formato o campo com 8 digitos
End If

If NC = 9 Then
Me.RG.Format = "@@.@@@.@@@-@" 'formato o campo com 9 digitos
End If

If NC = 10 Then
Me.RG.Format = "@@.@@@.@@@-@@" ' formato o campo com 10 digitos



End Sub

Private Sub IE_AfterUpdate()
Dim ND
ND = Len(IE)
If ND = 12 then ' campo da inscr. estadual do estado de SP
me.IE.format= "@@@.@@@.@@@.@@@"
End If

coloca o código acima nos seguintes eventos...

Ao abrir, Ao carregar e No atual.

vai ficar parecido com isso, no evento Ao Abrir

Dim NC
NC = Len(RG)
Dim ND
ND = Len(IE)

If NC = 7 Then
Me.RG.Format = "@.@@@.@@@" ' formato o campo com 7 digitos
End If
'
If NC = 8 Then
Me.RG.Format = "@.@@@.@@@-@" 'formato o campo com 8 digitos
End If

If NC = 9 Then
Me.RG.Format = "@@.@@@.@@@-@" 'formato o campo com 9 digitos
End If

If NC = 10 Then
Me.RG.Format = "@@.@@@.@@@-@@" ' formato o campo com 10 digitos

If ND = 12 then ' campo da inscr. estadual do estado de SP
me.IE.format= "@@@.@@@.@@@.@@@"

Por favor teria no formulario colocando no atual e ao carregar no formulário fica com a mascara, só que na tabela campo com o campo rg nao fica cadastrado com máscara. teria como ter um código para a máscara ficar na tabela onde o campo rg esta

Bom dia
Eu fiz as mudanças no formulario colocando no atual e ao carregar no formulário fica com a mascara, só que na tabela  campo com o campo  rg nao fica cadastrado com máscara. teria como ter um código para a máscara ficar também na tabela onde o campo rg esta

Na tabela não tem, pois a muita variação do tamanho do RG.

Obrigado Deus abençoe resolvido

Amém, Shalon !!