I want to display the last 22 records in my continuous form. I have
writen the following
code and it works, but was wondering if there were any better
suggestions for accomplishing
this. My code scrolls the screen as it goes to bottom and than scrolls
out the 22 recs.
My code:
Private Sub GoToBottom()
Dim X As Integer
X = 0
If Not ([Form].RecordsetClone.EOF) Then
DoCmd.GoToRecord , , acLast
If [Form].RecordsetClone.RecordCount 22 Then
For X = 1 To 22
DoCmd.GoToRecord , , acPrevious
Next
End If
End If
End Sub