vba - 滚动到表单中的子报表底部 (Access 2016)

Question

我在表单中有一个子报表，并且该报表的行数通常比子报表的高度多。我想：

1. 增长子报表（在屏幕上）以显示所有行（我认为这在屏幕上是不可能的）
2. 滚动到子报表的末尾，以便为每条记录显示最后一行和页脚（带总和）

我曾尝试在包含表单的 Current 事件中的报表的子表单上执行 SetFocus，但未成功，然后在子报表的 GotFocus 事件中在页脚的总和字段之一上添加 SetFocus。如果我单击报告，GotFocus 事件会触发并滚动到底部，但它不会自动工作。

任何实现这些结果的建议将不胜感激！

标签： vbams-access

Answer 1

1. 增长子报表对屏幕大小有限制，但您可以调整大小以适应屏幕
2. 要移动到最后一条记录，您必须将焦点设置为报表控件（首先关注子报表控件，然后是子报表控件）

Me.subreportcontrol.SetFocus
Me.subreportcontrol.Report.AnyControl.SetFocus

DoCmd.GoToRecord acActiveDataObject, , acLast

AnyControl对子报表的任何控制在哪里。