Alternative to Find Method in VBA
Posted on 2005-03-31
I'm having a big problem with the Find Method in VBA with large recordsets. With small recordsets, the following codes works very well:
For Each vntAny In astrLabels
If vntAny <> "" Then
'Looking for a non-null value
rstScores.Find ("" & vntAny & " <> Null")
'If we find a non-null value, then we can move on to the rest of the code
If rstScores.EOF = False Then
'Looking for an "N"
rstScores.Find ("" & vntAny & " = 'N'")
'If we don't find the "N," we want that label in our final label array
If rstScores.EOF = True Then
astrLabelsKeep(intArrayPos) = vntAny
intArrayPos = intArrayPos + 1
With large recordsets, the above code crashes every time. Can anyone suggest modifications or alternatives? Thanks.