Key Violation - traduzindo

Top  Previous  Next

tente o evento OnPostError da sua Table. Dentro desse evento, escreva:

 

   if copy(E.Message,1,14) = 'Key violation.' then

   begin

      Beep;

      ShowMessage('Chave duplicada...');

      Action := daAbort;

   end;

 

O evento OnPostError é acionado toda vez q houver erro ao "gravar" um

registro. A "variável" E.Message retorna a mensagem q o próprio Delphi

mostraria. O comando "Action := daAbort;" faz com que não apareça a mensagem

"Key violation" do Delphi. Aparecerá, portanto, só a sua mensagem de erro.