Outlook Banter

Outlook Banter (http://www.outlookbanter.com/)
-   Outlook - General Queries (http://www.outlookbanter.com/outlook-general-queries/)
-   -   Outlook Form - Hidden Label (http://www.outlookbanter.com/outlook-general-queries/299-outlook-form-hidden-label.html)

[email protected] January 16th 06 10:09 PM

Outlook Form - Hidden Label
 
I am having trouble with a certain Outlook form in Outlook XP on
Windows XP. I have a combobox - combobox 4 - which has two options in
its drop-down box: 1.Referral, 2.Other.

If the user chooses "Referral" from the dropdown box, I want a
previously hidden label --label65--and text box to become visible. Here
is the code I put in for the label as an example, but it is not
working. Can someone tell me what I am doing wrong, please? I am
*really grateful* for any help.

Sub ItemChange()
If
Item.GetInspector.ModifiedFormPages("Message").con trols("ComboBox4").value="Referral"
then
Item.GetInspector.ModifiedFormPages("Message").Con trols("label65").Visible
= true
End If
End Sub


[email protected] January 17th 06 04:36 PM

Outlook Form - Hidden Label
 

wrote:
I am having trouble with a certain Outlook form in Outlook XP on
Windows XP. I have a combobox - combobox 4 - which has two options in
its drop-down box: 1.Referral, 2.Other.

If the user chooses "Referral" from the dropdown box, I want a
previously hidden label --label65--and text box to become visible. Here
is the code I put in for the label as an example, but it is not
working. Can someone tell me what I am doing wrong, please? I am
*really grateful* for any help.

Sub ItemChange()
If
Item.GetInspector.ModifiedFormPages("Message").con trols("ComboBox4").value="Referral"
then
Item.GetInspector.ModifiedFormPages("Message").Con trols("label65").Visible
= true
End If
End Sub


I figured this out from another post. The wording is very specific --
here is what I finally used:

Sub Item_CustomPropertyChange (ByVal Name)
Select Case Name
Case "fldSourceOfBusiness"
If Item.userProperties.Find("fldSourceOfBusiness").Va lue = "Referral"
then
Item.GetInspector.ModifiedFormPages("Message").Con trols("label65").Visible
= 1
End If
End Select
End Sub



All times are GMT +1. The time now is 06:35 AM.

Powered by vBulletin® Version 3.6.4
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Search Engine Friendly URLs by vBSEO 2.4.0
Copyright ©2004-2006 OutlookBanter.com