Question

有关如何将滚动条/焦点保持在表单顶部的任何想法？

我有许多文本框和列表框的连续形式，无论屏幕的分辨率大小如何，用户都可以向下滚动表单。自从我使用行记录查询实现了一个不同于记录的列表框，每次我更改记录时，表单的垂直滚动条都会将焦点更改为表单的底部。

我尝试将焦点更改为页面顶部的控件或更改更改所述列表框的行源的方法（使用vba代码，如listbox.RowSource = theSQLQUERY或使用sqlQuery创建列表框的行源）。它曾经在我实现该源代码之前工作，它之前有一个源代码，问题从未发生过。

rowsource查询如下所示：

where active_flag = 0

我的问题是，如何考虑更改rowsource的列表框，如何将垂直滚动条/焦点保持在表单顶部？

Answer 1

关键是：

自从我使用行记录查询实现了一个不同于记录的列表框，每次更改记录时，表单的垂直滚动条都会将焦点更改为表单的底部。

您的代码从上到下遍历每条记录。它走到了底部，因为那是代码停止的地方。没关系，这就是Access的工作方式。

因此，在该代码之后，添加以下内容：

Me.Recordset.MoveFirst

或者

DoCmd.GoToRecord acDataForm, Me.Name, acFirst