如何保存公式计算结果？？？？？！！！

附件中窗体“工时信息”里的分数小计，平均分，加班贴分、产量合计，总分数都是通过公式计算出来的，但是却无法保存（在表“工时信息”里看不到），请问有什么办法，我写了一些代码，但总无法运行，请大家帮帮忙，谢谢。  

Private Sub 换种贴分_AfterUpdate()
Me.分数小计 = Nz([杂物贴分]) + Nz([新产品贴分]) + Nz([机修贴分]) + Nz([换种贴分]) + Nz([工时明细 子窗体].Form!分数合计)
End Sub


Private Sub 机修贴分_AfterUpdate()
Me.分数小计 = Nz([杂物贴分]) + Nz([新产品贴分]) + Nz([机修贴分]) + Nz([换种贴分]) + Nz([工时明细 子窗体].Form!分数合计)
End Sub


Private Sub 新产品贴分_AfterUpdate()
分数小计 = Nz([杂物贴分]) + Nz([新产品贴分]) + Nz([机修贴分]) + Nz([换种贴分]) + Nz([工时明细 子窗体].Form!分数合计)
End Sub

Private Sub 样品贴分_AfterUpdate()
Me.分数小计 = Nz([杂物贴分]) + Nz([新产品贴分]) + Nz([机修贴分]) + Nz([换种贴分]) + Nz([工时明细 子窗体].Form!分数合计)
End Sub

Private Sub 杂物贴分_AfterUpdate()
Me.分数小计 = Nz([杂物贴分]) + Nz([新产品贴分]) + Nz([机修贴分]) + Nz([换种贴分]) + Nz([工时明细 子窗体.Form!分数合计])
End Sub

兄弟们，可以帮帮忙吗