Scroll Up Down buttons

[supmktg]

The detail section of my (continuous) form may or may not have a scroll bar on the side depending on the number of records. When it is there, it is way off to the side and the user may not notice that there are more records to view. I'd like to add Up/Down buttons to the footer that become visible when the scroll bar is visible, and work like the Up/Down buttons on the scroll bar.

Can anyone suggest how I might code this?

Thanks,

Sup

 

[ssoltic]

try with this:

Private Sub Form_Current()

   ' If the number of records in the form
   ' is greater than 10, display the
   ' UpDownButtons
   If Me.RecordsetClone.RecordCount > 10 Then
      UpdownButtons.Visible = True
   Else
      UpdownButtons.Visible = False
   End If

End Sub

 

[supmktg]

Thanks Ssoltic,

I will include your code to hide/show the UpDown control!
The code that I can't figure out is how to make the control scroll up and down like the up and down buttons on a scroll bar. I have come close by using 'Sendkeys "{PgDn}" and SendKeys "{PgUp}", but it doesn't work exactly as I want and using SendKeys concerns me.

Sup

 

[ssoltic]

I dont understand what isnt working with Sendkey. I dont like this command but in your case this working perfectly. I dont have experiance with pagescrolling but when I create macros with Sendkeys command everything working ok. You need two macros, one for scroll down, one for scroll up.

hope this help