не удаляется запись - почему?

[cliv]

из таблицы access не удаляется запись если она первая и единственная И перед этим вызывался insert(append) кто может подсказать где ошибка?

//-------------------------------------------------------------------
//Добавить документ
//-------------------------------------------------------------------
procedure TMainMKForm.AddDocBtnClick(Sender: TObject);
begin                             //вот этот блок не работает как надо
  ProgramInsert:= True;  //в beforeinsert = if not ProgramInsert then Abort;
  With  DataModule1.DocumentT do
  begin
    Append;                                        //добавить запись в DocumentT
                                                        //вызов формы редактирования
    Case AddDocForm.ShowModal of     //проверка диалога сохранения
      mrYes : Post;                        //сохранить
      mrNo  : Delete;                     //удалить - НЕ РУГАЕТСЯ НО и НЕ УДАЛЯЕТ
      mrCancel: ;
    end;
  end;
  ProgramInsert:= False;
  DbGridEh1.SetFocus;
end;
//-------------------------------------------------------------------
//Редактировать документ
//-------------------------------------------------------------------
procedure TMainMKForm.EnterDocBtnClick(Sender: TObject);
begin                                                          //здесь все чудесно работает
  Case AddDocForm.ShowModal of
    mrYes : ;
    mrNo  : DataModule1.DocumentT.Delete;  //удалить документ
  end;
end;
//-------------------------------------------------------------------
//Удалить документ
//-------------------------------------------------------------------
procedure TMainMKForm.DelDocBtnClick(Sender: TObject);
begin
  With DataModule1 do
  begin
    if DocumentTDoc_Status.AsBoolean then      //если закрыт - выругаться 
       ShowMessage('     Документ закрыт'+#13+'удаление невозможно')
    else                                                           //если открыть то спросить
      if MessageDlg('Удалить документ ?',
       mtConfirmation, [mbYes, mbNo], 0) = mrYes then
       DocumentT.Delete;                                 //удалить
    DbGridEh1.SetFocus;                                 //фокус на грид
  end;
//Внимание!!! будет обработано событие BeforeDelete в модуле DataModuleUnit
end;

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

[Gulik]

Прежде чем что-то удалить нужно это сохранить. Если не было сохранения (Post), нужно использовать отмену (Cancel):

//-------------------------------------------------------------------
//Добавить документ
//-------------------------------------------------------------------
procedure TMainMKForm.AddDocBtnClick(Sender: TObject);
begin                             //вот этот блок не работает как надо
  ProgramInsert:= True ;  //в beforeinsert = if not ProgramInsert then Abort;
  DataModule1.DocumentT.Append ;                                        //добавить запись в DocumentT
                                                                                        //вызов формы редактирования
    case AddDocForm.ShowModal of     //проверка диалога сохранения
      mrYes : DataModule1.DocumentT.Post ;                        //сохранить
      mrNo  : DataModule1.DocumentT.Cancel ;                     //удалить - НЕ РУГАЕТСЯ НО и НЕ УДАЛЯЕТ
      mrCancel: ;
    end;
  ProgramInsert:= False ;
  DbGridEh1.SetFocus ;
end;
//-------------------------------------------------------------------
//Редактировать документ
//-------------------------------------------------------------------
procedure TMainMKForm.EnterDocBtnClick(Sender: TObject);
begin                                                          //здесь все чудесно работает
  DataModule1.DocumentT.Edit ;
  Case AddDocForm.ShowModal of
    mrYes : DataModule1.DocumentT.Post ;
    mrNo  : DataModule1.DocumentT.Cancel ;  //удалить документ
  end;
end;

[cliv]

сгоряча я такое предположение делал - ставил Post перед Delete - ЭТО не работает. Кроме того прошу обратить внимание что трабл возникает ТОЛЬКО если запись последняя(единственная) в таблице. Если я создам их более одной - код работает чудесно. И ТОЛЬКО если ранее вызывался insert потому что эту единственную запись я легко удаляю в остальных двух блоках программы их текст то же приведен здесь. Логично предположить что после insert взводится какой то флаг и чем его сбросить мне не известно POST точно не подходит