Вычилсяемое поле

[Кротяка]

Помогите создать вычисляемое поле в таблице (Зарплата.Зарплата), которое будет считать сумму трёх полей (Зарплата.[Зарплата гарантированная] + Зарплата.[Зарплата дополнительная] + Зарплата.Премиальные). Предполагаю, что тут нужен VBA... пытался что то написать - результата нет....

Private Sub Зарплата_BeforeUpdate(Cancel As Integer)
Dim sql As String
Dim Rs As Recordset
Dim DBS As Database
sql = "SELECT Зарплата.[Зарплата гарантированная] + Зарплата.[Зарплата дполнительная] + Зарплата.Премиальные As Зарплата FROM Зарплата"
Set Rs = DBS.OpenRecordset(sql)
Me.opl = Rs(0)
End Sub

[Serge_Bliznykov]

select - выбирает значение!
Вам же нужно ОБНОВЛЯТЬ значение поля (см. в сторону Update)
а вообще, поле, которое является вычисляемым в 99.9% случаев в БД хранить НЕ НУЖНО!!!!

Ведь когда Вы будете получать поля из таблицы запросом, вот там и посчитаете нужное значение!!

[Кротяка]

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

select - выбирает значение!
Вам же нужно ОБНОВЛЯТЬ значение поля (см. в сторону Update)
а вообще, поле, которое является вычисляемым в 99.9% случаев в БД хранить НЕ НУЖНО!!!!

Ведь когда Вы будете получать поля из таблицы запросом, вот там и посчитаете нужное значение!!

это как раз тот редкий случай, когда его нужно хранить. Просто я использую базу Access для C++ Builder , поэтому мне необходимо, чтобы это поле там отображалось
что то я не пойму, как именно нужно обновить

[Serge_Bliznykov]

Просто я использую базу Access для C++ Builder , поэтому мне необходимо, чтобы это поле там отображалось

Добавьте вычисляемое поле в запрос, будет отображаться. Хранить его незачем.

[Teslenko_EA]

Здравствуйте Кротяка.
"..не пойму, как именно нужно обновить.." - заполнить все результирующие поля (ЗарплатаПоле) данными из трёх полей в MS Access
можно без обращеия к рекордсету, достаточно просто выполнить запрос на обновление, можно VBA кодом:

Const sQ = "UPDATE Зарплата SET ЗарплатаПоле = Nz([Зарплата гарантированная], 0) + Nz([Зарплата дполнительная], 0) + Nz(Премиальные, 0) "
Dim DBS As Database
Set DBS = CurrentDB
DBS.Execute(sQ)

Но смысла в этой операции нет, ибо она накапливает в таблице избыточные данные, которые можно в любой момент
получить выполнив простую математическую операцию.
Евгений.