[AccessD] Continuous form won't hold size

Complex
Sorry, too complex for a simple problem.  Apologies for brevity.
Max


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Heenan, Lambert
Sent: 20 January 2009 21:26
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Continuous form won't hold size

How kind of you to say so. Care to amplify on just what it is that offends
you?

Lambert

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Max Wanadoo
Sent: Tuesday, January 20, 2009 4:11 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Continuous form won't hold size

Lambert this is rubbish

Max


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Heenan, Lambert
Sent: 20 January 2009 20:42
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Continuous form won't hold size


I use this routine to define how many rows to display in a continuous form.
It gets called on the form's Open event. I usually use it for sub-forms, but
it works for forms on their own: just be sure not to maximize the form or it
will just show however many rows fill the screen.

Lambert - code follows

Sub SetFormRows(f As Form, nRows As Integer) Dim nFormFinalHeight As Long
Dim nSectionHeight As Long
   On Error Resume Next
   nSectionHeight = f.Section(acHeader).Height
   If Err.Number <> 0 Then
      nSectionHeight = 0
      Err.Clear
   End If
   nFormFinalHeight = nFormFinalHeight + nSectionHeight

   nSectionHeight = (f.Section(acDetail).Height * nRows)
   If Err.Number <> 0 Then
      nSectionHeight = 0
      Err.Clear
   End If
   nFormFinalHeight = nFormFinalHeight + nSectionHeight

   nSectionHeight = f.Section(acFooter).Height
   If Err.Number <> 0 Then
      nSectionHeight = 0
      Err.Clear
   End If
   nFormFinalHeight = nFormFinalHeight + nSectionHeight

    f.InsideHeight = nFormFinalHeight
    On Error GoTo 0 ' turn normal error trapping back on End Sub

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Susan Harkins
Sent: Tuesday, January 20, 2009 3:31 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Continuous form won't hold size

I rebuilt the form -- same thing. No clue. :(

Susan H.


> Hmmmm, I have never experienced that.
> Could you just check, perhaps, if you have the model option clicked,
> or something like that.  Susan, could you just click on Properties
> -All and then jsut check if you haven't something ticked there that
> wouldn't normally be there.  Stupid question, but you do have CT set
> to on in the properties.??  Sory, but just had two teeth out -
> suffering a bit 'cos they told me no alcholhtl.  ~Stupd people.
>
> Max
>
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Susan
> Harkins
> Sent: 20 January 2009 20:13
> To: Access Developers discussion and problem solving
> Subject: Re: [AccessD] Continuous form won't hold size
>
>
>
>> No, no, you are right.
>> When the form is open, drag the bottom line to where you want it to be.
>
> ========You're talking about the form window in Form View -- right?
>
>> Then click on size to window (sorry, my description was from memory,
>> I am not using Access  at the moment).Then click on Size to window.
>> It will resize to fit whatever you have as a line width.  Then click
>> on Save Form.
>
>
> ========Using the above (form window in Form View), I did this, but it
> didn't work. I save it, but when I reopen the form, it's back to
> displaying just one line. I may just recreate the form -- not very
> difficult. Perhaps there's something wicked going on that I'll never
> find. :(
>
> Susan H.
>


--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com

--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com

-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com