И снова про ID

[artemavd]

Max(ID_Predmet) - это вычисляемое поле, вычисляемому полю обязательно нужно присваивать имя,
вот MAX_ID и есть это имя.

Значит получается, что Max(ID_Predmet) - это максимальное значение из идентификаторов и этому максимальному значению присваивается название предмета, которое соответствует этому ID? В моей таблице маскимальный ID=12, а название "Биология". Значит это предложение:

Max(ID_Predmet) AS [Max_ID]

Надо понимать как "Max(12) AS [Биология]. Да?)

Сделай как я написал без изменений и посмотри что у тебя будет в переменной nom

Я сделал, но появляется таже ошибка и выделяется строка

   nom:=Form3.Query_add_predm.FieldByName('Max_ID').AsInteger + 1;

[S@fer]

Значит получается, что Max(ID_Predmet) - это максимальное значение из идентификаторов и этому максимальному значению присваивается название предмета, которое соответствует этому ID? В моей таблице маскимальный ID=12, а название "Биология". Значит это предложение:

Надо понимать как "Max(12) AS [Биология]. Да?)

Нет. операция Max(ID_predmeta) выбирает максимальное значение в поле ID_predmeta,
из-за оператора MAX поле становится вычисляемым.
А у вычисляемого поля не может быть того же имени. Поэтому мы поле ID_predmet временно переименовываем в Max_ID. В самой же базе имя не меняется, оно нам нужно только для конкретного запроса.
попробуй сделать так

var
 nom: integer;
begin
 Query_add_predm.Active:=False;
 Query_add_predm.SQL.Clear;
 Query_add_predm.SQL.Add('SELECT Max(ID_Predmet) AS [Max_ID] FROM table_predmety');
 Query_add_predm.Active:=True;

 nom:=Query_add_predm.Fields[0].AsInteger + 1;
end;

[artemavd]

И все равно таже ошибка. И снова ему не нравится [Max_ID]. Колонки называются ID_Predmet и Predmet.

[S@fer]

Что-то ты не так делаешь (проверь параметры)
Посмотри, в примере все нормально работает.

[artemavd]

Да вроде сделал также как у Вас. Вот, посмотрите:
Мой код:

var
 nom: integer;
begin
 Query_add_predm.Active:=False;
 Query_add_predm.SQL.Clear;
 Query_add_predm.SQL.Add('SELECT Max(ID_Predmet) AS[Max_ID] FROM [table_predmety]');
 Query_add_predm.Active:=True;
 nom:=Query_add_predm.FieldByName('ID_Predmet').AsInteger;
 ShowMessage('Максимальный номер = '+IntToStr(nom));
end;

Ваш:

var nom:integer;
begin
ADOQuery2.Active:=False;
ADOQuery2.SQL.Clear;
ADOQuery2.SQL.Add('SELECT MAX(ID_predmeta) AS [MAX_ID] FROM [Predmety]');
ADOQuery2.Active:=True;
nom:=ADOQuery2.FieldByName('MAX_ID').AsInteger;

ShowMessage('Максимальный номер ='+IntToStr(nom));
end;

Но по-прежнему не нравится ему [MAX_ID] в моем коде

[Stilet]

Может стоит [] не писать?

[S@fer]

Просто вставь этот код (ничего не меняя) и проверь

var
 nom: integer;
begin
 Query_add_predm.Active:=False;
 Query_add_predm.SQL.Clear;
 Query_add_predm.SQL.Add('SELECT Max(ID_Predmet) AS Max_ID FROM table_predmety');
 Query_add_predm.Active:=True;
 nom:=Query_add_predm.FieldByName('Max_ID').AsInteger;
 ShowMessage('Максимальный номер = '+IntToStr(nom));
end;

Если не будет работать то закинь на форму новый Query и проверь на нем.

[artemavd]

Все! . Код должен выглядеть вот так:

var
 nom: integer;
begin
 Query_add_predm.Active:=False;
 Query_add_predm.SQL.Clear;
 Query_add_predm.SQL.Add('SELECT Max(ID_Predmet) AS Max_ID FROM table_predmety');
 Query_add_predm.Active:=True;
 nom:=Query_add_predm.FieldByName('Max_ID').AsInteger;
 ShowMessage('Максимальный номер = '+IntToStr(nom));
end;

Без квадратных скобок, как правильно сказал Stilet. Я тоже почему то забыл, что квадратные скобки в SQL означают как необязательные параметры). Я убрал их и этот код правильно работает. Но попрежнему не добавляется в БД название. Что там добавить то надо? Сообщение с максимальный показывается.
P.S. Stilet, а почему я не могу Вам обоим отзыв добавить? Хочу отблагодарить вас за помощь, а не получается

[artemavd]

Вот структура моей таблицы с предметами в Database Desktop.

[S@fer]

теперь после того как ты узнал максимальный номер
Делай новую запись

Query_add_predm.Active:=False;
 Query_add_predm.SQL.Clear;
 Query_add_predm.SQL.Add('INSERT INTO table_predmety VALUES ('+IntToStr(nom+1)+',"'+Edit.text+'")');
 Query_add_predm.ExecSQL;

где Edit.text - едит в котором название нового предмета