Moving TextBoxes Problem

[Phi1Smith]

Hi
I'm trying to use this code below to move some controls within a tab control, when I uncomment the objControl.Left or objControl.Move the Controls no longer stay on their on tab.


With rsControls
.Open strSQL, ConnMain, adOpenDynamic, adLockReadOnly
Do While Not .EOF
For Each objControl In objForm.Controls
sName = objControl.Name
If sName = !FrmContName Then
If !FrmContVisible Then
On Error Resume Next
'objControl.Move !FrmContLeft
'objControl.Left = !FrmContLeft
objControl.Top = !FrmContTop
objControl.Width = !FrmContWidth
objControl.Height = !FrmContHeight
objControl.Caption = !FrmContCaption
objControl.FontSize = !FrmContFontSize

Else
objControl.Visible = False
End If
End If
Next
.MoveNext
Loop
.Close
End With

Many Thanks in advance

Phil

 

[Phi1Smith]

In case anyones watching this post here's an answer. Check out this on MSDN

http://support.microsoft.com/defaul...port/kb/articles/Q187/5/62.asp&NoWebContent=1

I had more success though by doing the following:-

objControl.Left = IIf(objControl.Left < -100, nLeft - 75000, nLeft)

 

[CCLINT]

I would just place all of the controls belonging to a certain Tab onto a Frame control.

Then, if needed, I would check the control's container as to which frame it belongs to:

If UCase$(objControl.Container.Name) = &quot;MYFRAME1&quot; Then

or, if you use a fram array:

If UCase$(objControl.Container.Name) = &quot;MYFRAME&quot; Then
If objControl.Container.Index = 1 Then