добавления нескольких записей в MS Acces

[Sm1Le]

Скажи в каком Квери у тебя Заявка(Корзина), в Каком Склад(откуда минусовать) ...

[Mitriy08]

Ух..... всетаки автор читает через строку....

With UpdateDelQuery do
begin
     Name := 'UpdateDelQuery';
     Connection:=DataModule1.ADOConnection1;
     Close;
end;

UpdateDelQuery.Clear;
UpdateDelQuery.SQL.Add('Update zaiavkiQuery set amount=amount-'DataModule1.zaiavkiQueryamount.AsString +' Where IDSales = 'IntToStr(IDSales);
UpdateDelQuery.ExecSQL;

UpdateDelQuery.Clear;
UpdateDelQuery.SQL.Add(''); // между ковычками надо написать запрос на вставку!!!!!!!!!
UpdateDelQuery.ExecSQL;

UpdateDelQuery.Clear;
UpdateDelQuery.SQL.Add('delete from ИМЯ_ТАБЛИЦЫ_А_НЕ КВЕРИ!!!!');
UpdateDelQuery.ExecSQL;
ShowMessage('Товар продан');

[opel.omega]

ребят счас задумался о вас и хочу вам сказать еще раз огромное человеческое спасибо за то что тратите свое время на меня
СПАСИБО!!!

[opel.omega]

я исправил но ошибки все равно есть

[Error] Sales.pas(201): Undeclared identifier: 'RecordCount'
[Error] Sales.pas(204): Undeclared identifier: 'UpdateDelQuery'
[Error] Sales.pas(204): Missing operator or semicolon
[Error] Sales.pas(205): ')' expected but identifier 'DataModule1' found
[Error] Sales.pas(205): Missing operator or semicolon
[Error] Sales.pas(207): Undeclared identifier: 'Clear'
[Error] Sales.pas(210): Undeclared identifier: 'Next'
[Error] Sales.pas(212): Undeclared identifier: 'Clear'
[Error] Sales.pas(213): '(' expected but identifier 'from' found
[Error] Sales.pas(213): Not enough actual parameters
[Fatal Error] skt.dpr(14): Could not compile used unit 'Sales.pas'

[Mitriy08]

выкидывай исходники...

И все таки опиши структуру таблиц.....

[фЁдОр]

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

И все таки опиши структуру таблиц.....

это впервую очередь необходимо. я уже писал, что сначала надо грамотно построить структуру БД, иначе потом путаница будет...

[opel.omega]

вот исходник [ATTACH]7241[/ATTACH]

что касается структуры
есть
виды детаелей
поставщики
склад
заявки
клиенты
продажи
поставщики связаны со складом, склад с заявкам (тоисть при продаже сначала добовляется товар в заявки потом если клиента все устраивает продается) заявка связаны с продажой и клиенты связаны с продажой

[opel.omega]

VidiDetali виды деталей
sklad склад
postavsiki поставщики
zaiavki заявки
klienti клиенты
sales продажи

нужно при нажатии на продаже из заявок перенести все записи в продажу и отнять количество каждой детали от количества такой же детали на складе

[Mitriy08]

Ну что поехали....
Первое:

for j:=0 to DataModule1.zaiavkiQuery.RecordCount - 1 do
begin

Это означает пробежаться по всем записям которые есть DataModule1.zaiavkiQuery (НЕ ЛЬЗЯ БЕГАТЬ ПО ПОЛЮ У ТЕБЯ БЫЛО zaiavkiQueryamount

UpdateDelQuery.SQL.Add('Update zaiavki set amount=amount-' +DataModule1.zaiavkiQueryamount.AsString +' Where IDSales = '+
DataModule1.zaiavkiQuery.FieldByName('IDSales').AsString )

У тебя не было объвленно пременной IDSales - так к полю обращаться не льзя!!!!
100 раз писал что в запросах учавствуют РЕАЛЬНЫЕ ТАБЛИЦЫ А НЕ КВЕРИ

DataModule1.zaiavkiQuery.Next;

UpdateDelQuery.Clear;
UpdateDelQuery.SQL.Add('delete from zaiavki');
UpdateDelQuery.ExecSQL;

UpdateDelQuery.SQL.Clear;

По поводу:

UpdateDelQuery.SQL.Clear;
UpdateDelQuery.SQL.Add('');
UpdateDelQuery.ExecSQL;

Между ковычек должен быть текст ПРИМЕРНО ТАКОЙ

Insert Into ИМЯ_ТАБЛИЦЫ_РЕАЛЬНОЙ (ПЕРЕЧИСЛЕНИЕ ПОЛЕЙ ИЗ ТАБЛИЦЫ ПО КОТОРЫМ БУДЕШ ЗАНОСИТЬ ДАННЫЕ ЧЕРЕЗ ЗАПЯТУЮ) Values
(ПЕРЕЧИСЛЕНИЕ ЗНАЧЕНИЙ ПОЛЕЙ ЧЕРЕЗ ЗАПЯТУЮ)

Опиши поля в каждой таблице!!! И составим тебе запрос

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

DataModule1.MyQuery.FieldByName('МоеПоле').Value

- Сдесь "МоеПоле" - эт ореальное поле из таблицы
Можно обращаться по индексу (начинается с 0) перечисление идет в том порядке в каком ты селектиш поля
Пример

DataModule1.MyQuery.Fields[1].Value

- Сдес "1" - это второе поле которое учавствует в запросе

[opel.omega]

так после ваших наиважнейших замечаний получилось

var
  j : Integer;
  UpdateDelQuery: TADOQuery;
begin
DataModule1.zaiavkiQuery.First;
UpdateDelQuery := TADOQuery.Create(Self);
With UpdateDelQuery do
begin
     Name := 'UpdateDelQuery';
     Connection:=DataModule1.ADOConnection1;
     Close;
end;
for j:=0 to DataModule1.zaiavkiQuery.RecordCount - 1 do
begin

DataModule1.zaiavkiQuery.Next;

UpdateDelQuery.SQL.Add('Update zaiavki set amount=amount-'
+DataModule1.zaiavkiQueryamount.AsString +' Where IDSales = '+
DataModule1.zaiavkiQuery.FieldByName('IDSales').AsString )

UpdateDelQuery.ExecSQL;
UpdateDelQuery.Clear;
UpdateDelQuery.SQL.Add('zapros');
UpdateDelQuery.ExecSQL;
DataModule1.zaiavkiQuery.Next;
end;
UpdateDelQuery.Clear;
UpdateDelQuery.SQL.Add('delete from zaiavki');
UpdateDelQuery.ExecSQL;
ShowMessage('Товар продан');
UpdateDelQuery.Free;
end;

и несколько ошибок

[Error] Sales.pas(210): Missing operator or semicolon
[Error] Sales.pas(211): Undeclared identifier: 'Clear'
[Error] Sales.pas(216): Undeclared identifier: 'Clear'
[Fatal Error] skt.dpr(14): Could not compile used unit 'Sales.pas'