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]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
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3612
    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.

    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3612
    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: Sex 22 Set 2017, 07:23