I figured out the problem. No need to reply.
--
Thanks in advance for your help...
Rich
"Richard Korinek" wrote:
> I am well versed in a number of scripting technologies, but I'm having
> difficulty with my first custom form. I have an HTA which gathers data, and
> populates a custom form. I cannot via code change any control properties and
> make them stick. The code for my buttons does not run at all unless I select
> "run this form" which works beautifully. Code for the form is...
> Function Item_Open()
> Item.Recipients.Add("")
> End Function
>
> Function CommandButton1_Click()
>
> End Function
>
> Function CommandButton2_Click()
> Set objPage = Item.GetInspector.ModifiedFormPages("PACMAN")
> Set objControl = objPage.Controls("txtReject")
> objControl.Visible = True
> Set objControl = objPage.Controls("Label14")
> objControl.Visible = True
> End Function
>
> Function CommandButton3_Click()
> Set objPage = Item.GetInspector.ModifiedFormPages("PACMAN")
> objPage.Controls("cmbOrg").ReadOnly = False
> objPage.Controls("cmbContact").ReadOnly = False
> objPage.Controls("cmbPlatform").ReadOnly = False
> objPage.Controls("cmbPltfrmTp").ReadOnly = False
> objPage.Controls("cmbComponent").ReadOnly = False
> objPage.Controls("cmbComponentTp").ReadOnly = False
> objPage.Controls("cmbPriority").ReadOnly = False
> objPage.Controls("cmbCaseTp").ReadOnly = False
> End Function
> --
> Thanks in advance for your help...
>
> Rich
|