计算控件显示子窗体中显示的记录总数

Question

我的任务是创建一个计算控件，显示子窗体中的成员总数。当我没有可以在表达式中使用的确定字段时，如何实现此目的。子窗体中只有三个字段：名字，姓氏和电话。如果我这样做= [frmPlanMemberSubform]。[Form]！[FirstName]只计算并显示子表单中成员的名字。实际上子表单中只有两个名称。从理论上讲，我想回到2的计数。但我无法弄清楚如何使用子表单中的现有字段来完成它。那里有Access专家吗？请帮忙。这是数据库在表单视图中的样子。 如您所见，Total Members控件框中没有任何内容。

Answer 1

请按以下步骤操作：

1）在主表单的代码中插入一个类似于此的函数：

Private Function NumRecords()
    Dim rec As Recordset
On Error GoTo lbErr
    Set rec = Me!<subform-name>.Form.RecordsetClone
    rec.MoveLast
    NumRecords = rec.RecordCount
lbExit:
    Exit Function
lbErr:
    MsgBox Error, vbExclamation
    Resume lbExit
End Function

2）在显示记录数的字段中，在value属性中插入以下字符串：

=NumRecords()

3）按如下方式创建Form_Current触发器：

Private Sub Form_Current()
    Me!<fieldname>.Requery
End Sub

在此输入图片说明