[AccessD] Wacky height of record selector rows on a continuous form subform

ROTFL.  I like it!  I'm a code freak from way back.

John W. Colby
Colby Consulting

Reality is what refuses to go away
when you do not believe in it

On 3/29/2012 6:51 PM, William Benson wrote:
> I think the true dumbitude showed when I actually wrote code to shrink the
> controls...
>
> ;)
>
> No one"s gonna beat that without really trying.
> On Mar 29, 2012 4:41 AM, "jwcolby"<jwcolby at colbyconsulting.com>  wrote:
>
>>> Was there ever someone as dumb as me?
>>
>> LOL.
>>
>> This is real obvious when it is a large amount, not obvious at all when it
>> is a small amount. Nothing dumb about it.
>>
>> John W. Colby
>> Colby Consulting
>>
>> Reality is what refuses to go away
>> when you do not believe in it
>>
>> On 3/27/2012 10:27 PM, Benson, William (GE Global Research, consultant)
>> wrote:
>>
>>> OMG the answer was so simple... I had the detail section too tall, not
>>> snugged up against the bottom of my controls.
>>>
>>> Was there ever someone as dumb as me?
>>>
>>>
>>> -----Original Message-----
>>> From: Benson, William (GE Global Research, consultant)
>>> Sent: Tuesday, March 27, 2012 10:25 PM
>>> To: Access Developers discussion and problem solving
>>> Subject: Wacky height of record selector rows on a continuous form subform
>>>
>>> Please Please Please someone respond quickly, I am ready to take the
>>> bridge, and I am not talking about a card game.
>>>
>>> I spend hours after deciding to switch to a continuous form, to have that
>>> be the default view of a subform. I painstakingly set the controls exactly
>>> where I wanted them in design view on the subform, before putting it as a
>>> subform on the main form.
>>>
>>> When I run the main form, the sizes of the rows are all too large, and
>>> nothing like what they were when the subform is run by itself.
>>>
>>> This code only shrinks the controls, it doesn't change the height of the
>>> recordselectors.
>>>
>>> Private Sub Form_Load()
>>> Dim ctrl As Control
>>> Dim T As Control
>>> Set ctrl = Controls("My Sites and My Products For Warranty") Dim f As
>>> Form Set f = ctrl.Form For Each T In f.Section(0).Controls
>>>    T.Height = 400
>>> Next
>>>
>>> End Sub
>>>
>>>
>> --
>> AccessD mailing list
>> AccessD at databaseadvisors.com
>> http://databaseadvisors.com/**mailman/listinfo/accessd<http://databaseadvisors.com/mailman/listinfo/accessd>
>> Website: http://www.databaseadvisors.**com<http://www.databaseadvisors.com>
>>