ACCESS FEED: Re: [MS_AccessPros] Decreasing row height

Jumat, 06 Mei 2016

Re: [MS_AccessPros] Decreasing row height

Ah, I bet there's some other control - like maybe a line - that's keeping the section from shrinking properly. Your code won't work, Duane, if there's a line control on the form, but you looping through all the controls prompted me to suggest it's something else.

John Viescas, Author

Microsoft Access 2010 Inside Out

Microsoft Access 2007 Inside Out

Microsoft Access 2003 Inside Out

Building Microsoft Access Applications

SQL Queries for Mere Mortals

http://www.viescas.com/

(Paris, France)

On May 6, 2016, at 4:46 PM, Duane Hookom duanehookom@hotmail.com [MS_Access_Professionals] <MS_Access_Professionals@yahoogroups.com> wrote:

This code in a form worked as expected for me:

Option Compare Database

Option Explicit

Const intIncrement As Integer = 250

Private Sub cmdDecreaseDetailHeight_Click()

Dim ctl As Control

For Each ctl In Me.Section(0).Controls

ctl.Height = ctl.Height - intIncrement

Me.Section(0).Height = Me.Section(0).Height - intIncrement

End Sub

Private Sub cmdIncreaseDetailHeight_Click()

Dim ctl As Control

Me.Section(0).Height = Me.Section(0).Height + intIncrement

For Each ctl In Me.Section(0).Controls

ctl.Height = ctl.Height + intIncrement

End Sub

To: MS_Access_Professionals@yahoogroups.com
From: MS_Access_Professionals@yahoogroups.com
Date: Fri, 6 May 2016 16:21:03 +0200
Subject: Re: [MS_AccessPros] Decreasing row height

Steve-

Can't see why that isn't working. What happens if you do a Requery?

John Viescas, Author

Microsoft Access 2010 Inside Out

Microsoft Access 2007 Inside Out

Microsoft Access 2003 Inside Out

Building Microsoft Access Applications

SQL Queries for Mere Mortals

http://www.viescas.com/

(Paris, France)

On May 6, 2016, at 4:09 PM, Steve5 thaw5@suddenlink.net [MS_Access_Professionals] <MS_Access_Professionals@yahoogroups.com> wrote:

Click events for the two command buttons:

Private Sub cmdIncreaseDetailHeight_Click()
    Me.Section(0).Height = Me.Section(0).Height + 250
    logID.Height = logID.Height + 250
    logDateEntered.Height = logDateEntered.Height + 250
    logEntry.Height = logEntry.Height + 250
    logAttach.Height = logAttach.Height + 250
End Sub

Private Sub cmdDecreaseDetailHeight_Click()
    logID.Height = logID.Height - 250
    logDateEntered.Height = logDateEntered.Height - 250
    logEntry.Height = logEntry.Height - 250
    logAttach.Height = logAttach.Height - 250
    Me.Section(0).Height = Me.Section(0).Height - 250
End Sub

Thank you. Steve

On 5/5/2016 10:38 AM, Duane Hookom duanehookom@hotmail.com [MS_Access_Professionals] wrote:

Steve,
Please post your code.

Duane Hookom, MVP
MS Access

To: MS_Access_Professionals@yahoogroups.com
From: MS_Access_Professionals@yahoogroups.com
Date: Thu, 5 May 2016 10:27:36 -0400
Subject: Re: [MS_AccessPros] Decreasing row height

Thanks Glenn and John for the advice. I am able to increase detail section height, but the height of the rows remains constant and space is inserted between rows. Decreasing detail section height decreases the space between rows. Seems to me that changing detail section height alone is not enough. Thoughts?

Thanks, Steve

On 5/4/2016 4:55 PM, John Viescas JohnV@msn.com [MS_Access_Professionals] wrote:

Steve-

You need to be changing the Height of the Detail section of the subform, not the Row Height.

John Viescas, Author
Microsoft Access 2010 Inside Out
Microsoft Access 2007 Inside Out
Microsoft Access 2003 Inside Out
Building Microsoft Access Applications
SQL Queries for Mere Mortals
http://www.viescas.com/
(Paris, France)

On May 4, 2016, at 10:49 PM, Steve thaw5 thaw5@suddenlink.net [MS_Access_Professionals] <MS_Access_Professionals@yahoogroups.com> wrote:

I'm using a continuous form to display rows of data. A command button
programmatically increases row height by 500 twips for each click.
Another button decreases row height by the same amount.

When the form opens, the rows are butted up against each other. When I
click the button to increase row height, the height increases and the
rows are butted up against each other. Here's the problem: when I click
to button to decrease row height, the height decreases but the rows no
longer abut each other. There is a blank white space between each row.
How do I decrease row height and get the rows to abut each other, i.e.,
no space between the rows?

Thanks.

Steve

------------------------------------
Posted by: Steve thaw5 <thaw5@suddenlink.net>
------------------------------------

------------------------------------

Yahoo Groups Links