MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


5 participantes

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

    avatar
    cjsilva2013
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 259
    Registrado : 26/06/2013

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

    Mensagem  cjsilva2013 30/11/2015, 18:39

    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

    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5080
    Registrado : 20/04/2011

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

    Mensagem  Silvio 30/11/2015, 19:21

    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
    fsouza32
    fsouza32
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 132
    Registrado : 22/01/2013

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

    Mensagem  fsouza32 2/12/2015, 12:16

    Obrigado pela Dica!!! Me ajudou muito!!!
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5080
    Registrado : 20/04/2011

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

    Mensagem  Silvio 2/12/2015, 12:56

    Bom dia.

    Não se esqueça de colocar o tópico como resolvido.
    fsouza32
    fsouza32
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 132
    Registrado : 22/01/2013

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

    Mensagem  fsouza32 2/12/2015, 13:13

    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!
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5080
    Registrado : 20/04/2011

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

    Mensagem  Silvio 2/12/2015, 13:37

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


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 259
    Registrado : 26/06/2013

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

    Mensagem  cjsilva2013 2/12/2015, 21:43

    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".
    avatar
    amandaalves1
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 482
    Registrado : 01/02/2010

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

    Mensagem  amandaalves1 2/12/2015, 23:44

    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
    avatar
    cjsilva2013
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 259
    Registrado : 26/06/2013

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

    Mensagem  cjsilva2013 3/12/2015, 22:37

    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
    avatar
    alex luis
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 13
    Registrado : 15/02/2022

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

    Mensagem  alex luis 12/12/2022, 15:51

    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?
    avatar
    alex luis
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 13
    Registrado : 15/02/2022

    [Resolvido]Imputmask para RG e Inscrição Estadual Empty Erro ao Formatar caixa rg

    Mensagem  alex luis 12/12/2022, 15:54

    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
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5080
    Registrado : 20/04/2011

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

    Mensagem  Silvio 12/12/2022, 16:06

    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= "@@@.@@@.@@@.@@@"


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    avatar
    alex luis
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 13
    Registrado : 15/02/2022

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

    Mensagem  alex luis 14/12/2022, 11:33

    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
    avatar
    alex luis
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 13
    Registrado : 15/02/2022

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

    Mensagem  alex luis 14/12/2022, 11:35

    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
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5080
    Registrado : 20/04/2011

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

    Mensagem  Silvio 14/12/2022, 11:48

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


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."

    alex luis gosta desta mensagem

    avatar
    alex luis
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 13
    Registrado : 15/02/2022

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

    Mensagem  alex luis 14/12/2022, 12:06

    Obrigado Deus abençoe resolvido
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5080
    Registrado : 20/04/2011

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

    Mensagem  Silvio 14/12/2022, 19:19

    Amém, Shalon !!


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."

    alex luis gosta desta mensagem


    Conteúdo patrocinado


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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 25/6/2024, 02:05