G
Guest
I have a form with some frames. When I choose a checkbox for a specific
frame to show up, all of them show up for the recipient. My sample code is
listed below:
custompropertyChange.....
select case....
Case "field2"
strMyProp2 = Item.UserProperties("field2")
If strMyProp2 = True Then
Set myinspector = Item.GetInspector
Set myPage1 = myInspector.ModifiedFormPages("P.2")
Set frmCheckData = myPage1.Controls("Frame4")
Set chkNeedCheck = myPage1.Controls("CheckBox35")
frmCheckData.Visible = true
Set myinspector = Item.GetInspector
Set myPage1 = myInspector.ModifiedFormPages("P.2")
Set frmCheckData3 = myPage1.Controls("Frame5")
'frmCheckData2.visible = false
frmCheckData3.visible = false
Set chkNeedCheck3 = myPage1.Controls("CheckBox36")
'chkNeedCheck2.enabled = false
chkNeedCheck3.enabled = false
else
strMyProp2 = false
Set myinspector = Item.GetInspector
Set myPage1 = myInspector.ModifiedFormPages("P.2")
Set frmCheckData = myPage1.Controls("Frame3")
Set chkNeedCheck = myPage1.Controls("CheckBox34")
frmCheckData.Visible = false
end if
End Select
End Sub
frame to show up, all of them show up for the recipient. My sample code is
listed below:
custompropertyChange.....
select case....
Case "field2"
strMyProp2 = Item.UserProperties("field2")
If strMyProp2 = True Then
Set myinspector = Item.GetInspector
Set myPage1 = myInspector.ModifiedFormPages("P.2")
Set frmCheckData = myPage1.Controls("Frame4")
Set chkNeedCheck = myPage1.Controls("CheckBox35")
frmCheckData.Visible = true
Set myinspector = Item.GetInspector
Set myPage1 = myInspector.ModifiedFormPages("P.2")
Set frmCheckData3 = myPage1.Controls("Frame5")
'frmCheckData2.visible = false
frmCheckData3.visible = false
Set chkNeedCheck3 = myPage1.Controls("CheckBox36")
'chkNeedCheck2.enabled = false
chkNeedCheck3.enabled = false
else
strMyProp2 = false
Set myinspector = Item.GetInspector
Set myPage1 = myInspector.ModifiedFormPages("P.2")
Set frmCheckData = myPage1.Controls("Frame3")
Set chkNeedCheck = myPage1.Controls("CheckBox34")
frmCheckData.Visible = false
end if
End Select
End Sub