[Resolvido]validação e novo registro.

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

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

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

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..

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

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

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:
https://www.maximoaccess.com/t860-resolucao-de-topicos
Abraço a todos