Sabtu, 07 Mei 2016

Re: [MS_AccessPros] Decreasing row height

 

Thanks Duane. I'm pretty much a novice at Access and appreciate insightful advice like that.

Steve

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

Steve,
Also note the use of a constant for the increase/decrease value. Using 250 ten times in your code is the VBA equivalent of un-normalized data. I typically try to move all of my constant type numbers to the top of my code and assign them to a variable. 
 
Duane Hookom, MVP
MS Access
 

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



Steve-

I just tried Duane's code using a modified subform for the Order Details form in the Northwind 2007 sample database.  Works like a champ.

Can you post your database to Files / Assistance Needed?

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 
(Paris, France)



On May 6, 2016, at 8:06 PM, Steve thaw5 thaw5@suddenlink.net [MS_Access_Professionals] <MS_Access_Professionals@yahoogroups.com> wrote:



John -- I do not see any other controls either in Form or Design view. With the form in design mode and using the drop down list of controls at the upper left of the property sheet I do not see any unexpected controls.

Should have mentioned in the initial post that I am using Access 2007.

Thanks for the advice.

Steve

On 5/6/2016 10:51 AM, John Viescas JohnV@msn.com [MS_Access_Professionals] wrote:

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 
(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
    Next
    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
    Next
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 
(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





















__._,_.___

Posted by: Steve thaw5 <thaw5@suddenlink.net>
Reply via web post Reply to sender Reply to group Start a New Topic Messages in this topic (17)

.

__,_._,___

Tidak ada komentar:

Poskan Komentar