Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
With VScroll1
.Min = 1
If rs.RecordCount > 32767 Then
.Max = 32767
Else
.Max = rs.RecordCount
End If
.SmallChange = 1
.LargeChange = DataGrid1.VisibleRows
msBigScrollFactor = rs.RecordCount / .Max
.Visible = True
End With
[code]
Then use a form module level variable (here: msBigScrollFactor) as a scroll factor in the Scroll event.
The only disadvantages to this, if it can be considered, is:
1. the fact that when the amount of records > 32,767, the LargeScroll (holding and moving the scroll bar slider), is that the increments are not One, but proportional to the recordcount (66,000 records, then a move of the slider means Two rows instead of one.)
2. A little extra code
Among 100,000 records? No way, I'm not buying that.moonbase said:It also takes a few seconds to locate a particular record or range of records.