31/03/2020, 21:15
Dim varBookMark As Variant
set rst = Me.RecordsetClone
If rst.Bookmarkable then
rst.FindFirst "[ID] = " & [TempVars]![TempID]
If Not rst.NoMatch Then
varBookmark = rst.Bookmark
Me.BookMark = varBookmark
End If
End If