MaximoAccess

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

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 05 Abr 2016, 05: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 05 Abr 2016, 22:00, editado 1 vez(es)
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

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

    Mensagem  ahteixeira em Ter 05 Abr 2016, 12: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 05 Abr 2016, 22:03

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

    Respeito às Regras 100%

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

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

    Mensagem  FabioPaes em Ter 05 Abr 2016, 22: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..
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

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

    Mensagem  ahteixeira em Ter 05 Abr 2016, 23: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 Qua 06 Abr 2016, 03:30

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

    Respeito às Regras 100%

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

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

    Mensagem  ahteixeira em Qua 06 Abr 2016, 09: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: Ter 27 Jun 2017, 11:29