在MS-Access中设置焦点_Ms Access

在MS-Access中设置焦点

ms-access

在MS-Access中设置焦点,ms-access,Ms Access,我正在从Qdefs创建一个记录集，然后在表单中显示这些记录当我过滤这些值时，焦点将转到第一条记录。但是，我希望焦点指向过滤前处于焦点的同一条记录这就是我在筛选之前和之后从现有querydefs创建记录集的方式 db.QueryDefs("Query_vinod").Sql = filter Set rs_Filter_Rowsource = db.OpenRecordset("Abfr_SSCI_Check_Findings_List") 我想你可以通过使用书签来做到这一点。设置Recor

我正在从Qdefs创建一个记录集，然后在表单中显示这些记录

当我过滤这些值时，焦点将转到第一条记录。但是，我希望焦点指向过滤前处于焦点的同一条记录

这就是我在筛选之前和之后从现有querydefs创建记录集的方式

db.QueryDefs("Query_vinod").Sql = filter
Set rs_Filter_Rowsource = db.OpenRecordset("Abfr_SSCI_Check_Findings_List")

我想你可以通过使用书签来做到这一点。设置RecordsetClone，然后使用FindFirst方法查找活动记录。我有一些示例代码，需要稍加修改以适合您的确切变量：

Dim Rs As Recordset
Dim Test As Integer
Dim varBookmark As Variant

DoCmd.OpenForm "Contracts"


Set Rs = Forms!Contracts.RecordsetClone

    Rs.FindFirst ("[ID] = '" & Me![ID] & "'")

varBookmark = Rs.Bookmark
Forms!Contracts.Form.Bookmark = varBookmark

If Rs.NoMatch Then
  MsgBox "That does not exist in this database."
Else
End If