Key Violation (Resolvido)

[D31v1d1]

Bom dia!

No meu sistema esta acontecendo o seguinte erro quando vou incluir um cadastro já existente aparece key violation sei que existe um tratamento de erro para isso mais não consegui arrumar pois não acontencia absolutamente nada!

talves eu que coloquei no lugar errado, se poderem postem aqui algum tratamento para isso .

Obrigado

[Guest - Renato -]

Você deve estar tentando gravar um campo repetido para uma chave primária. coloque seu código de tratamento de erro no evento BeforeInsert/BeforeUpdate do DataSet...

[D31v1d1]

vlw vou tentar

[Progr'amador]

Olá,

e se você quizer evitar a mensagem de erro, insira o código abaixo no evendo OnPostError do componente Table ou Query.

Procedure TForm1.Table1PostError(DataSet: TDataSet; E: EDatabaseError;var Action: TDataAction); 
Var 
 ErroMens :String;
begin 
 ErroMens := E.Message; 
 if ErroMens = 'Key violation.' then begin 
    ShowMessage('Chave Primária Inválida !'); 
    action := daAbort; 
 end;
end;

Abs. Progr'amador.

[D31v1d1]

vlw funcionou