Positioning Controls with Code

[ted.martin]

Here is my code to position textboxes and labels on a form.

This was part of another post: - maybe read the other one too.

http://www.access-programmers.co.uk/forums/showthread.php?t=240378

Private Sub Form_Load()

'MsgBox AppointmentDay.Left
'MsgBox "0900 " & Me.Ctl0900_Label.Height

'MsgBox "0900 " & Me.Ctl0900_Label.Top & vbNewLine & Me.Ctl0900_Label.Left & vbNewLine & Me.Ctl0900_Label.Width
'MsgBox "0900 " & Me.Ctl0900.Top & vbNewLine & Me.Ctl0900.Left & vbNewLine & Me.Ctl0900.Width
'
'MsgBox "0905 " & Me.Ctl0905_Label.Top & vbNewLine & Me.Ctl0905_Label.Left & vbNewLine & Me.Ctl0905_Label.Width
'MsgBox "0905 " & Me.Ctl0905.Top & vbNewLine & Me.Ctl0905.Left & vbNewLine & Me.Ctl0905.Width
'
'MsgBox "1300 " & Me.Ctl1300_Label.Top & vbNewLine & Me.Ctl1300_Label.Left & vbNewLine & Me.Ctl1300_Label.Width
'MsgBox "1300 " & Me.Ctl1300.Top & vbNewLine & Me.Ctl1300.Left & vbNewLine & Me.Ctl1300.Width
'
'MsgBox "1305 " & Me.Ctl1305_Label.Top & vbNewLine & Me.Ctl1305_Label.Left & vbNewLine & Me.Ctl1305_Label.Width
'MsgBox "1305 " & Me.Ctl1305.Top & vbNewLine & Me.Ctl1305.Left & vbNewLine & Me.Ctl1305.Width

On Error GoTo Err_Field


Dim I As Integer
Dim F As String
Dim iL As Integer
Dim iRow As Integer

iL = 6082
lblInstructions.Left = iL
lblInstructions.Width = 12 * 495

iRow = 1
For I = 900 To 1255 Step 5

    If I < 1000 Then
       F = "0" & I
    Else
        F = I
    End If


Me.Controls(F & "_Label").Top = 114
Me.Controls(F).Top = 399
Me.Controls(F).Locked = True

Me.Controls(F & "_Label").Left = iL
Me.Controls(F).Left = iL

Me.Controls(F & "_Label").Width = 483
Me.Controls(F).Width = 483

Me.Controls(F & "_Label").Height = 285
Me.Controls(F).Height = 285


iL = iL + 495
myNext1:

Next I

iRow = 2
iL = 142

For I = 1300 To 1755 Step 5

F = I

Me.Controls(F & "_Label").Top = 850
Me.Controls(F).Top = 1135
Me.Controls(F).Locked = True

Me.Controls(F & "_Label").Left = iL
Me.Controls(F).Left = iL

Me.Controls(F & "_Label").Width = 483
Me.Controls(F).Width = 483

Me.Controls(F & "_Label").Height = 285
Me.Controls(F).Height = 285

iL = iL + 495
myNext2:

Next I

DoCmd.Maximize
cmdClose.SetFocus

Exit Sub

Err_Field:

If Err.number = 2465 And Right(F, 2) > 55 And iRow = 1 Then
    Err.Clear
    Resume myNext1
ElseIf Err.number = 2465 And Right(F, 2) > 55 And iRow = 2 Then
    Err.Clear
    Resume myNext2
Else
    MsgBox Err.Description, vbCritical, Err.number

End If
End Sub

 

[Mr. B]

I may be missing something here, but I don't see a question.