key voliation ve try-except olayı.

[y.kulac]

s.a.
arkadaşlar, tabloya kayıt girerken btn_kaydet in click olayına
şu kodu yazdım.

begin
try
begin
table1.open;
table1.edit;
table1.Post;
end;
except
ShowMessage('Kaydetme hatası... Lütfen bilgilerinizi kontrol ediniz');
end;

sorunum şu; aynı kaydı tekrar girmeye kalkınca yukarıdaki uyarıyı
gösteriyor. "key voliation" uyarısını göstermiyor. zaten göstermesini
istemediğim için try-except bloğunu kullandım. uyarıyı kapattıktan
sonra formdaki hangi butona basarsam basayım bu sefer "key voliation"
uyarısını veriyor. başka bir butona basınca tekrar aynı uyarıyı gösteriyor.
bu böyle sürekli devam ediyor. formu kapatıp tekrar açınca normale dönüyor.
bunu önlemenin bir yolu var mıdır? ben sadece benim istediğim uyarı hatasını
vermesini istiyorum. "key voliation" uyarısını göstermesin ve formu tekrar tekrar
açıp kapatma istemiyorum. neler önerirsiniz.

herkese iyi çalışmalar diler saygılar sunarım.

[husonet]

Except bloğunda Table kapatmayı denedinizmi?


Kolay Gelsin...
İyi Geceler.

[MicroChip]

key voliation hatası key olarak seçilen alana aynı kaydı yapmak istediğinizde verir.
Hüseyin'in de dediği gibi except bloğunda close olayını kullanırsan sorunun çözülür.
zaten kodunda bir hata var open demişsin ama close yok arka arkaya 2 kayıtta tabloyu açarsan sorun çıkar zaten tablo açık.

[gkimirti]

table edit modda kalıyor ,except end arasında table.cancel yapmalısın

[hakkus]

Merhabalar,
Table in onposterror kısmına aşağıdaki kodu yazarsan istediğin olur.

Kod: Tümünü seç

procedure Tdm.Table1PostError(DataSet: TDataSet; E: EDatabaseError;
  var Action: TDataAction);
begin
if (E is EDBEngineError) then
    if (E as EDBEngineError).Errors[0].Errorcode = eKeyViol then
    begin
      MessageDlg('Bu AdayNo Numarası Daha Önce Verilmiş'+#13+#10+
           'Aynı Numara Tekrar Verilemez!!', mtWarning, [mbOK], 0);
      Abort;
     end;
anaFrm.DBEdit1.SetFocus;// key olan alanın dbedit'i
end;

Kolay gelsin

[rsimsek]

Bir kaç öneri ve yorum yapılmışsa da sorudan ve kodlardan tam olarak ne istendiği anlaşılamıyor

Ne yapmak istediğinizi detaylandırırsanız emin olun ki sonuca daha çabuk ulaşırsınız