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


2 participantes

    [Resolvido]Código para tratar erro de duplicidade

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


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 154
    Registrado : 06/06/2017
    • Mensagem nº1

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

    Mensagem  josé waldick 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


    .................................................................................
    "Tema a Deus e obedeça aos seus mandamentos, porque isso é o essencial para o homem." (Ec 12.13b)
    • Ir para o topo
    Alexandre Neves
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8449
    Registrado : 05/11/2009
    • Mensagem nº2

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

    Mensagem  Alexandre Neves 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
    • Ir para o topo
    josé waldick
    josé waldick
    josé waldick
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 154
    Registrado : 06/06/2017
    • Mensagem nº3

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

    Mensagem  josé waldick 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


    .................................................................................
    "Tema a Deus e obedeça aos seus mandamentos, porque isso é o essencial para o homem." (Ec 12.13b)
    • Ir para o topo
    Alexandre Neves
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8449
    Registrado : 05/11/2009
    • Mensagem nº4

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

    Mensagem  Alexandre Neves 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
    • Ir para o topo
    josé waldick
    josé waldick
    josé waldick
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 154
    Registrado : 06/06/2017
    • Mensagem nº5

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

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

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


    .................................................................................
    "Tema a Deus e obedeça aos seus mandamentos, porque isso é o essencial para o homem." (Ec 12.13b)
    • Ir para o topo
    Conteúdo patrocinado

    Conteúdo patrocinado


    • Mensagem nº6

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

    Mensagem  Conteúdo patrocinado

    • Ir para o topo
      Data/hora atual: 19/4/2024, 17:20