Want to protect your cyber security and still get fast solutions? Ask a secure question today.Go Premium

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 446
  • Last Modified:

Programmatically resize subform datagrid display

I need a way to programmatically adjust the size of the columns in a subform so the scrollbar goes away.

Something akin to double-clicking the column seperators to force them to the size of the header.

Here is a picture depicting what I want to accomplish:

http://www.robotzgame.com/junk/subform_resize.gif

Thanks,

Tom
0
Tom Knowlton
Asked:
Tom Knowlton
1 Solution
 
Jokra_the_BarbarianCommented:
Try this:

Dim ctl  As Control
   
        For Each ctl In Me.subform1.Form.Controls
               If ctl.ControlType = acTextBox And ctl.Properties("visible") = True Then ' Only set the width for visible textboxes
                    ctl.SetFocus
                    SendKeys "%B", False
                    DoCmd.RunCommand (acCmdColumnWidth)
                End If
        Next ctl
0
 
Tom KnowltonWeb developerAuthor Commented:
Or how about this?

Private Sub ResizeCommentsSubForm()
    Forms![frmEntriesForm]![frmCommentsSUB]![TimeStamp].ColumnWidth = -1
    Forms![frmEntriesForm]![frmCommentsSUB]![CommentType].ColumnWidth = -1
    Forms![frmEntriesForm]![frmCommentsSUB]![Comment].ColumnWidth = 4000   'twips
End Sub

(I found my old code for handling this)
0

Featured Post

Free Tool: Port Scanner

Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Tackle projects and never again get stuck behind a technical roadblock.
Join Now