By using this site, you agree to our updated Privacy Policy and our Terms of Use. Manage your Cookies Settings.
454,962 Members | 1,266 Online
Bytes IT Community
+ Ask a Question
Need help? Post your question and get tips & solutions from a community of 454,962 IT Pros & Developers. It's quick & easy.

continuous form: records do not automatically fit nicely

P: n/a
Is there maybe a trick
so that when I make a continuous form, the records fit exactly?
Now, without such trick, often the last visible record shows only half
and I have to stretch the form manually, and try, and try once more,
until all the visible records do fit neatly on my form.

thanks for your secrets

Michiel
Feb 4 '08 #1
Share this Question
Share on Google+
4 Replies


P: n/a
Michiel Rapati-Kekkonen wrote:
>Is there maybe a trick
so that when I make a continuous form, the records fit exactly?
Now, without such trick, often the last visible record shows only half
and I have to stretch the form manually, and try, and try once more,
until all the visible records do fit neatly on my form.

Here's some air code for that kind of thing:

Sub Form_Load(...
Const M As Integer = 7 'Max rows to display
Dim K As Integer 'min of M and record count

With Me.RecordsetClone
.MoveLast
K = .RecordCount
If K M Then K = M
End With

Me.InsideHeight = K * Me.Section(0).Height _
+ Me.Section(1).Height + Me.Section(2).Height
End Sub

If your form does not have the Form Header/Footer sections,
drop the last line.

--
Marsh
Feb 4 '08 #2

P: n/a
Great

thanks!

Michiel

"Marshall Barton" <ma*********@wowway.comwrote in message
news:bd********************************@4ax.com...
Michiel Rapati-Kekkonen wrote:
>>Is there maybe a trick
so that when I make a continuous form, the records fit exactly?
Now, without such trick, often the last visible record shows only half
and I have to stretch the form manually, and try, and try once more,
until all the visible records do fit neatly on my form.


Here's some air code for that kind of thing:

Sub Form_Load(...
Const M As Integer = 7 'Max rows to display
Dim K As Integer 'min of M and record count

With Me.RecordsetClone
.MoveLast
K = .RecordCount
If K M Then K = M
End With

Me.InsideHeight = K * Me.Section(0).Height _
+ Me.Section(1).Height + Me.Section(2).Height
End Sub

If your form does not have the Form Header/Footer sections,
drop the last line.

--
Marsh

Feb 4 '08 #3

P: n/a

"Marshall Barton" <ma*********@wowway.comschreef in bericht news:bd********************************@4ax.com...
Michiel Rapati-Kekkonen wrote:
>>Is there maybe a trick
so that when I make a continuous form, the records fit exactly?
Now, without such trick, often the last visible record shows only half
and I have to stretch the form manually, and try, and try once more,
until all the visible records do fit neatly on my form.

Here's some air code for that kind of thing:

Sub Form_Load(...
Const M As Integer = 7 'Max rows to display
Dim K As Integer 'min of M and record count

With Me.RecordsetClone
.MoveLast
K = .RecordCount
If K M Then K = M
End With

Me.InsideHeight = K * Me.Section(0).Height _
+ Me.Section(1).Height + Me.Section(2).Height
End Sub

If your form does not have the Form Header/Footer sections,
drop the last line.

--
Marsh
Same thing without code:
Window menu: choose 'size to fit form' while in form view,
Then *save* the form. The window size is saved also

Arno R
Feb 4 '08 #4

P: n/a
absolutely cool, without code
but
with code looks just a touch better: the lower line of the fields in the
record is then also visible.

but thanks a lot for the information

Michiel
"Arno R" <ar****************@planet.nlwrote in message
news:47***********************@text.nova.planet.nl ...

"Marshall Barton" <ma*********@wowway.comschreef in bericht
news:bd********************************@4ax.com...
Michiel Rapati-Kekkonen wrote:
>>Is there maybe a trick
so that when I make a continuous form, the records fit exactly?
Now, without such trick, often the last visible record shows only half
and I have to stretch the form manually, and try, and try once more,
until all the visible records do fit neatly on my form.


Here's some air code for that kind of thing:

Sub Form_Load(...
Const M As Integer = 7 'Max rows to display
Dim K As Integer 'min of M and record count

With Me.RecordsetClone
.MoveLast
K = .RecordCount
If K M Then K = M
End With

Me.InsideHeight = K * Me.Section(0).Height _
+ Me.Section(1).Height + Me.Section(2).Height
End Sub

If your form does not have the Form Header/Footer sections,
drop the last line.

--
Marsh
Same thing without code:
Window menu: choose 'size to fit form' while in form view,
Then *save* the form. The window size is saved also

Arno R
Feb 4 '08 #5

This discussion thread is closed

Replies have been disabled for this discussion.