I have the following code:
[code]
' Clone the recordset.
Dim rs
Set rs = MSODSC.DataPages(0).Recordset.Clone
On error resume next
'Determines which field is selected, then searches it for the value
if selectsearch.value = "ID" then
rs.find "ID ='" & cStr(InputBox("Enter your search","Find")) & "'"
if selectsearch.value = "ID" then
id.disabled = "false"
MSODSC.DataPages(0).Recordset.Bookmark = rs.Bookmark
MSODSC.Datapages(0).FirstSection.HTMLContainer.Children("id").Focus
MSODSC.Datapages(0).ApplyFilter
id.disabled = "true"
[/code]
Which searches for a specific entry in a certain field, finds it, stores the
"bookmark" then uses the bookmark to focus on the specific field, and filter
the value, which has the effect of finding all entries with the value
searched for.
Unfortunately, when first searched for, the proper amount of filtered items
is not collected. If the filter is toggled, it adds the missing entries as
the filter is reapplied, until finally the correct amount is filtered. I was
wondering what may be the problem and how can I fix it.
We have about 1100 entries, if you are curious.