[Sentyabrina]

http://www.delphisources.ru/forum/at...d=137169090 9
Вот такую ошибку выдаёт. А вот код:
1 процедура из формы, вызывающей форму, где выбираются параметры удаляемой записи:

Код:

procedure TForm13.RadioButton5Click(Sender: TObject);
var i,n:integer;
begin
 if DataModule1.DataSource3.State=dsBrowse then
  DataModule1.ADOTable3.Edit;
 Form23.ShowModal;
begin
   DataModule1.ADOTable1.DisableControls;
    if DataModule1.DataSource3.State=dsBrowse then
    DataModule1.ADOTable3.Edit;
        if DataModule1.DataSource1.State=dsBrowse then
    DataModule1.ADOTable1.Edit;
      DataModule1.ADOTable1.Last;
  DataModule1.ADOTable1.First;
  n:=DataModule1.ADOTable1.RecordCount;
    {Locate(DataModule1.ADOTable3.Fields[0].AsString,Form1.DBComboBox1.Text,[]);}
  For i:=1 to n do begin
  if (DataModule1.ADOTable1.Fields[1].AsString=Form23.DBComboBox1.Text)
    and (not Eof)then DataModule1.ADOTable1.Delete;
    end;
  DataModule1.ADOTable1.EnableControls;
end;
DataModule1.ADOTable3.Delete;
DataModule1.ADOTable3.Post;
end;
2 процедуры выбора этих параметров
procedure TForm14.Button1Click(Sender: TObject);
begin
DataModule1.ADOTable1.Post;
if DataModule1.DataSource1.State=dsBrowse then
DataModule1.ADOTable1.Edit;
end;

procedure TForm14.Button2Click(Sender: TObject);
begin
DataModule1.ADOTable1.Cancel;
if DataModule1.DataSource1.State=dsBrowse then
DataModule1.ADOTable1.Edit;
end;

MAD: Пользуемся тегами!