过滤表单记录源后，滚动条大小错误

Question

表格记录来源是1900条记录＆amp;然后根据用户在组合框列表中选择的内容进行过滤，在VBA中我有一个SELECT CASE语句，为每个选择执行类似下面的操作

Private Sub cmbDateRange_AfterUpdate()
SELECT CASE Me.cmbDateRange.Value
    Case "Yesterday"
        Me.Filter = "messageDateandtime BETWEEN #" & Date - 1 & "# AND #" & Date - 1 & " 23:59#"
    Case "Past 7 Days"
        Me.Filter = "messageDateandtime BETWEEN #" & Date - 7 & "# AND #" & Date & " 23:59#"
End Select
Me.FilterOn = True
Me.Recordset.MoveLast: Me.Recordset.MoveFirst

最后一行是一个廉价的黑客，正在努力修复原始记录集1900的滚动条长，而这个过滤器应该是100。我猜有一个更好/更有效的方法？