Continuous Form with adjustable columns

[mlrucci]

Good morning,


I have a continuous form I would like the end user to have the option to adjust the column width based on need. I did some looking around the internet and found the following from Lauren Quantrell:


On a continuous form, in the Form Header section, between two heading
labels, create a box with the height equalling the header height and
the width = 0.1576". Name this box BoxColumn1.
Create two text boxes named LeftColumName and RightColumName
Rename the labels for these text boxes to LeftColumLabel and
RightColumLabel

Add this code to the OnMouseMove event of BoxColumn1:

'START CODE
************************************************** ***************************************
Private Sub BoxColumn1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim intLeftButton   As Integer
Dim ColumOneAdjust  As Integer
Dim ColumTwoAdjust  As Integer


intLeftButton = Button And acLeftButton
ColumOneAdjust = 60
ColumTwoAdjust = 800


' as you move over the box, the pointer will change to the left-right
Size arrows:
Screen.MousePointer = 9


' only if you click the left mouse button will you're over BoxColumn1 will it size, otherwise just pass over the box:
    If intLeftButton 0 Then 'Here is where I am getting the error
         'now calculate all the sizes:
        If (Me.BoxColumn1.Left + X) - ColumOneAdjust > Me.LeftColumName.Left + ColumTwoAdjust And Me.BoxColumn1.Left + X < Me.ContactsType.Left - 1200 Then
            Me.BoxColumn1.Left = Me.BoxColumn1.Left + X
            Me.BoxColumn1Row.Left = Me.BoxColumn1.Left
            Me.LeftColumName.Width = (Me.BoxColumn1.Left - Me.LeftColumName.Left) - 100
            Me.LeftColumLabel.Width = Me.LeftColumName.Width
            Me.RightColumName.Width = Me.ContactsType.Left - (Me.RightColumName.Left + 60)
            Me.RightColumName.Left = Me.BoxColumn1.Left + 60
            Me.RightColumLabel.Left = Me.RightColumName.Left
            Me.RightColumLabel.Width = Me.RightColumName.Width
        End If
    End If
End Sub

I am getting an error on the line
If intLeftButton 0 Then. I understand why and it is an integer and there is no criteria. Ideas?

[Welshgasman]

Add = for intbutton = 0 as it is not boolean.

[mlrucci]

I tried If intLeftButton =0 Without success
also tried >, and <, and <>.

All make the error go away but the code isn't working.

[isladogs]

@CJ_London also has code to do this.
Hopefully he will get this alert and respond

[Welshgasman]

I was just trying to correct the syntax. I have the same idea as you as to how it works, that is Nil

[mlrucci]

After making the correction of =0 and adjusting my form, it is now workable. Have to make a few changes and still working on it, but =0 did correct the error I was getting. Thanks for the help!

[CJ_London]

I do have similar code but works off the header labels rather than separate controls between with labels and handles all columns, not just two

As already pointed out the code was missing the =

Not sure what Me.ContactsType is doing in there, perhaps a typo?

[mlrucci]

I am really stumped. Not proficient in VBA and trying to understand this code. I am not sure If I have the boxes in the wrong location or am not reading it correctly. Can someone review and give me some insight. I am attaching an example.

ContinuousFormColumnAdjust.zipContinuousFormColumnAdjust.zip

[CJ_London]

not sure what you are trying to achieve since you have not set it up correctly as far as I can see

your box column has a label to the left called RightColumLabel (which I would expect to be on the right) and the label to the right is called lblVersionNumber, whilst your label called LeftColumLabel is on the far left

Then as mentioned before, you have the mysterious Me.ContactsType control which I do not see in this form

Your code errors on this line

If (Me.BoxColumn1.Left + X) - ColumOneAdjust > Me.LeftColumName.Left + ColumTwoAdjust And Me.BoxColumn1.Left + X < Me.PageID.Left - 1200 Then
because Me.PageID does not exist

and if typed correctly would generate a negative number which I'm pretty sure is not what is expected