Hello,
I have a form with a width of 19" that has several textboxes and command buttons that start Left = 1". the total width of all of these controls next to each other does not extend past a width of 9" and are all tagged "Move"
I have a command button that when hit needs to move all the controls tagged "Move" over 5 inches (so this would not exceed the 14 " mark on the 19" form.
The controls actually move to the correct spots but i get a runtime 2100 error the control or subform is to large. Any help would be welcomed.
Dim ctl as Control
Dim twip As Long
twip = 1440
For Each ctl In Form.Controls
If ctl.Tag = "Move" Then
ctl.Left = ctl.Left + (5 * twip) 'Error
Else
End If
Next
I have a form with a width of 19" that has several textboxes and command buttons that start Left = 1". the total width of all of these controls next to each other does not extend past a width of 9" and are all tagged "Move"
I have a command button that when hit needs to move all the controls tagged "Move" over 5 inches (so this would not exceed the 14 " mark on the 19" form.
The controls actually move to the correct spots but i get a runtime 2100 error the control or subform is to large. Any help would be welcomed.
Dim ctl as Control
Dim twip As Long
twip = 1440
For Each ctl In Form.Controls
If ctl.Tag = "Move" Then
ctl.Left = ctl.Left + (5 * twip) 'Error
Else
End If
Next