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. |