Ayuda en el evento OnPostError de un ADOTable

[n03l]

hola tengo el siguiente problema en el evento OnPostError de un ADOTable

Código Delphi [-]
if (E is  EDatabaseError) then
begin
Action := daAbort;
Showmessage('Codigo Repetido'); //Aqui funciona todo bien
end else
begin
Showmessage('Codigo Cambiado con exito'); 
end

Cuando el codigo no esta repetido deberia salir Showmessage('Codigo Cambiado con exito'); pero no sale?, claro aqui yo quiero poner otras instrucciones pero para no complicar la explicacion pongo un mensaje

alguien tiene alguna idea que estoy haciendo mal?

salu2

[[egostar]]

Pues creo que en ese evento siempre te dará el mensaje de error, su nombre lo dice no crees?

.....ON POST ERROR.....

Porque no usas mejor un Try...except.

Salud OS.

[n03l]

okey gracias por responder, boy a probar a ver q tal me va...
salu2.

[[egostar]]

Empezado por n03l

okey gracias por responder, boy a probar a ver q tal me va...
salu2.

Solo para aclarar algo, no uses el try...except en el evento OnPostError, usalo donde estas realizando el post.

Algo asi:

Código Delphi [-]
 
Try
   Post;
   Showmessage('Codigo Cambiado con exito');
except
   Showmessage('Codigo Repetido');
end;

Salud OS.

[[Caral]]

Hola
Que puedo decir, eres grande maestro.
Saludos

[roman]

Yo, de hecho, usaría el evento AfterPost para el código que sigue a un post exitoso y OnPostError para los errores. De esta manera controlamos todo independientemente de cómo se hace el post, porque no siempre es explícito, puede hacerse desde un dbgrid, por ejemplo.

// Saludos

[[Caral]]

Hola
Y yo pregunto, para que?
No se para que tanto esfuerzo, amerita?
No os parece hacer el post y ya, se necesita saber si se hizo o no?
Que yo sepa si no se efectua el post correctamente de echo no sale un mensaje de error?
Saludos