Thanks Micron, your suggestion worked great and save me a lot of error prone manual "grunt" work. Now, I just tweak the code as necessary to accommodate the other forms with the same issue.
Code:
Option Compare Database
Option Explicit
Dim I As Integer
Dim J As Integer
Dim intMate As Integer
Sub ChangeName()
'*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*
' 01/05/2022 - Micron's suggested solution to updating control names
' for the apartment text boxes.
'*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*
DoCmd.OpenForm "frmPrkgSouth", acDesign, , , , acHidden
For I = 113 To 131
intMate = I + 131 '(244-262)
Forms!frmPrkgSouth.Controls("Text" & intMate).Name = "tb" & I & "A"
Next
For I = 150 To 166
intMate = I + 125 '(275-291)
Forms!frmPrkgSouth.Controls("Text" & intMate).Name = "tb" & I & "A"
Next
J = 268
For I = 107 To 112
intMate = J '(268-263)
J = J - 1
Forms!frmPrkgSouth.Controls("Text" & intMate).Name = "tb" & I & "A"
Next
J = 274
For I = 101 To 106
intMate = J '(274-269)
J = J - 1
Forms!frmPrkgSouth.Controls("Text" & intMate).Name = "tb" & I & "A"
Next
DoCmd.Save acForm, "frmPrkgSouth"
DoCmd.Close acForm, "frmPrkgSouth"
End Sub