| |
 9 Кб. |
|
| | имеем две таблицы
1 -ZAKAZANO_TBL
2- VALUES_TBL
надо запросом в ZAKAZANO_TBL - сложить суммы заказов, перемножив на количество.
и запросом положить всё в таблицу VALUES_TBL в поле CURS с ID строки SUMMA_ZAKAZANO | |
| |
| |
| |
|
|
| | [VALUES_TBL].[ID]='SUMMA_ZAKAZANO'? | |
| |
| |
|
|
| |
|
|
| | группировку какую-то надо делать? И я что-то не разобрался, куда что добавлять.  | |
| |
| |
| |
15 Кб. |
|
| | аааааааа - надо обновлять, а не добавлять мать...
тока не добавляет..... | |
| |
| |
| |
9 Кб. |
|
| | чего не хватает? | |
| |
| |
| |
15 Кб. |
|
| | а так ? | |
| |
| |
|
|
| |
|
|
| | Спасибо!!!
, но ДЛУК не подойдёт
мне надо без функций - чисто запросом. | |
| |
| |
| |
|
|
| | ок) час по моиму у тебя поле в таблице вычеслаемое и за это и ошибка | |
| |
| |
| |
|
|
| | если открыть запрос в режиме даташит (незнаю как по русски) ты не сможеш редатировать поле (запись блокирована)
но если данные берётся из длукап то их можно редактировать | |
| |
| |
| |
|
|
| | UPDATE VALUES_TBL SET VALUES_TBL.CURS = DSum("[ZAKAZANO_TBL]![PRICE]*[ZAKAZANO_TBL]![ZAYAVA_AMOUNT]","[ZAKAZANO_TBL]")
WHERE (((VALUES_TBL.ID)="SUMMA_ZAKAZANO"))
WITH OWNERACCESS OPTION; | |
| |
| |
| |
|
|
| | а НЕТ НЕ ПОТЯНЕТ - ОПЯТЬ "DSUM" | |
| |
| |
| |
|
|
| | Почему? в групповом твоем запросе тоже стоит sum - какая разница | |
| |
| |
| |
|
|
| | Я не уверен что DSUM - будет без access работать. | |
| |
| |
|
|
| |
|
|
| | Без аксес это где?
М.б. тогда юзай tsum
'---------------------------------------------------------------------------------------
' Procedure : tSum быстрый DSUM
' DateTime : 23.06.2011 14:19
'---------------------------------------------------------------------------------------
'
Public Function tSum(pstrField As String, pstrTable As String, Optional pstrCriteria As String = "") As Double
On Error GoTo tSum_Err
' Function tSum
' Purpose: Replace DSum, which is slow on attached tables
Dim dbCurrent As Database
Dim rstLookup As Recordset
Dim dblValue As Double, strsql As String
Set dbCurrent = DBEngine(0)(0)
If pstrCriteria = "" Then
strsql = "Select Sum(" & pstrField & ") From " & pstrTable & ";"
Else
strsql = "Select Sum(" & pstrField & ") From " & pstrTable & " Where " & pstrCriteria & ";"
End If
Set rstLookup = dbCurrent.OpenRecordset(strsql, dbOpenForwardOnly)
If Not rstLookup.BOF Then
dblValue = rstLookup(0)
Else
dblValue = 0
End If
rstLookup.Close
tSum = dblValue
tSum_Exit:
On Error Resume Next
rstLookup.Close
Exit Function
tSum_Err:
' Retry/Abort/Ignore
'MsgBox "Error", , "tSum Error " & Err & ";" & Err.Description
End Function
|
| |
| |
| |
| |
|
|
| | Спасибо ДядяФёдор.
Я решил юзать ADO !  | |
| |
| |
