Ms access 报表上的MS Access循环项

我正在使用MS Access 2016。我希望遍历报表上的控件

Dim objrpt As AccessObject
Dim ctl As Control
    Set objrpt = CurrentProject.AllReports("Quote")
    Debug.Print objrpt.Name

For Each ctl In objrpt.Controls
    Debug.Print ctl.Name
Next

但是，在第5行“objrpt.Controls中的每个ctl”上会弹出一个错误

运行时错误“438” 对象不支持此属性或方法

---

如果有人能解释一下，我将不胜感激。

Access中有不同的报表集合。

CurrentProject.Reports

下的

AccessObject

报表集合主要用于导出

您正在查找

应用程序.Reports

集合，其中包含当前打开的报表：

Dim objrpt As报告
Dim-ctl作为对照
Set objrpt=Application.Reports（“报价”）
Debug.Print objrpt.Name
对于objrpt.控件中的每个ctl
Debug.Print ctl.Name
下一个

请注意，要使其工作，必须打开报告