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

Vba 使用循环填充报表上所有记录的未绑定文本框,vba,ms-access,Vba,Ms Access,我最近遇到一个文档,它对从1到文档末尾的所有记录行进行编号。然后我认为可以在我们的数据库中以报告的形式创建文档。该编号已在文件中使用多年,以便于可视化和参考 如何将此编号添加到报告中?我曾尝试使用循环,但随后我得到了仅与最后一条记录相关联的重复编号 Private Sub Report_Activate() Dim Counter As Integer Dim Total As Integer Total = 0 For Counter = 1 To 10 Total = Counter + 1

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

如何将此编号添加到
报告中
?我曾尝试使用
循环
,但随后我得到了仅与最后一条记录相关联的重复编号

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排序不重要


使用文本框RunningSum属性。它仅在报告中可用,不在表格中可用。不需要VBA。将ControlSource设置为:
=1
。然后将RunningSum属性转换为全局或OverGroup


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

使用textbox RunningSum属性。它仅在报告中可用,不在表格中可用。不需要VBA。将ControlSource设置为:
=1
。然后将RunningSum属性转换为全局或OverGroup


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

哦,我的天啊。不知道RunningSum的
属性工作得很好。谢谢你!哦,我的日子。不知道RunningSum的
属性工作得很好。谢谢你!