R
Richard Korinek
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
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