Total в таблице, Access

[Puffi.Muffi]

Всем доброго Вечера!

Подскажите, плиз, как при помощи VBA подставить Сумму внизу таблицы?


Puffi.Muffi

[Puffi.Muffi]

Это возможно? или при помощи SQL?

[владwok]

Создаёш запрос, создаёш отчёт - мастер отчётов в какой то момент появится кнопка "ИТОГИ" тюкаеш выбираеш "SUM"

[Puffi.Muffi]

А как-нибудь при помощи кода?

[Puffi.Muffi]

Именно в таблице, а не в отчете

[shanemac51]

Sub m150218A()

Dim dbs As DAO.Database
Dim tbl As DAO.TableDef
Dim prt As Property
Set dbs = CurrentDb
Set tbl = dbs.TableDefs("èä")
Debug.Print tbl.Name
For Each prt In tbl.Properties
Debug.Print prt.Name, prt.Value
'tbl.Fields("kol").TotalsRow
Next prt
tbl.Properties("TotalsRow").Value = True
'Not tbl.Properties("TotalsRow").Value
Debug.Print tbl.Properties("TotalsRow").Value
End Sub

И откройте таблицу и выберите итоги

[shanemac51]

можно выбрать несколько типов итогов по выборка
по ид-среднее
по кол-сумма

[Puffi.Muffi]

Галина,
Спасибо Вам БОЛЬШОЕ за код. Очень выручили!

Немного, поменяла, так как в первый раз программа не находит это свойство:

Sub m150218A()
Dim db As DAO.Database
Dim tbl As DAO.TableDef
Dim prt As Property
Set db = CurrentDb()
Set tbl = db.TableDefs("tbl_Name")

Set prt = tbl.CreateProperty("TotalsRow", dbBoolean, True)
tbl.Properties.Append prt

tbl.Properties("TotalsRow").Value = True

Set tbl = Nothing
Set prt = Nothing
Set db = Nothing
End Sub

А не знаете, возможно ли при помощи кода выбрать определенный итог, например сумму?

Еще раз спасибо,
Puffi.Muffi

[shanemac51]

У меня пока не получилось выбрать тип итога

[Puffi.Muffi]

Галина, я наконец-то сообразила!
Если в первый раз:

Set db = CurrentDb()
Dim tbl As DAO.TableDef
Dim Fld As DAO.Field
Dim prt As Property
Set tbl = db.TableDefs("tbl_Name")
Set Fld = tbl.Fields("Field_Name")

Set prt = tbl.CreateProperty("TotalsRow", dbBoolean, True)
tbl.Properties.Append prt

Set prt = Fld.CreateProperty("AggregateType", dbLong, 0)
Fld.Properties.Append prt

Set Fld = Nothing
Set tbl = Nothing
Set prt = Nothing
Set db = Nothing