enable one subform but not the other

[AccessIdiot]

I was successful with help from another thread (this one ) in enabling and disabling a form/subform with a button. Essentially you press a button on the form and the form controls are disabled but the subform is enabled. Then there is a button on the subform that re-enables the form controls and disables the subform.

This works wonderfully but now I've got two subforms. I need the new subform to disable when the form controls are disabled and enable when the form controls are enabled. But I'm not sure how to refer to one subform.

Here is the code on the form that disables form controls and enables the subform:
Private Sub btnNewReplicate_Click()
Dim ctl As Control

For Each ctl In Me.Controls
If ctl.ControlType = acSubform Or ctl.Name = "btnNewReplicate" Then
ctl.Enabled = True
Else
If ctl.ControlType <> acLabel Then
ctl.Enabled = False
End If
End If
Next
End Sub[/code]

And here is the code on the subform that enables the form controls and disables the subform:

Private Sub btnNewSurvey_Click()                                                    'New Survey button - enable form, disable subform
Dim ctl As Control
For Each ctl In Me.Parent.Controls
    If ctl.ControlType <> acLabel And Not ctl.ControlType = acSubform Then
        ctl.Enabled = True
        ctl.SetFocus
   ElseIf ctl.ControlType = acSubform Then
        ctl.Enabled = False
    End If
Next
 
DoCmd.GoToRecord acDataForm, "frm_Survey", acNewRec
DoCmd.GoToControl "txt_SurveyNum"
 
 
End Sub

It's this line that is messing me up:

If ctl.ControlType = acSubform

because I'm not sure how to refer to one subform and not the other. I'm guessing I need to say something like "if control type = subform AND subform name = the one I want then enabled = true or false". But I have no idea how to target a specific subform in this case. Can I use ctl.Name to reference a subform?

[Rabbit]

I was successful with help from another thread (this one ) in enabling and disabling a form/subform with a button. Essentially you press a button on the form and the form controls are disabled but the subform is enabled. Then there is a button on the subform that re-enables the form controls and disables the subform.

This works wonderfully but now I've got two subforms. I need the new subform to disable when the form controls are disabled and enable when the form controls are enabled. But I'm not sure how to refer to one subform.

Here is the code on the form that disables form controls and enables the subform:
Private Sub btnNewReplicate_Click()
Dim ctl As Control

For Each ctl In Me.Controls
If ctl.ControlType = acSubform Or ctl.Name = "btnNewReplicate" Then
ctl.Enabled = True
Else
If ctl.ControlType <> acLabel Then
ctl.Enabled = False
End If
End If
Next
End Sub[/code]

And here is the code on the subform that enables the form controls and disables the subform:

Private Sub btnNewSurvey_Click()                                                    'New Survey button - enable form, disable subform
Dim ctl As Control
For Each ctl In Me.Parent.Controls
    If ctl.ControlType <> acLabel And Not ctl.ControlType = acSubform Then
        ctl.Enabled = True
        ctl.SetFocus
   ElseIf ctl.ControlType = acSubform Then
        ctl.Enabled = False
    End If
Next
 
DoCmd.GoToRecord acDataForm, "frm_Survey", acNewRec
DoCmd.GoToControl "txt_SurveyNum"
 
 
End Sub

It's this line that is messing me up:

If ctl.ControlType = acSubform

because I'm not sure how to refer to one subform and not the other. I'm guessing I need to say something like "if control type = subform AND subform name = the one I want then enabled = true or false". But I have no idea how to target a specific subform in this case. Can I use ctl.Name to reference a subform?

Absolutely. You can use If ctl.Name = "Text" instead of the Type.

[AccessIdiot]

Of course! Now why didn't I think of that?!

Thanks! :D

[Rabbit]

Not a problem.