не могу разобраться с ошибкой "Индекс или ключ не может содержать пустое значение (NULL), когда хочу новую запись в бд добавить

[mimino46]

возникает ошибка "Индекс или ключ не может содержать пустое значение (NULL), когда хочу новую запись в бд добавить и сохранить. сначала все норм было, а потом вот эта ошибка

вот код кнопки:

procedure TForm6.SaveClick(Sender: TObject);
var new,flag: boolean;
var i:integer;
str: string;
begin
flag:=false;
if Edit1.Text='' then
begin
flag:=true;
ShowMessage('Введите код преподавателя');
Edit1.SetFocus;
Exit;
end;
str:=Edit1.Text;
for i:=1 to length(str) do
 if not (str[i] in ['0'..'9']) then
 begin
   ShowMessage('Код преподавателя должен быть числом');
   Break;
 end;

if not flag then with ADOTable1 do
 begin
 ADOTable1.Append;
 if new then
 FieldByName('Kod_prep').AsInteger:=strtoint(Edit1.Text);
 FieldByName('FOI').AsString:=Edit2.Text;
 ADOTable1.Post;
 new:=false;
 end;
end;

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(это кнопочка на панели форматирования с решёточкой #)
Выделите текст программы и потом нажмите на кнопку на панели.

Модератор.

[Аватар]

А если not new Append все равно?

[mimino46]

Сообщение от Аватар

А если not new Append все равно?

помогло, спасибо огромное!)