MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    [Resolvido]validação e novo registro.

    Compartilhe

    fvs2
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12
    Registrado : 24/02/2013

    [Resolvido]validação e novo registro.

    Mensagem  fvs2 em Ter 5 Abr - 0:42

    boa noite galera, estou querendo abrir um form que ele vá pra um novo registro e valide os campos cpfcnpj, mas ele só executa um ou outro. estou utilizando esse código abaixo, se eu colocar primeiro o de novo registro e de validar não funciona e visse versa. estou inserindo esse código no atual, pois em outros ele não funciona.obrigado.

    Private Sub Form_Current()
    If Me.txtPJ.Value = -1 Then
    Me.txtCPF.Visible = False
    Me.txtCNPJ.Visible = True
    Me.txtrazaosocial.Visible = True
    Me.txtnome.Visible = False
    Me![CpfCnpj].InputMask = "00\.000\.000/0000-00"
       Else
       Me.txtCPF.Visible = True
       Me.txtCNPJ.Visible = False
       Me.txtrazaosocial.Visible = False
       Me.txtnome.Visible = True
       Me![CpfCnpj].InputMask = "000\.000\.000\-00"
       
         On Error GoTo TrataErro

       DoCmd.GoToRecord , , acNext
       
    SaiDaSub:
       Exit Sub

    TrataErro:
       If err.Number = 2105 Then
           'Call MsgErro(2105)
          'DoCmd.GoToRecord , , acNewRec

           Exit Sub
       Else
              MsgBox err.Description
       End If
       Resume SaiDaSub
    End If
    End Sub


    Última edição por fvs2 em Ter 5 Abr - 17:00, editado 1 vez(es)

    ahteixeira
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3214
    Registrado : 15/03/2013

    Re: [Resolvido]validação e novo registro.

    Mensagem  ahteixeira em Ter 5 Abr - 7:07

    Olá, veja o End If no fim do código que postou (última linha).

    Não está bem, talvez antes onde está SaiDaSub

    O on error, podia ser logo na segunda linha, após Private...

    Abraço

    fvs2
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12
    Registrado : 24/02/2013

    validação e novo registro.

    Mensagem  fvs2 em Ter 5 Abr - 17:03

    olá ahteixeira, não deu certo, ou ele valida ou vai pra novo registro dependendo da ordem que eu colocar o código.

    FabioPaes
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2317
    Registrado : 14/08/2013

    Re: [Resolvido]validação e novo registro.

    Mensagem  FabioPaes em Ter 5 Abr - 17:48

    Private Sub Form_Current()
    On Error GoTo TrataErro

    If Me.txtPJ.Value = -1 Then
    Me.txtCPF.Visible = False
    Me.txtCNPJ.Visible = True
    Me.txtrazaosocial.Visible = True
    Me.txtnome.Visible = False
    Me![CpfCnpj].InputMask = "00\.000\.000/0000-00"
      Else
      Me.txtCPF.Visible = True
      Me.txtCNPJ.Visible = False
      Me.txtrazaosocial.Visible = False
      Me.txtnome.Visible = True
      Me![CpfCnpj].InputMask = "000\.000\.000\-00"
     
    End If


    TrataErro:
      If err.Number = 2105 Then
          'Call MsgErro(2105)
         
         Exit Sub
      Else
             MsgBox err.Description
      End If

    End Sub

    Agora No evento Apos atualizar do seu campo txtPJ coloque:

    If Me.txtPJ.Value = -1 Then
    Me.txtCPF.Visible = False
    Me.txtCNPJ.Visible = True
    Me.txtrazaosocial.Visible = True
    Me.txtnome.Visible = False
    Me![CpfCnpj].InputMask = "00\.000\.000/0000-00"
      Else
      Me.txtCPF.Visible = True
      Me.txtCNPJ.Visible = False
      Me.txtrazaosocial.Visible = False
      Me.txtnome.Visible = True
      Me![CpfCnpj].InputMask = "000\.000\.000\-00"
     
    End If


    No evento Ao carregar do seu Fromulario coloque:

    DoCmd.GoToRecord , , acNewRec


    O ideal mesmo amigo, e que vc poste seu aplicativo pra testarmos nele..

    ahteixeira
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3214
    Registrado : 15/03/2013

    Re: [Resolvido]validação e novo registro.

    Mensagem  ahteixeira em Ter 5 Abr - 18:24

    Olá a todos,
    Fábio, obrigado pela ajuda.
    Aguardamos retorno do colega.
    Abraço

    fvs2
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12
    Registrado : 24/02/2013

    Re: [Resolvido]validação e novo registro.

    Mensagem  fvs2 em Ter 5 Abr - 22:30

    obrigado a todos, resolvido aqui se quiserem posso postar pra vocês verem.

    ahteixeira
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3214
    Registrado : 15/03/2013

    Re: [Resolvido]validação e novo registro.

    Mensagem  ahteixeira em Qua 6 Abr - 4:36

    Olá Flavio, obrigado pelo retorno.
    Claro que sim, gostamos de saber como ficou, os utilizadores do fórum agradecem.

    Também nao se esqueça de dar o tópico como resolvido, veja como fazer:
    [Você precisa estar registrado e conectado para ver este link.]
    Abraço a todos

      Data/hora atual: Qua 7 Dez - 14:14