ACC: Simulating a Control Array in Visual and Access Basic

MORE INFORMATION

1. Open the sample database Northwind.mdb (or NWIND.MDB in version 2.0 or earlier).
2. Create the following form not based on any table or query with four text boxes and a command button:

         Form: Test1
         --------------------------
         Caption: TestForm
         ControlSource:
   
         Text Box:
            Name: MyField0
         Text Box:
            Name: MyField1
         Text Box:
            Name: MyField2
         Text Box:
            Name: MyField3
         Command Button:
            Name: FillFields
            Caption: Fill Fields
            OnClick: [Event Procedure]

3. Create the following event procedure for the OnClick property of the FillFields command button:

         Sub FillFields_Click()
         On Local Error Goto Err_FillFields_Click
         Dim i As Integer, TextControl As String
         For i = 0 to 3
           TextControl = "MyField" & Format$(i) ' Create name.
           Me(TextControl) = TextControl
         Next I
         End_FillFields_Click:
           Exit Sub
         Err_FillFields_Click:
           MsgBox Error$
           Resume End_FillFields_Click
   						

4. Save the Test1 form and open it in Form view.
5. Click the FillFields button. Note that each text box is filled in with its respective name from the Click event code.