Re: [MSAccessProfessionals] Can Grow field - Keeping all fields the same height

I found your answer on another page I found.

Now i'm playing witht the border with and I cant get it to print darker

'Duane Hookom 3.18.2008

    

    Dim intMaxHeight As Integer

    Dim ctl As Control

    'Find highest control in Detail section that has a tag property of "Border"

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

            If ctl.Tag = "Border" Then

                If ctl.Height > intMaxHeight Then

                    intMaxHeight = ctl.Height

                End If

            End If

        Next

        

        'Draw a box around each control in Detail that has a tag property of "Border"

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

            If ctl.Tag = "Border" Then

                Me.Line (ctl.Left, ctl.Top)-Step(ctl.Width, intMaxHeight), vbBlack, B

                'Me.DrawWidth = 6  'play with this number to make line thicker

        End If

        Next

--


Thanks
Frank D'Amato

_._,_._,_

---

Groups.io Links:

You receive all messages sent to this group.

View/Reply Online (#116103) | Reply To Group | Reply To Sender | Mute This Topic | New Topic
Your Subscription | Contact Group Owner | Unsubscribe [sugeng.panjalu.access@blogger.com]

_._,_._,_