Hi JezPerth,
Based on my understanding, the bookmark is for the position for the same recorderset2 object. However, from the sample you provide you were clone the recorderset2 object and set the bookmark for the different object.
The recommend way should bookmark the current record before you filter the data and if the data doesn't find we can use the bookmark to navigate the origin recorder.
Here is the sample code for your reference:
Public Sub FindItOnDataFormWithBookmarkBug(pFrm As Form, pFrmSub As Form, pcFldName As String, pvValue As Variant, pcTblName As String, pcDataName_Sing As String, pcErrMsg As String)
'USE: Variant of FindItOnDataForm, for dev test purposes only. This has no fixes for the bookmark bug.
' Find and display the specified record. If cannot find the record but it does
' exist, and a filter is set, give user the chance to clear the filter.
' If fail to display specified record return msg in pcErrMsg else "" to indicate
' success.
Dim lRs As Recordset
Dim llExists As Boolean
Dim llRsOpened As Boolean
Dim lnValueN_ToFind As Long
Dim lvValueN_CurrentRecord As Variant
Dim llRequery As Boolean
pcErrMsg = ""
llRsOpened = False
On Error GoTo Error_FindIt
lnValueN_ToFind = CLng(pvValue)
'If editing is underway
If pFrm.FormEditing() Then
lvValueN_CurrentRecord = pFrmSub(pcFldName)
If DiffValue_VarAndLong(lvValueN_CurrentRecord, lnValueN_ToFind) Then
pcErrMsg = "The specified " & pcDataName_Sing & " cannot be displayed at the moment because data on the " & pFrm.Caption & " form is being edited."
End If
'If no ErrMsg it means that the required record is already current so, despite it being edited
'at present, the form can be displayed as if the record has just been found.
Else
'Assume form is not opened in DataEntry mode and assume user has no way to enter it
'so no need to check/remove it.
llRsOpened = True
Set lRs = pFrmSub.RecordsetClone
Dim varbookmark As Variant
varbookmark = pFrmSub.Recordset.Bookmark
pFrmSub.Recordset.FindFirst pcFldName & " = " & lnValueN_ToFind
'If did not find the specified record in the CURRENT VIEW (which may be filtered):
If pFrmSub.Recordset.NoMatch Then
pcErrMsg = "Failed to find the specified record in the current view."
pFrmSub.Bookmark = varbookmark
'else, found it:
Else
'pFrmSub.Bookmark = lRs.Bookmark
'pFrmSub.Bookmark = lRs.Bookmark
End If
If ZeroLen(pcErrMsg) Then
'Test for wrong record found due to bookmark bug.
If pFrmSub(pcFldName) <> lnValueN_ToFind Then
pcErrMsg = "Found wrong record. (Found " & pFrmSub(pcFldName) & " instead of " & lnValueN_ToFind & ")."
End If
End If
End If
AfterError_FindIt:
If llRsOpened Then
On Error Resume Next 'In case following does not exist
lRs.Close
End If
On Error GoTo 0
Exit Sub
Error_FindIt:
pcErrMsg = ErrMsg("Failed to find the specified " & pcDataName_Sing)
Resume AfterError_FindIt
End Sub
Regards & Fei
We are trying to better understand customer views on social support experience, so your participation in this interview project would be greatly appreciated if you have time. Thanks for helping make community forums a great place.
Click
HERE to participate the survey.
