473,320 Members | 1,991 Online
Bytes | Software Development & Data Engineering Community
Post Job

Home Posts Topics Members FAQ

Join Bytes to post your question to a community of 473,320 software developers and data experts.

continuous form: records do not automatically fit nicely

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
4 3995
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
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

"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
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 thread has been closed and replies have been disabled. Please start a new discussion.

Similar topics

4
by: Dave Boyd | last post by:
Hi, I have two very similar forms each with a subform. The main form gets a few fields from the user and passes this back to a query that the subform is bound to. The requery is done when the...
3
by: Richard Hollenbeck | last post by:
I have the following query in my form's code: Private Function Get_Data(fieldNum As Integer) Dim strSQL As String Dim db As DAO.Database Dim rs As DAO.Recordset strSQL = "SELECT & "", "" & ...
4
by: Kathy | last post by:
What is the standard technique for handling the fields in the following scenario on a continuous form? Multiple Divisions. Each Division has multiple Buildings. Each Building has a Supervisor. ...
1
by: Richard | last post by:
A shipment of material is received. The shipment contains several items. Each item is assigned an internal tracking number for auditing purposes and further processed. The tracking number is...
5
by: bittman | last post by:
I have code as follows: Dim conn As New ADODB.Connection Dim rst As New ADODB.Recordset conn.ConnectionString = "Provider=MSDAORA;Password=tr7025ds;User ID=system;Data Source=WIN10" conn.Open...
13
by: eighthman11 | last post by:
using Access 2003 and sql server version 8.0 Hey everyone. Created a text box where the user types in an Inventory number and it takes them to that inventory number on the contimuous form. The...
7
by: Dave | last post by:
Hello All, These one may be a bit tricky, and what I'd like to do may not even be possible. I would love to hear any ideas you guys have for solving this. Here is the situation: I have a form...
1
by: truckfin | last post by:
Hi, i know there has been a lot of posts on refreshing/requerying comboboxes. But I cant seem to get it to do what i want. i've got a bound subform set to continuous forms on a bound form that...
1
by: MikiEns | last post by:
Hi all, Please excuse me if this is incorrect I am new to MS access and this Forum and appreciate any advice on posting. I would Like the Tab key on the key board to take the cursor down...
0
by: DolphinDB | last post by:
Tired of spending countless mintues downsampling your data? Look no further! In this article, you’ll learn how to efficiently downsample 6.48 billion high-frequency records to 61 million...
0
by: ryjfgjl | last post by:
ExcelToDatabase: batch import excel into database automatically...
0
isladogs
by: isladogs | last post by:
The next Access Europe meeting will be on Wednesday 6 Mar 2024 starting at 18:00 UK time (6PM UTC) and finishing at about 19:15 (7.15PM). In this month's session, we are pleased to welcome back...
1
isladogs
by: isladogs | last post by:
The next Access Europe meeting will be on Wednesday 6 Mar 2024 starting at 18:00 UK time (6PM UTC) and finishing at about 19:15 (7.15PM). In this month's session, we are pleased to welcome back...
0
by: Vimpel783 | last post by:
Hello! Guys, I found this code on the Internet, but I need to modify it a little. It works well, the problem is this: Data is sent from only one cell, in this case B5, but it is necessary that data...
0
by: ArrayDB | last post by:
The error message I've encountered is; ERROR:root:Error generating model response: exception: access violation writing 0x0000000000005140, which seems to be indicative of an access violation...
1
by: PapaRatzi | last post by:
Hello, I am teaching myself MS Access forms design and Visual Basic. I've created a table to capture a list of Top 30 singles and forms to capture new entries. The final step is a form (unbound)...
0
by: af34tf | last post by:
Hi Guys, I have a domain whose name is BytesLimited.com, and I want to sell it. Does anyone know about platforms that allow me to list my domain in auction for free. Thank you
0
by: Faith0G | last post by:
I am starting a new it consulting business and it's been a while since I setup a new website. Is wordpress still the best web based software for hosting a 5 page website? The webpages will be...

By using Bytes.com and it's services, you agree to our Privacy Policy and Terms of Use.

To disable or enable advertisements and analytics tracking please visit the manage ads & tracking page.