Passing and using option values in code..

[ShyGuy]

I have a form with about 20 option buttons. In some instances, when
the form is opened, only 1 option button is enabled and the others are
disabled. This is controlled by criteria from another form.

I did this by writing
Forms![Options Form].Option5.Enabled = False
for all the options that I wanted to be disabled
and
Forms![Options Form].Option3.Enabled = True
for the one to be enabled.

I did this for all the options that could potentially be disabled and
I think it must be a very sloppy way to do it, even if it does work.

I would like to be able to send the option number to one function that
would disable all the options and enable the one option that was sent.

I tried sending Option5 as a string but that didn't work. I really
don't know enough about access to figure this out so if someone could
help I would really appreciate it.

Thank you,

J Green

[Bas Cost Budde]

ShyGuy wrote:

I have a form with about 20 option buttons. In some instances, when
the form is opened, only 1 option button is enabled and the others are
disabled. This is controlled by criteria from another form.

What if you use an option group? That will handle most of the interface
issues for you

--
Bas Cost Budde, Holland
http://www.heuveltop.nl/BasCB/msac_index.html
I prefer human mail above automated so in my address
replace the queue with a tea

[ShyGuy]

On Tue, 23 Nov 2004 22:06:34 +0100, Bas Cost Budde
<b.*********@heuvelqop.nl> wrote:

ShyGuy wrote:

I have a form with about 20 option buttons. In some instances, when
the form is opened, only 1 option button is enabled and the others are
disabled. This is controlled by criteria from another form.

What if you use an option group? That will handle most of the interface
issues for you

Thanks for the reply,

Sorry I didn't mention that. I am using an option group. What I am
trying to do is, depending on criteria from another form, certain
options are disabled so that the user cannot select them.

[Darryl Kerkeslager]

In the OptionForm, declare

Private isEnabled as Boolean

Public Sub SetEnable(enabler As Boolean)
isEnabled = enabler
End Sub

From the other form, you can then call

OptionForm.SetEnable True

In the form, you can then have code such as

With Me
.Option1.Enabled = Not isEnabled
.Option2.Enabled = isEnabled
.Option3.Enabled = isEnabled
.Option4.Enabled = isEnabled
.Option5.Enabled = Not isEnabled
End With

This may not work out exactly the same if you have several different
configurations of enable/disable, but the principle is the same for
configuration 1, 2, etc. Keep in mind that this won't do anything to speed
your code up, just to make it easier to read and maintain.
Darryl Kerkeslager

"ShyGuy" <sh****@shytown.com> wrote in message
news:od********************************@4ax.com...

I have a form with about 20 option buttons. In some instances, when
the form is opened, only 1 option button is enabled and the others are
disabled. This is controlled by criteria from another form.

I did this by writing
Forms![Options Form].Option5.Enabled = False
for all the options that I wanted to be disabled
and
Forms![Options Form].Option3.Enabled = True
for the one to be enabled.

I did this for all the options that could potentially be disabled and
I think it must be a very sloppy way to do it, even if it does work.

I would like to be able to send the option number to one function that
would disable all the options and enable the one option that was sent.

I tried sending Option5 as a string but that didn't work. I really
don't know enough about access to figure this out so if someone could
help I would really appreciate it.

Thank you,

J Green

[Darryl Kerkeslager]

Private optToEnable as Integer

Public Sub SetEnable(optionNumber As Integer)
optToEnable = optionNumber
End Sub

-------------------------------
Call by:

OptionForm.SetEnable 3
---------------------------------
Assuming your option groups are numbered Option1 to Option9,

Dim i As Integer
For i = 1 to 9
Me("Option" & i).Enabled = False
Next i
Me("Option" & optToEnable).Enabled = True

"ShyGuy" <sh****@shytown.com> wrote:
Thank you. Is there a way to pass the option number to be enabled to
a function and ust the passed option number in code to enable that
option? This way I would only need 1 function to cover all the
different possible options.

[ShyGuy]

On Tue, 23 Nov 2004 21:51:49 -0500, "Darryl Kerkeslager"
<Ke*********@comcast.net> wrote:

Private optToEnable as Integer

Public Sub SetEnable(optionNumber As Integer)
optToEnable = optionNumber
End Sub

-------------------------------
Call by:

OptionForm.SetEnable 3
---------------------------------
Assuming your option groups are numbered Option1 to Option9,

Dim i As Integer
For i = 1 to 9
Me("Option" & i).Enabled = False
Next i
Me("Option" & optToEnable).Enabled = True

Thank you so much. This was just what I was looking for and it worked
perfectly!