MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Código para tratar erro de duplicidade

    josé waldick
    josé waldick
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 76
    Registrado : 06/06/2017

    [Resolvido]Código para tratar erro de duplicidade Empty [Resolvido]Código para tratar erro de duplicidade

    Mensagem  josé waldick em 3/5/2020, 16:30

    Boa tarde, pessoas!
    Alguém poderia me dar um suporte porque o erro não foi tratado?
    A sintaxe está correta?
    Código:
     On erro GoTo 3022
      Dim db As DAO.Database
      Dim rs As DAO.Recordset
           
      Set db = CurrentDb()
      Set rs = db.OpenRecordset("tblservicos", dbOpenDynaset)
        rs.AddNew
          rs!id_solicitacao = Me!solicitacao
          rs!id_exame = Me!exame
            rs.Update
            rs.Close
              MsgBox "Cadastro efetivado com sucesso"
              Exit Sub
       
    3022:
      If Err.Number = 3022 Then
      MsgBox "Erro: Exame já cadastrado!"
      End If
     
    End Sub


    .................................................................................
    Deus é bom e fiel!
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7670
    Registrado : 05/11/2009

    [Resolvido]Código para tratar erro de duplicidade Empty Re: [Resolvido]Código para tratar erro de duplicidade

    Mensagem  Alexandre Neves em 3/5/2020, 17:55

    Boa tarde
    Será por ter nomeado a etiqueta por número? Experimente usar começando com letra


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    josé waldick
    josé waldick
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 76
    Registrado : 06/06/2017

    [Resolvido]Código para tratar erro de duplicidade Empty Re: [Resolvido]Código para tratar erro de duplicidade

    Mensagem  josé waldick em 3/5/2020, 18:53

    Olá, Alexandre!
    Conforme você sugeriu fiz a modificação, continua sem fazer o tratamento de erro.
    Código:
    On erro GoTo meuerro
      Dim db As DAO.Database
      Dim rs As DAO.Recordset
           
      Set db = CurrentDb()
      Set rs = db.OpenRecordset("tblservicos", dbOpenDynaset)
        rs.AddNew
          rs!id_solicitacao = Me!solicitacao
          rs!id_exame = Me!exame
            rs.Update
            rs.Close
              MsgBox "Cadastro efetivado com sucesso"
              Exit Sub
       
    meuerro:
      If Err.Number = 3022 Then
      MsgBox "Erro: Exame já cadastrado!"
      End If
     
    End Sub


    .................................................................................
    Deus é bom e fiel!
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7670
    Registrado : 05/11/2009

    [Resolvido]Código para tratar erro de duplicidade Empty Re: [Resolvido]Código para tratar erro de duplicidade

    Mensagem  Alexandre Neves em 3/5/2020, 23:44

    Deve ser aqui o erro
    On error GoTo meuerro


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    josé waldick
    josé waldick
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 76
    Registrado : 06/06/2017

    [Resolvido]Código para tratar erro de duplicidade Empty Re: [Resolvido]Código para tratar erro de duplicidade

    Mensagem  josé waldick em 3/5/2020, 23:59

    Isso mesmo Alexandre, o erro estava na linha:
    Código:
    On Error GoTo meuerro
    Muito obrigado meu amigo!


    .................................................................................
    Deus é bom e fiel!

      Data/hora atual: 10/8/2020, 06:05