Option Buttons automatically chosing Field

  • Thread starter Thread starter brenden.morgenthaler
  • Start date Start date
B

brenden.morgenthaler

I'm getting really really really fed up with this.

I have a new Post form that I'm working on. Single page (not seperate
read\post pages). I have added three different groups of option
buttons. I bind the first group to one Field. Then when I try to bind
the second group to a different field, the first group gets bound to
that field.

Then any new option button I add is automatically bound to that field.

How do I change this behavior it is getting very very frustrating.
 
The second and third groups of options buttons each need to be inside their own frame.
 
I now have a problem with the option buttons as well. I have each group in
there own frames. They interact with each other fine. I have the form
published in my personal library. When I send the form to myself using the
form from the personal library. I cannot get the option buttons to retain
there value when I open up the email. I do have some VBScript in the
background that looks like this and this may cause some problems. Please help:

Sub Item_CustomPropertyChange(ByVal Name)
if item.userproperties.find("OPTD") = true then
item.getinspector.modifiedformpages("Message").controls("TextBox1").visible
= true
item.getinspector.modifiedformpages("Message").controls("TextBox2").visible
= true
item.getinspector.modifiedformpages("Message").controls("Frame1").visible =
true
elseif item.userproperties.find("OPTD") = False then
item.getinspector.modifiedformpages("Message").controls("TextBox1").visible
= false
item.getinspector.modifiedformpages("Message").controls("TextBox2").visible
= false
item.getinspector.modifiedformpages("Message").controls("Frame1").visible =
false
end if

if item.userproperties.find("OPTD1") = true then
item.getinspector.modifiedformpages("Message").controls("TextBox3").visible
= true
item.getinspector.modifiedformpages("Message").controls("TextBox4").visible
= true
item.getinspector.modifiedformpages("Message").controls("Frame2").visible =
true
elseif item.userproperties.find("OPTD1") = False then
item.getinspector.modifiedformpages("Message").controls("TextBox3").visible
= false
item.getinspector.modifiedformpages("Message").controls("TextBox4").visible
= false
item.getinspector.modifiedformpages("Message").controls("Frame2").visible =
false
end if

if item.userproperties.find("OPTD2") = true then
item.getinspector.modifiedformpages("Message").controls("TextBox5").visible
= true
item.getinspector.modifiedformpages("Message").controls("TextBox6").visible
= true
item.getinspector.modifiedformpages("Message").controls("Frame3").visible =
true
elseif item.userproperties.find("OPTD2") = False then
item.getinspector.modifiedformpages("Message").controls("TextBox5").visible
= false
item.getinspector.modifiedformpages("Message").controls("TextBox6").visible
= false
item.getinspector.modifiedformpages("Message").controls("Frame3").visible =
false
end if
End Su
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Function Item_Open()
if item.userproperties.find("OPTD") = true then
item.getinspector.modifiedformpages("Message").controls("TextBox1").visible
= true
item.getinspector.modifiedformpages("Message").controls("TextBox2").visible
= true
item.getinspector.modifiedformpages("Message").controls("Frame1").visible =
true
End if
if item.userproperties.find("OPTD1")= true then
item.getinspector.modifiedformpages("Message").controls("TextBox3").visible
= true
item.getinspector.modifiedformpages("Message").controls("TextBox4").visible
= true
item.getinspector.modifiedformpages("Message").controls("Frame2").visible =
true
End if
if item.userproperties.find("OPTD2")= true then
item.getinspector.modifiedformpages("Message").controls("TextBox5").visible
= true
item.getinspector.modifiedformpages("Message").controls("TextBox6").visible
= true
item.getinspector.modifiedformpages("Message").controls("Frame3").visible =
true
End if

If item.userproperties.find("OPTD") = false then
item.getinspector.modifiedformpages("Message").controls("TextBox1").visible
= false
item.getinspector.modifiedformpages("Message").controls("TextBox2").visible
= false
item.getinspector.modifiedformpages("Message").controls("Frame1").visible =
false
end if
if item.userproperties.find("OPTD1") = false then
item.getinspector.modifiedformpages("Message").controls("TextBox3").visible
= false
item.getinspector.modifiedformpages("Message").controls("TextBox4").visible
= false
item.getinspector.modifiedformpages("Message").controls("Frame2").visible =
false
end if
if item.userproperties.find("OPTD2") = false then
item.getinspector.modifiedformpages("Message").controls("TextBox5").visible
= false
item.getinspector.modifiedformpages("Message").controls("TextBox6").visible
= false
item.getinspector.modifiedformpages("Message").controls("Frame3").visible =
false
end if
End Function
 
In design mode, did you click the Edit Read Page button and create a layout similar to that on the compose page, specifically, binding the option buttons on the read page to the same field that the correspoinding buttons use on the compose page?

--
Sue Mosher, Outlook MVP
Author of Configuring Microsoft Outlook 2003

and Microsoft Outlook Programming - Jumpstart for
Administrators, Power Users, and Developers
 
I have the option set for non seperate pages.... i went to Form menu and
unchecked 'SEPERATE READ LAYOUT'. This i thought would have the fields look
and feel the same on both the edit and read pages.
 
That is what it should do, but I'd suggest that you check the properties of the controls for yourself.

--
Sue Mosher, Outlook MVP
Author of Configuring Microsoft Outlook 2003

and Microsoft Outlook Programming - Jumpstart for
Administrators, Power Users, and Developers
 
Back
Top