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


3 participantes

    [Resolvido]Help mascara também na tabela

    avatar
    davisinega
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 102
    Registrado : 25/03/2011

    [Resolvido]Help mascara também na tabela Empty [Resolvido]Help mascara também na tabela

    Mensagem  davisinega 23/11/2011, 14:06

    eu estou usando o exemplo abaixo, mais na hora de gravar os dados na tabela a mascara some e aparece sem os pontos e etc. na tabela ja esta com mascara em formato e mascara de entrada, mais mesmo assim os dados que são inseridos no form entra sem mescara na tabela e so aparece a mascara se eu alterar na tabela. Crying or Very sad help



    Private Sub CPF_AfterUpdate()
    If Me.CPF.Value <> fCPF(Me.CPF) Then
    MsgBox "CPF Invalido, introduza novamente...", vbInformation
    Me.Undo
    Cancel = True
    Else
    MsgBox "CPF válido."
    Me.CPF.InputMask = "999\.999\.999\-99;0;_"
    End If
    End Sub


    Última edição por davisinega em 29/11/2011, 13:39, editado 1 vez(es)
    bitabit
    bitabit
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 225
    Registrado : 14/07/2010

    [Resolvido]Help mascara também na tabela Empty Re: [Resolvido]Help mascara também na tabela

    Mensagem  bitabit 23/11/2011, 14:16

    explique melhor.

    O que pretende fazer?
    Está a fazer a mascara através de Inputmask?
    Pretende que na Inputmask apareça o formato da mascara?
    Pretende que o texto recebido da TextBox seja formatado neste formato: "999\.999\.999\-99;0;_" ?


    .................................................................................
    Se vires um homem com fome, não lhe dês um peixe, ensina-o a pescar.
    Provérbio Chinês
    Jungli
    Jungli
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 713
    Registrado : 07/05/2010

    [Resolvido]Help mascara também na tabela Empty Re: [Resolvido]Help mascara também na tabela

    Mensagem  Jungli 23/11/2011, 20:03

    Boa tarde,

    Não testei, mas deve dar certo. Razz

    limpe a mascara da tabela (é melhor deixar o campo como texto)

    Private Sub Form_Load()
    Me.CPF.InputMask = "999,999,999-99;0;#" 'Define a máscara de dados para o campo CPF
    End Sub
    Private Sub CPF_AfterUpdate()
    Dim nCPF As String 'Variável

    If CPF <> fCPF(Me.CPF) Then
    MsgBox "CPF Invalido, introduza novamente...", vbInformation
    Me.CPF.Undo
    Cancel = True
    Else
    MsgBox "CPF válido."
    nCPF = Format(Me.CPF, "000.000.000-00")
    Me.CPF = nCPF
    End If
    End Sub


    .................................................................................
    "Somos o que repetidamente fazemos.
    A excelência, portanto, não é um feito,
    mas um hábito."

    Aristóteles
    avatar
    davisinega
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 102
    Registrado : 25/03/2011

    [Resolvido]Help mascara também na tabela Empty Jungli

    Mensagem  davisinega 24/11/2011, 19:15

    continua a mesma coisa so que o campo do forme apaece a mascara mais da com cpf falso e na tabela continua sem mascara.
    Jungli
    Jungli
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 713
    Registrado : 07/05/2010

    [Resolvido]Help mascara também na tabela Empty Re: [Resolvido]Help mascara também na tabela

    Mensagem  Jungli 25/11/2011, 12:28

    separe a parte referente ao tópico e poste pra gente ver....
    avatar
    davisinega
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 102
    Registrado : 25/03/2011

    [Resolvido]Help mascara também na tabela Empty JUNGLI

    Mensagem  davisinega 25/11/2011, 13:45

    Private Sub CPF_AfterUpdate()
    Dim nCPF As String 'Variável
    If Me.CPF <> fCPF(Me.CPF) Then
    MsgBox "CPF Invalido, introduza novamente...", vbInformation
    Me.Undo
    Cancel = True
    Else
    MsgBox "CPF válido."
    nCPF = Format(Me.CPF, "000.000.000-00")
    Me.CPF = nCPF
    End If
    End Sub
    bitabit
    bitabit
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 225
    Registrado : 14/07/2010

    [Resolvido]Help mascara também na tabela Empty Re: [Resolvido]Help mascara também na tabela

    Mensagem  bitabit 25/11/2011, 23:53

    Talvez fosse melhor postar parte da BD para se ver onde está o erro, até pode estar na tabela e não no codigo.


    .................................................................................
    Se vires um homem com fome, não lhe dês um peixe, ensina-o a pescar.
    Provérbio Chinês

    Conteúdo patrocinado


    [Resolvido]Help mascara também na tabela Empty Re: [Resolvido]Help mascara também na tabela

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 29/3/2024, 08:56