UPDATE Calculate INNER JOIN XY ON Calculate.id = XY.id SET XY.Y = [Calculate]![rez]
WITH OWNERACCESS OPTION;
хранимый запрос Calculate:
SELECT XY.X, XY.Y, XY.id, sumF([id], "X" ) AS Narost, NachChislo()-[narost] AS delta, fchoose([x],[delta]) AS Rez
FROM XY
ORDER BY XY.id
WITH OWNERACCESS OPTION;
 функции:
Function sumF(ID As Long, strFieldName As String)
Dim Sum As DAO.Recordset
Dim strSumF As String
Dim rstFielad As String
rstField =  "Sum_"  & strFieldName
strSumF =  "SELECT Sum(XY."  & strFieldName &  ") AS ["  & rstField & _
 "] FROM XY WHERE (((XY.id) Between 1  And " & ID &  ")) WITH OWNERACCESS OPTION;" 
Set Sum = CurrentDb.OpenRecordset(strSumF, dbopendynaset)
sumF = Sum(rstField)
End Function
Function fChoose(arg As Double, d As Double) As Double
 If d >=  0  Then
   fChoose = arg
   Else
    If d + arg >=  0  Then
    fChoose = (d + arg)
     Else
      fChoose =  0 
    End If
 End If
End Function
Function NachChislo() As Double
  NachChislo =  10 
End Function