Scroll Bars

[JKlein]

I need a easy way to activate the scrolll bars when the number of records
exceed 4 on the subform. I have placed this code in the on current event of
the subform:

If Count() > 4 Then
Form.ScrollBars = 2
End If

This doen not work...Can't figure it out. Any suggestions??

 

[TC]

That won't get the number of records. This will:

(untested)

dim x as long
x=0
with me.recordsetclone
if not (.bof and .eof) then
.movelast
x = .recordcount
endif
end with

Copy & paste that code - don't try to type it, or you might miss some
dots.

You could put it into a function in the form's code module, so you
could call it from other places in that module.

HTH,
TC (MVP Access)
http://tc2.atspace.com