ACC: How to Use Code to Cycle Through the Controls on a Form

MORE INFORMATION

1. Open the sample database Northwind.mdb (or NWIND.MDB in version 2.0).
2. Open the Customers form in Design view.
3. Add a command button to the form and set the control's properties as follows:

   Name: MyButton
   Caption: Lock All Textboxes

4. Set the OnClick property of the command button to the following event procedure:

         Sub MyButton_Click ()
            Dim i As Integer
            Static status As Integer ' Use variable as True/False flag.
            ' Toggle the button's Caption property.
            If status = False Then
              MyButton.caption = "Unlock All Textboxes"
            Else
              MyButton.caption = "Lock All Textboxes"
            End If
   
            ' Cycle through the form's controls,
            ' testing for text and combo boxes,
            ' and set each control's Locked/Enabled properties.
            For i = 0 To Me.count - 1
            If TypeOf Me(i) Is textbox Then
               Me(i).locked = status: Me(i).enabled = status
            ElseIf TypeOf Me(i) Is combobox Then
               Me(i).locked = status: Me(i).enabled = status
            End If
            Next
            ' Toggle the flag.
            status = Not status
         End Sub
   						

5. View the Customers form in Form view, and click the MyButton button once. Note that all the form's controls are disabled. Click the MyButton button again. Note that all the form's controls are re-enabled.