Question

我正在从Qdefs创建记录集，然后以表单形式显示记录。

当我过滤值时，焦点将转到第一个记录。但是，我希望焦点指向过滤前焦点相同的记录。

这是在过滤之前和之后从现有querydef创建记录集的方法

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

Answer 1

我认为您可以使用书签来完成此操作。设置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

在MS Access中设置焦点

1 个答案: