I finally tested my idea, and it works nicely. I used TextBox.TabIndex as my indicator, and it pulled everything up just right. I used TextBox.Tag first, and it worked too, but I changed my mind and went with TabIndex. Both will work if applied properly.
'///Load up TextBoxes with Attribute Info
Dim ctlObj As Control, tbxObj As Control
Dim indx As Long
For Each ctlObj In Me.Controls
If TypeOf ctlObj Is TextBox Then
Set tbxObj = ctlObj
indx = tbxObj.TabIndex
tbxObj.Text = atts(indx).TextString
End If
Next
'///Dump Info from TextBoxes Back to Attributes
Dim ctlObjOut As Control, tbxObjOut As Control
Dim indxOut As Long
For Each ctlObjOut In Me.Controls
If TypeOf ctlObjOut Is TextBox Then
Set tbxObjOut = ctlObjOut
indxOut = tbxObjOut.TabIndex
attsOUT(indxOut).TextString = NullCheck(tbxObjOut.Text)
End If
Next
I had a problem when a textbox was empty. It would choke on a Null, so I made a function to replace the Null with a Space.
Public Function NullCheck(str As String) As String
'///Check If TextBox has Null Entry (Nothing)
'///If Null, Add Space
Dim ChkStr As String
If str = "" Then
ChkStr = " "
Else
ChkStr = str
End If
NullCheck = ChkStr
End Function
Thanks for all your help.
I'm trying to get on and answer some questions if I can.
