时间戳

首页 > 解决方案 > 通过 vba 在 ms 访问中填充报告

sql - 通过 vba 在 ms 访问中填充报告

问题描述

所以我在我的数据库中有一个存储过程，我使用传递查询从 MS 访问运行它返回一个表。我使用记录集“rs”访问表。我想遍历记录集，并为每一行创建报表实例并填充文本框。

例如，我想要一个包含姓名、年龄、性别等的每个学生的报告。所以应该通过循环记录集并为每个学生创建一个报告并填写文本框来完成。我编写了这段代码来测试一个文本框，但我有一种强烈的感觉，我错过了很多。任何帮助将不胜感激

Dim i As Integer
i = 0

Do While Not rs.EOF
    Dim rtp(i) As Report_DecemberProject
    Set rpt(i) = New Report_DecemberProject
    rpt(i).Text55.Value = rs.Fields(3)
    rpt(i).Visible = True
    i = i + 1
Loop

标签： sqlvbams-accessreport

解决方案

无法以编程方式设置报表控件的值属性。使用 BOUND 报表和控件以及 Detail 部分的 ForceNewPage 属性在每条记录后强制分页。将页眉部分用于必须为每个页面重复的信息，例如带有报告标题的标签和带有 =Date() 的文本框等。

推荐阅读