Проверка на пустое поле при закрытии

[sdr1]

Ребят доброе утро, подскажите как сделать, чтоб при закрытии формы в строках dbgrid проводилась проверка на не заполненное поле. (dbgrid adoquery access). Сделал вот так

procedure TForm_ins_sotr.BitBtn2Click(Sender: TObject);
begin
if dbgrid1.DataSource.DataSet.FieldByName('on5').AsString='' then
   begin
   ShowMessage('Вы не выбрали организацию');
   end
else
   begin
   close;
   end;
   end;

но если перехожу на другую строку и жму закрыть, то закрывает и сообщение не выдает. Как сделать так, чтоб проверка проходила по всему содержимому?

Если ввожу вот так

dbgrid1.fields[4].Asstring=''

то вообще не закрывает всегда пишет "Вы не выбрали организацию" если даже она заполнена.

[Toxa]

добавить цикл для пробежки по всем записям

while not dbgrid1.DataSource.DataSet.eof do
begin
проверка записи
dbgrid1.DataSource.DataSet.next;
end;

[sdr1]

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

добавить цикл для пробежки по всем записям

while not dbgrid1.DataSource.DataSet.eof do
begin
проверка записи
dbgrid1.DataSource.DataSet.next;
end;

При таком раскладе все зависает

[Stilet]

А чего зависает? что делается в цикле помимо итераций?

[sdr1]

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

А чего зависает? что делается в цикле помимо итераций?

вот процедура

procedure TForm_ins_sotr.BitBtn2Click(Sender: TObject);

begin
dbgrid1.DataSource.DataSet.First;
  while not dbgrid1.DataSource.DataSet.Eof do
begin
if dbgrid1.DataSource.DataSet.FieldByName('on5').AsString='' then
   begin
   ShowMessage('Âû íå âûáðàëè îðãàíèçàöèþ');
   end
else
   begin
   close;
   end;
      end;
        dbgrid1.DataSource.DataSet.next;
        end;

[Аватар]

И что хотели? Begin end понаставили как попадя без всяких выходов из цикла и результата ждете?

[Stilet]

Та да... Один end лишний.
Получается что dbgrid1.DataSource.DataSet.next; находится за пределами цикла.
Обычная человеческая невнимательность. Бывает )))

[sdr1]

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

И что хотели? Begin end понаставили как попадя без всяких выходов из цикла и результата ждете?

если ставлю выход

break

то проверка не происходит

напишите пжл код

begin

  while not dbgrid1.DataSource.DataSet.Eof do
begin
if dbgrid1.DataSource.DataSet.FieldByName('on5').AsString='' then
   begin
   ShowMessage('вы не выбрали организацию');
end
  else
begin
close;
dbgrid1.DataSource.DataSet.next;
end;
end;
end

сделал вот так, теперь окно ShowMessage('вы не выбрали организацию');
не закрывается

[Toxa]

сделал вот так, теперь окно ShowMessage('вы не выбрали организацию');
не закрывается

надо сначала продумать алгоритм действий
пройтись по всем записям, проверить есть ли не заполненные - если есть, то ругнуться
если все заполненные то close (т.е. вызвать уже после цикла)

а сейчас у тебя получается зашел в первую строку -если заполнен, выдал сообщение и цикл висит, нажимаешь ОК в сообщении, цикл идет в следующую запись, опять проверяет, а тут будет заполнен и все, сработает выход

[Stilet]

begin
 with dbgrid1.DataSource.DataSet do
  while not Eof do begin
   if FieldByName('on5').AsString='' then
    ShowMessage('вы не выбрали организацию');
   next;
  end;

end

Сообщение будет вылазить на каждом пустом поле.
А лучше это все заменить на:

begin
  if dbgrid1.DataSource.DataSet.locate('on5','',[]) begin
    ShowMessage('Какое-то из записей не заполнено');
  end;

end

И никакого цикла не нужно.