I’m trying to make a frame Disappears, but I keep making the same mistake.
Everytime I try to put in a code the same message appears. The code I’m
writing is this one.
Function Item_Open()
Set objPage = Item.GetInspector.ModifiedFormPages("message")
Set objControl_CB1 = objPage.Controls("Checkbox1")
Set objControl_LB1 = objPage.Controls("frame3")
If objControl_CB1 = True Then
objControl_LB1.Visible = True
ElseIf objControl_CB1 = False then
objControl_LB1.Visible = True
Else
End If
End Function

The message I get is that I need the obeject= objpage and the vba depurator
highlight the following line “Set objControl_CB1 =
objPage.Controls("Checkbox1")”
Please help me.

You didn't say what kind of form this is. Does is actually have a page named -- exactly -- "message"?

--
Sue Mosher, Outlook MVP
Author of Configuring Microsoft Outlook 2003
http://www.turtleflock.com/olconfig/index.htm
and Microsoft Outlook Programming - Jumpstart for
Administrators, Power Users, and Developers
http://www.outlookcode.com/jumpstart.aspx


"Felipe" <(E-Mail Removed)> wrote in message news:CC43D4D4-1BF8-430D-93AF-(E-Mail Removed)...
> I’m trying to make a frame Disappears, but I keep making the same mistake.
> Everytime I try to put in a code the same message appears. The code I’m
> writing is this one.
> Function Item_Open()
> Set objPage = Item.GetInspector.ModifiedFormPages("message")
> Set objControl_CB1 = objPage.Controls("Checkbox1")
> Set objControl_LB1 = objPage.Controls("frame3")
> If objControl_CB1 = True Then
> objControl_LB1.Visible = True
> ElseIf objControl_CB1 = False then
> objControl_LB1.Visible = True
> Else
> End If
> End Function
>
> The message I get is that I need the obeject= objpage and the vba depurator
> highlight the following line “Set objControl_CB1 =
> objPage.Controls("Checkbox1")”
> Please help me.
>