Required: Simple Detect Vertical Scrollbar code

[deBassMan]

Hi all

Using MS Access 2000, Win XP

I require a quick and dirty (or all-singing and dancing) way of detecting whether a vertical scrollbar is visible on a sub-form.

apologies if posted in wrong forum - didn't see a VBA section

thanks

[comteck]

I'm not sure what you mean by "detecting" scroll bars. You can, however, turn the scroll bars on or off.

While in design view for the form, go into proerties, and you see a field called "scroll bars" with a pull down menu. Click on the arrow and make your selection.

Hope this helps.
comteck

[zzqxxq]

MS Knowledge Base Article KB207642 describes how you can control when the scrollbars display - the code below counts the number of rows that will be displayed before displaying the scrollbars.

Private Sub Form_Current()

' If the number of records in the subform
' is greater than 4, display the
' horizontal and vertical scrollbars.
If Me.RecordsetClone.RecordCount > 4 Then
Me.ScrollBars = 3
Else
Me.ScrollBars = 0
End If

End Sub

I know this is sort of the reverse of what you actually want but, it might help you if what you are actually trying to do is control when scroll bars display. Of course the IF statement can return a number of lines that will display, therefore if you know how many rows can display without the scroll bars in your current subform window, you can test it against that number as follows:

Assume that the number of rows that can display without a vertical scroll bar is 6 then just use that if statement to control whatever it is that you are trying to do:

Private Sub Form_Current()

If Me.RecordsetClone.RecordCount > 6 Then
(do whatever you are trying to do here)
End If

End Sub

Hope that helps
Best Regards,