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]Evitar mensagem de erro

    Compartilhe

    Edu.fourreis
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 87
    Registrado : 20/01/2015

    [Resolvido]Evitar mensagem de erro

    Mensagem  Edu.fourreis em Qua 08 Abr 2015, 15:34

    Bom dia

    Possuo um botão que exclui determinados registros de uma tabela.
    Só que quando não existe o registro a ser excluído ele retorna erro
    Como evitar isto ??

    Comando

    If MsgBox("Deseja Excluir as Parcelas Deste Contrato?", 1) <> 1 Then Exit Sub
    CurrentDb.Execute "delete * from TabParcelas where [contratotabparc]=" & Me.CodTabContratos
    Me.FormParcelasContrato.Requery: Me.CodTabContratos.Requery

    Att.
    Eduardo

    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3227
    Registrado : 20/04/2011

    Re: [Resolvido]Evitar mensagem de erro

    Mensagem  Silvio em Qua 08 Abr 2015, 15:40

    Bom dia...

    Algo parecido com isso.....( com aviso )
    1- pode ser assim
    On error goto fim:

    If MsgBox("Deseja Excluir as Parcelas Deste Contrato?", 1) <> 1 Then Exit Sub
    CurrentDb.Execute "delete * from TabParcelas where [contratotabparc]=" & Me.CodTabContratos
    Me.FormParcelasContrato.Requery: Me.CodTabContratos.Requery

    fim:
    if err.number: xxxx then
    msgbox" Registro inexistente", vbinformation, me.caption
    end if



    onde:xxxx é o numero que aparece quando há esse erro.

    2- ou  assim..( sem aviso )

    On error resume next
    If MsgBox("Deseja Excluir as Parcelas Deste Contrato?", 1) <> 1 Then Exit Sub
    CurrentDb.Execute "delete * from TabParcelas where [contratotabparc]=" & Me.CodTabContratos
    Me.FormParcelasContrato.Requery: Me.CodTabContratos.Requery


    Bons estudos.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]

    Edu.fourreis
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 87
    Registrado : 20/01/2015

    Obrigado......

    Mensagem  Edu.fourreis em Qua 08 Abr 2015, 17:34

    Vlws, ficou perfeito.


    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3227
    Registrado : 20/04/2011

    Re: [Resolvido]Evitar mensagem de erro

    Mensagem  Silvio em Qua 08 Abr 2015, 20:33

    O fórum agradece o retorno.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]

      Data/hora atual: Dom 04 Dez 2016, 06:04