Option Buttons automatically chosing Field

[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.

 

[Sue Mosher [MVP-Outlook]]

The second and third groups of options buttons each need to be inside their own frame.

 

[Kryer]

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

 

[Sue Mosher [MVP-Outlook]]

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

 

[Kryer]

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.

 

[Sue Mosher [MVP-Outlook]]

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