vba - 使用循环为所有记录填充报表上的未绑定文本框

Question

我最近遇到了一个文档，它对从 1 到文档末尾的所有记录行进行编号。然后我认为可以在我们的数据库中以report. 该编号已在文档中使用多年，以便于可视化和参考。

如何将此编号添加到report？我曾尝试使用 aloop但随后我得到了仅与最后一条记录相关联的编号重复。

Private Sub Report_Activate()
Dim Counter As Integer
Dim Total As Integer
Total = 0
For Counter = 1 To 10
Total = Counter + 1

Me.txtLine.Value = Counter
'Debug.Print Counter

Next Counter

End Sub

当前尝试：

预期：NB 排序Description并不重要

Answer 1

使用文本框 RunningSum 属性。它仅在报告中可用，不适用于表格。不需要 VBA。将 ControlSource 设置为：=1。然后将 RunningSum 属性设置为 OverAll 或 OverGroup。

在 Access 中计算顺序标识符或查询或代码中的任何运行总和变得相当复杂。这是许多论坛的共同话题。