Subform Column Widths Keep Changing

Question

I set the column widths in my subform as I want them, but they keep changing.  For instance, the columns should be .6", .85" and 3.5" (and that's what is also indicated in the properties).  When I open the form the next time, the columns are something like 1.5", 1.3" and 2".  How do I get them to stay as I've adjusted them?

Answer 1

1. Open your form in design view.
2. Open the Properties sheet if it isn't already open.
3. Under the Events tab in the Properties sheet, find the On Load event. Select it.
4. type [Event  That should autofill to [EventProcedure]
5. You should see a little builder button to the right of the line. Click it and it will open the code window to the Form_Load Sub
6. write the line I wrote. When you type Me. a list of items will open. Select your control that you want to size and press Tab.
7. type a period after the control name and another list will pop up. Select ColumnWidth and Press Tab.
8. type an equal sign and the width you want just like I did.

And you thought writing code was tough? Nah!

Answer 2

One more question:

If I want to control the width of three separate columns, can I insert my cursor after the "Me." line, type another "Me." and choose another control?  (So that there will be 3 "Me." lines in total in the body of the sub?

Answer 3

Thank you!

P.S.  Your instructions are exactly the kind of work I do. :)

Answer 4

Thank you for your quick response.

Where do I go to create this load event?  (I've never done a load event before.)

Answer 5

Use the Form_Load event to set the widths. You have to set them in twips which are 1440 per inch.

Private Sub Form_Load()

    Me.cboResponse.ColumnWidth = 0.6 * 1440

End Sub