Ошибка при вводе данных с ограниченной структурой

[pav-pas]

Имеется база Access

В базе определены несколько обязательных полей которые не должны быть пустыми.
При добавлении записи и не заполнении ее, при закрытии переходе и т.д. возникает ошибка типа так и так "поле1" не заполнено. Подскажите как обработать ошибку именно на то поле которое не заполнено а не на весь класс EOLEException. Чтоб например если "поле1" не заполнено то появляется сообщение "Поле1 незаполено"

[Daramant]

Подскажите как обработать ошибку именно на то поле которое не заполнено а не на весь класс EOLEException

Перед добавлением записи в БД, проверять заполнены ли все обязательные поля, если нет, то выводить соответствующее сообщение.

Точнее отвечу, если расскажешь как добавляешь запись: через таблицу или sql-запросом, также можешь привести код добавления.

P.S. В таблице для полей можно указать значение по умолчанию.

[pav-pas]

Сообщение от Daramant

Перед добавлением записи в БД, проверять заполнены ли все обязательные поля, если нет, то выводить соответствующее сообщение.

Точнее отвечу, если расскажешь как добавляешь запись: через таблицу или sql-запросом, также можешь привести код добавления.

P.S. В таблице для полей можно указать значение по умолчанию.

Перед заполнением та я знаю но мне надо через объект AdoTable1.append;
Дальше в гриде заполняем, и вот тут мне надо чтоб ошибка при не вводе данных в полеN выдовало сообщение и указывало на данное поле.
По умолчанию тоже не пойдет так как у мну это поле индексированное (при повторении записи тоже ошибка)

[Daramant]

Можно сделать так:
У ADOTable есть событие BeforePost. Оно вызывается перед добавлением записи в БД.
Напиши следующий код:

// DataSet содержи запись которую собирается добавить
procedure TMyDataModule.ADOTableBeforePost(DataSet: TDataSet);
begin
  // если значение не определено, то сообщаем об этом пользователю
  if DataSet.FieldByName('<Имя поля>').Value = null then
    raise Exception.Create('Не введено заначение для поля <Имя поля>');
end;

Добавляем в обработчик ADOTableBeforePost условия для проверки всех необходимых полей.

Например такой код, проверяет, чтобы были заполнены все поля:

procedure TMyDataModule.ADOTableBeforePost(DataSet: TDataSet);
var
  i: Integer;
begin
  for i := 0 to DataSet.FieldCount - 1 do
    if DataSet.Fields[i].Value = null then
      raise Exception.Create('Не введено значение поля: "' + DataSet.Fields[i].Name + '"');
end;

Так же можно перекрыть события BeforeEdit, BeforeInsert, чтобы проверять корректность редактирования и вставки записей.

P.S. Можно организовать и более сложную проверку, если необходимо.

[Evgeniy26]

Так не делается:

 if DataSet.FieldByName('<Имя поля>').Value = null then

Так:

  if DataSet.FieldByName('<Имя поля>').IsNull then