2014-02-11 53 views
0

我從Qdefs創建一個記錄集,然後在窗體中顯示記錄。在MS Access中設置焦點

當我過濾這些值時,焦點將轉到第一條記錄。但是,我希望焦點指向篩選前處於焦點的相同記錄。

這是怎麼前和過濾

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

回答

0

後正在創建從現有querydefs一個記錄,我認爲你可以使用書籤做到這一點。設置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