Ошибка

[King_Of_Arthur]

подскажите как исправить ошибку

procedure TF_PMR.ToolButton1Click(Sender: TObject);
Var
 pmr:string;
  begin
  Q1.Close;
  Q1.DatabaseName:='ARENA_';
  Q1.SQL.Clear;
  Q1.SQL.Add('Select max(pmr) as pmr from N_PMR');
  Q1.Open;
  pmr:=IntToStr(Q1.fieldbyname('pmr').asInteger+1);
  Q1.Close;
  Q1.DatabaseName:='ARENA_';
  Q1.SQL.Clear;
  Q1.SQL.Add('INSERT INTO N_PMR (pmr,kmr) VALUES ('+pmr+','+VarToStr(DBL_mR.KeyValue)+')'); - тут ошибка
  Q1.ExecSQL;
if M_PMR.Modified then M_PMR.Post; - вот здесь ошибка
if G_PMR.EditorMode then G_PMR.EditorMode:=false;
 M_PMR.Edit;
 M_PMR.Append;
 M_PMR['pmr']:=StrToInt(pmr);
 M_PMR['kmr']:=DBL_mR.KeyValue;
 M_PMR.Post;
end;

[Yurk@]

если

VarToStr(DBL_mR.KeyValue)

вернет пустую строку (null) - выйдет нечто вроде

'... VALUES(1,)';

[King_Of_Arthur]

и получается из за этого ошибка?

[Yurk@]

а чего бы ей не получаться? у тебя идет "запятая" и закрывается скобка ... подоброе ни один компилятор тебе не простит.
выведи

ShowMessage(VarToStr(DBL_mR.KeyValue));

перед запросом и глянь что там у тебя

[King_Of_Arthur]

та же ошибка что и была

[Yurk@]

  Q1.SQL.Add('INSERT INTO N_PMR (pmr,kmr) VALUES ('+pmr+','+VarToStr(DBL_mR.KeyValue)+')'); 
  ShowMessage(Q1.SQL.Text);

что выводит showmessage?

[King_Of_Arthur]

Вот что выходит

это выходит если в LoockupComboBox не чего не выбрано

а мне нужно сделать так что если не выбрано место работы в LoockupComboBox и нажали на кнопку добавить запись должно выйти сообщение 'Укажите место работы' я делаю так

if DBL_mR.KeyValue=Null then ShowMessage('Укажите место работы');

ну и вообщем ошибки выходят если просто нажать на кнопку добавить без выбора места работы

Все я разобралась сама спасибо что потратили свое время))

procedure TF_PMR.ToolButton1Click(Sender: TObject);
Var
 pmr:string;
  begin
if DBL_mR.KeyValue=Null then ShowMessage('Óêàæèòå ìåñòî ðàáîòû')
else
begin
  Q1.Close;
  Q1.DatabaseName:='ARENA_';
  Q1.SQL.Clear;
  Q1.SQL.Add('Select max(pmr) as pmr from N_PMR');
  Q1.Open;
  pmr:=IntToStr(Q1.fieldbyname('pmr').asInteger+1);
  Q1.Close;
  Q1.DatabaseName:='ARENA_';
  Q1.SQL.Clear;
  Q1.SQL.Add('INSERT INTO N_PMR (pmr,kmr) VALUES ('+pmr+','+IntToStr(DBL_mR.KeyValue)+')');
  Q1.ExecSQL;
if M_PMR.Modified then M_PMR.Post;
if G_PMR.EditorMode then G_PMR.EditorMode:=false;
 M_PMR.Edit;
 M_PMR.Append;
 M_PMR['pmr']:=StrToInt(pmr);
 M_PMR['kmr']:=DBL_mR.KeyValue;//Q_Mr.Lookup('NMR',CB_Mr.Text,'KMR');
 M_PMR.Post;
end;
end;