Send a frame control to a procedure as a parameter
 

I have code which will enable one of 10 frames on a form depending on a
control parameter which is predetermined. Here is my code which enables a
fram control and all controls within it:

Private Sub ActivateFrameAndControls(ByRef aFrame As Object)
aFrame.Enabled = True
' Cycle thru all controls in the respective frame.
For Each InnerCtrl In aFrame.Controls
' Enable each one.
InnerCtrl.Enabled = True
Next InnerCtrl
End Sub

My problem is that my calling code will pass th frame to the procedure, but
the line "aFrame.Enabled = True" fails with the error "Runtime error 438.
Object does not support this property or method".

Here's my calling code:

If bShowApp Then ActivateFrameAndControls (Me.fraApp)

Send a frame control to a procedure as a parameter
 

Found the problem....it was in my calling code. It should have been:

If bShowApp Then Call ActivateFrameAndControls (Me.fraApp)

--

|
+-- JDMils
|

"JDMils" wrote in message
...
I have code which will enable one of 10 frames on a form depending on a
control parameter which is predetermined. Here is my code which enables a
fram control and all controls within it:

Private Sub ActivateFrameAndControls(ByRef aFrame As Object)
aFrame.Enabled = True
' Cycle thru all controls in the respective frame.
For Each InnerCtrl In aFrame.Controls
' Enable each one.
InnerCtrl.Enabled = True
Next InnerCtrl
End Sub

My problem is that my calling code will pass th frame to the procedure,
but the line "aFrame.Enabled = True" fails with the error "Runtime error
438. Object does not support this property or method".

Here's my calling code:

If bShowApp Then ActivateFrameAndControls (Me.fraApp)