Private Sub TxtPageRecCount_AfterUpdate()
Dim i As Integer
If Nz(Me.TxtPageRecCount) = "" Then
Me.TxtPageRecCount = 1
ElseIf Me.TxtPageRecCount < 1 Then
Me.TxtPageRecCount = 1
ElseIf Me.TxtPageRecCount > 100 Then
Me.TxtPageRecCount = 100
End If
i = Me.CmbPageCount.ListIndex
Me.CmbPageCount.RowSource = CreatePageString(rst, Me.TxtPageRecCount)
If i >= Me.CmbPageCount.ListCount Then i = Me.CmbPageCount.ListCount - 1
Me.CmbPageCount = Me.CmbPageCount.ItemData(i)
CmbPageCount_AfterUpdate