Mükerrer Kayıt Uyarısı

[cinarbil]

İyi günler deneme imkanın olmadı ama sorun else den sonra birden çok satır çalışacak ise 
begin end arasına alınmalı

aksi durumda sizin kodda else için sadece SeriNoKayit.SQL.Clear();  çalışır 
altında kalan tüm kodlar her zaman çalışır

3.Kod:
[ars=delphi]procedure TForm9.Button1Click(Sender: TObject);
begin
SeriNoKayit.Close;
SeriNoKayit.Active:=True;
IF SeriNoKayit.Locate('SERI',Edit3.Text,[]) Then
Begin
Application.MessageBox('Farklı Seri Girmelisiniz !!!','Uyarı Mesajı',MB_ICONERROR);
Exit;
End
Else begin // buraya begin eklemeli
//IF NOT SeriNoKayit.Locate('SERI',Edit3.Text,[]) Then 
SeriNoKayit.SQL.Clear();
SeriNoKayit.SQL.Text:='INSERT INTO TBLEFATUNO(SUBE_KODU,SERI,TIP,NUMARA) VALUES (''0'','+#39+''+Edit3.Text+''+#39+',''1'',''000000000000'')';
SeriNoKayit.ExecSQL;
end;// eklenen beginin end  olmalı
End;

[/ars][/ars]