[Resolvido]Evitar mensagem de erro

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

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.

Vlws, ficou perfeito.

O fórum agradece o retorno.