Последний элемент Удваивает результат с RecordSet.FindNext

Question

RS.FindFirst "[" & Me.CategTxtBx & "]='" & Me.SCSearch & "'"
If Not RS.NoMatch Then
   Call ListData 'displays the data on listbox row after row
End If

Do While Not RS.NoMatch
   RS.FindNext "[" & Me.CategTxtBx & "]='" & Me.SCSearch & "'"
   Call ListData 'display the data on listbox row after row
Loop

Выше приведен мой код для извлечения всех данных, которые соответствуют категории и ключевому слову, которое будет вводить пользователь. Работает нормально, но последние найденные данные всегда удваиваются. Может кто-нибудь сказать мне, почему? Я не могу проанализировать причину.

У меня есть счетчик найденных совпадений, поэтому мне нужен точный счет.

Answer 1

Исправлено, добавив еще один оператор If Not NoMatch внутри l oop.

RS.FindFirst "[" & Me.CategTxtBx & "]='" & Me.SCSearch & "'"
If Not RS.NoMatch Then
   Call ListData 'displays the data on listbox row after row
End If

Do While Not RS.NoMatch
   RS.FindNext "[" & Me.CategTxtBx & "]='" & Me.SCSearch & "'"
   If Not RS.NoMatch Then
      Call ListData 'display the data on listbox row after row
   End If
Loop

Я помню, что пробовал, но не сработало, но теперь оно отлично работает.