home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 6 Unleashed…sional Reference Edition) / Visual_Basic_6_Unleashed_Professional_Reference_Edition_Sams_1999.iso / Source / CHAP08 / 309X0808.TXT < prev    next >
Encoding:
Text File  |  1998-06-17  |  522 b   |  26 lines
  1.  
  2. Private Sub cmdFirst_Click()
  3.  
  4. ' If rsMain has been assigned, move to the first
  5. ' record in the recordset and update the scroll
  6. ' bar's position.
  7. If Not (rsMain Is Nothing) Then
  8.     rsMain.MoveFirst
  9.     hsbRecScroll.Value = 1
  10. End If
  11.  
  12. End Sub
  13.  
  14.  
  15. Private Sub cmdLast_Click()
  16.  
  17. ' If rsMain has been assigned, move to the last
  18. ' record in the recordset and update the scroll
  19. ' bar's position.
  20. If Not (rsMain Is Nothing) Then
  21.     rsMain.MoveLast
  22.     hsbRecScroll.Value = hsbRecScroll.Max
  23. End If
  24.  
  25. End Sub
  26.