Good Easter to everybody !
I've a button that can lock and unlock controls on a form for
data entry. The code has screen.activeform.controls as a way
to do this procedure. I would like to have a subform unlocking
procedure when clicking a button on the parent form. The question is:
would the subform be considered a control on main the form ? how would i have the controls on the subform unlocked when clicking a button on the main form?
regards Penta !

The answer to the first question is Yes.

The answer to the second question is:

1) Check if the control type is acSubForm

2) If the control is a subform. You will loop through each control similar to the way you are with the main form. The trick will be how you address the controls in the subform. I [u]think</u> the syntax is:

For Each mainformctl in me.Controls
   For Each subformctl in mainformctl.FORM.Controls

The key being the .FORM. part to point to the controls inside of the subform.

Randall J Weers
Membership Vice President
Pacific NorthWest Access Developers Group
http://www.pnwadg.org

My problem is:
This code works:
1)For Each ctl In Screen.ActiveForm.Controls
        If TypeOf ctl Is TextBox Or TypeOf ctl Is ComboBox Then
             With ctl
                .Locked = False
                .Enabled = True
            End With
        End If
    Next
This code doesnt works:
2)For Each ctl In Screen.ActiveForm.Controls
     If TypeOf ctl Is Form Then
        If TypeOf ctl Is TextBox Or TypeOf ctl Is ComboBox Then
             With ctl
                .Locked = False
                .Enabled = True
             End With
        End If
      End If
    Next

Any suggestion to make code (2) works ?
Thanks very much for ur care.
rgds P.

In your #2 option the problem is (and this is probably my fault) that you don't loop through the sub form

Dim Mctl as Control ' Main form controls
Dim Sctl as Control ' SubForm controls

For Each Mctl In Screen.ActiveForm.Controls
  If TypeOf Mctl Is Form Then
    For Each Sctl in Mctl.Form.Controls
      ' If there is a subform
      ' within your subform you should include
      ' another "For Each" on the sub-subform
      If TypeOf Sctl Is TextBox Or TypeOf Sctl Is ComboBox Then
        With Sctl
          .Locked = False
          .Enabled = True
        End With
      End If
    Next Sclt
  ElseIf TypeOf Mctl is TextBox or Type of Mctl is ComboBox then
    With Mctl
        ...
    End With
  End If
Next Mctl

It's probably my fault because I didn't show the "If ctl is Form then" between the two "For Each" statements in my sample.

Randall J Weers
Membership Vice President
Pacific NorthWest Access Developers Group
http://www.pnwadg.org

BTW, a simpler way to do this would be to make this a callable routine:

Public Sub SwitchControls(pFrm as Form, pblnEnable as boolean)

Dim ctl as Control

For each ctl in pFrm.Controls
    If TypeOf ctl is Form then
        Call SwitchControls(ctl, pblnEnable)
    ElseIf TypeOf ctl is TextBox or TypeOf ctl is ComboBox
        With ctl
            .Locked = not pblnEnable
            .Visible = pblnEnable
        End With
    Else
        Msgbox "I forgot to handle this type of control!"
    End If
Next ctl

End Sub

To enable controls, in your form make this call from code in your form:

Call SwitchControls(Me,True)

To disable controls:

Call SwitchControls(Me,False)

NOTE: Doing this will automatically handled nested SubForms to any depth allowed by Access.

QED

Randall J Weers
Membership Vice President
Pacific NorthWest Access Developers Group
http://www.pnwadg.org

CORRECTION!!!!

The call in the routine should be:

Call SwitchControls(ctl.Form,pblnEnable)

Not:

Call SwitchControls(ctl,pblnEnable)

Sorry.

Randall J Weers
Membership Vice President
Pacific NorthWest Access Developers Group
http://www.pnwadg.org

Thanks very much !
I'll try.
rgds P.

Sorry. All of that won't work. But try this...

In your subform write a "Public Sub EnableControls" routine that does your "For Each" to enable the controls. But instead of using Screen.ActiveForm.Controls use Me.Controls.

In your main form, within your For Each include

   If ctl.Name = "your_subform_control_name" then
      Call Form_your_subform_name.EnableControls

I wish I had been granted the right to be correct all of the time. But I guess I'm destined to be humbled by sometimes being wrong.

Randall J Weers
Membership Vice President
Pacific NorthWest Access Developers Group
http://www.pnwadg.org

Thanks very much again Randall !
The name of my subform is TabelaMeta_subform and on my If... procedure i could
not have the True so to enter the For Each sctl... in the subform. The code
goes to the End If because it doesn't recognizes the name of the subform ! I
must be doing something wrong !
rgds P.

Now i have it in the procedure For Each... on the subform. It was my mistake
having the wrong subform name. Unfortunately i'll have to continue tomorrow.
rgds P.