добавление данных в таблицу из запроса

[Tessi123]

доброго времени суток!
подскажите пожалуйста как реализовать добавление данных в таблицу "приход" из запроса "группировка расхода".
нужно что бы в таблицу "приход" в столбец "расход" добавлялись значения из запроса "группировка расхода" из столбца "sum-количество расхода"
то есть было

Код товара/ дата прихода/ наименование/ количество прихода/ цена продажи/ расход
0000001 /01.06.2012 /картридж /10 /200,00р./
0000002 /01.06.2012 /псвч/ 5 /200,00р./
0000003 /02.06.2012 /жесткий диск /100 /3 000,00р./

стало

Код товара/ дата прихода/ наименование /количество прихода /цена продажи /расход
0000001 ,01.06.2012/ картридж/ 10 /200,00р./ 4
0000002 /01.06.2012/ псвч /5 /200,00р./ 1
0000003 /02.06.2012/ жесткий диск/ 100 /3 000,00р./ 11

помогите пожалуйста

[gluk_fm]

Добрый день.
Есть много вариантов, но мне постоянно пишет что должен использоваться обновляемый запрос как вариант модуль:
Sub tt()
Dim db As Database
Set db = CurrentDb
Dim t As Recordset


Set t = db.OpenRecordset("SELECT DISTINCTROW Sum(ðàñõîä.[êîëè÷åñòâî ðàñõîäà]) AS [Sum - êîëè÷åñòâî ðàñõîäà], ðàñõîä.[Êîä òîâàðà] " & _
"FROM ðàñõîä " & _
"GROUP BY ðàñõîä.[Êîä òîâàðà];")


t.MoveFirst
Do Until t.EOF


db.Execute ("UPDATE ïðèõîä SET ïðèõîä.ðàñõîä = " & t![Sum - êîëè÷åñòâî ðàñõîäà] & " " & _
"WHERE (((ïðèõîä.[Êîä òîâàðà])=" & t![Êîä òîâàðà] & "));")

t.MoveNext
Loop


End Sub

[gluk_fm]

Ой что-то коряво вставилось

[Tessi123]

спасибо Вам всем большое
я уже сама допетрила как надо

[gluk_fm]

А как Вы сделали? Просто для себя радиинтереса..... Может у Вас оригинальней решение а такие действия необходимо выполнять достаточно часто.

[Tessi123]

решила что вычисляемые поля в таблице это не есть хорошо и создала Суммарный расход с помощью запроса
Код SQL
SELECT [Код товара], [дата прихода], наименование, [количество прихода], [цена продажи],
DSum("[количество расхода]","расход","[Код товара]=" & [Код товара]) AS расход
FROM приход

потом ещё один запрос
код SQL
SELECT приход.[Код товара], приход.наименование, приход.[количество прихода], [Суммарный расход: Запрос].расход, IIf([Суммарный расход: Запрос].[расход] Is Null,[приход].[количество прихода],[приход].[количество прихода]-[Суммарный расход: Запрос].[расход]) AS Остаток
FROM [Суммарный расход: Запрос] INNER JOIN приход ON [Суммарный расход: Запрос].[Код товара] = приход.[Код товара];
воть ... не судите строго

[aaaaa52]

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

Ой что-то коряво вставилось

чтобы коряво не вставлялось просто экспортируйте сам модуль в txt
копетан очевидность)))

[Teslenko_EA]

Здравствуйте Tessi123.
1. "..что бы в таблицу "приход" в столбец "расход" добавлялись значения.."", "..создала .. расход с помощью запроса.." -
действительно повторно регистрировать в таблице прихода уже зарегистрированное в значение расхода это неверный подход
по причине разрушения нормализации, эти данные в любой момент можно получить запросом
(Вашу конструкцию я подредактировал):

SELECT T0.[Код товара], T0.[дата прихода], T0.наименование, 
	T0.[количество прихода], T0.[цена продажи], 
	Sum(T1.[количество расхода]) AS расход
FROM расход AS T1 RIGHT JOIN приход AS T0 ON T1.[Код товара] = T0.[Код товара]
GROUP BY T0.[Код товара], T0.[дата прихода], T0.наименование, T0.[количество прихода], T0.[цена продажи]

2. а остаток можно получать так:

SELECT T1.[Код товара], T1.наименование, T1.[количество прихода], T.расход, 
	T1.[количество прихода]-Nz(T.расход,0) AS Остаток
FROM (
	SELECT Sum([количество расхода]) AS расход, [Код товара] 
	FROM расход 
	GROUP BY [Код товара]
	) AS T RIGHT JOIN приход AS T1 ON T.[Код товара]=T1.[Код товара]

3. в таблицах БД "столбец" чаще называют полем.
4. выкладывая на странице код(SQL конструкцию),
для удобочитаемости заключайте его в теги [соde]...[/соde],
для этого на панели и размещена кнопка - #.
(совет и для gluk_fm)

to gluk_fm:
"..что-то коряво.." - существуют разные способы борьбы с "корявостью",
например через буфер обмена вставлять в документ MS Word,
а затем через буфер получать "правильно" отображаемый текст,
но проще не бороться с кодировкой Uni.. самостоятельно, а ассоциировать
кодовую страницу 1252 с кодовой страницей 1251
образец в файле.

Евгений.