根据当前记录计算子表单的控制

Question

我有以下内容： 来自“客户”表的主窗体“客户”。 生成“发票”子表单，其中包含“发票”表中的“发票日期”、“发票金额”、“客户 ID”等字段

每当用户单击或转到“发票”子表单中的记录时，都会 。 我想要一个“到目前为止总计”控件来计算“发票金额”的总和，直到“单击”或选择当前记录的日期为止。

即对于带有发票的客户微软： 1) 2009 年 5 月 2 日，150 美元 2) 2009 年 5 月 3 日，200 美元 3) 09 年 5 月 4 日，$500

如果用户点击记录 2)，“迄今为止总计”应显示 $350 如果用户点击记录 1)，“迄今为止总计”应显示 $150 如果用户单击记录 3)，“迄今为止总计”应显示 $850

目前，我正在子表单“发票”中的事件“OnCurrent”上使用 DSum 函数来设置“迄今为止总计”值。 这种方法是否缓慢、低效？

还有其他更简单、更干净、更优雅、更快、更高效的使用 ms access 功能的方法吗？

我希望“发票”子表单显示该客户的所有发票，无论单击哪条记录。

Answer 1

如果 DSum 方法适合您，则使用它。

如果它太慢，那么另一种方法是使用记录集克隆并循环记录。
这是更多的代码，但效率更高，因为它不必访问数据库。 您确实需要一个唯一的密钥。

Private Sub Form_Current()

  Dim rst As DAO.Recordset
  Dim subTotal As Currency
  Dim rec_id As Long

  'get clone of current records in subform'
  Set rst = Me.RecordsetClone

  'save current record id'
  rec_id = Me.rec_id

  rst.MoveFirst

  'loop and total until current is reached'
  Do Until rst![rec_id] = rec_id
    subTotal = subTotal + rst![InvoiceAmt]
    rst.MoveNext
  Loop

  'add last amount on current record' 
  subTotal = subTotal + rst![InvoiceAmt]

  Set rst = Nothing

  'set text box with subtotal'
  Me.Text2 = subTotal

End Sub

另一种方法是使用 sum() 构建 sql 查询，但这需要更多代码并再次访问数据库。

Answer 2

您可以在子窗体的页脚中放置一个带有 Dsum 的隐藏控件，然后从主窗体中引用该控件。
Dsum 将有其第三个参数，例如 "InvoiceId <= " & InvoiceId

在这种情况下不需要任何 VBA/事件。