option button help

[Stephen D Cook]

What I am trying to do is have a set of option buttons which are
required to click one. If the person doesn't click any before insert,
they get an error. If they do click one, it inserts into the field in
the table and then clears the form for the next entry.

I have a form tied to a table. In the table is a lookup field.
In the form I have a frame with 5 option buttons in it.
Outside the frame I have a text box.
I bound the text box to the lookup field.
The form also has an Insert button.

The code I am using is:
cmdInsert_Click()
If Me.opt1.optionvalue = True Then
Me.txtOption.Text = "RF"
End If
If Me.opt2.optionvalue = True Then
Me.txtOption.Text = "25"
End If
..
..
..
..
DoCmd.GoToRecord , , acLast

On Error GoTo Err_cmdUpdate_Click

If Me.Dirty Then
Me.Dirty = False
End If
If Not Me.NewRecord Then
RunCommand acCmdRecordsGoToNew
End If
Me.opt2000.OptionValue = False
Me.opt2500.OptionValue = False
Me.opt700.OptionValue = False
Me.optHD.OptionValue = False

The way I understand it, if the option button is set to True then my
textbox should receive the value from the If statement. If not true,
then the box stays empty. Also, after I Insert the data, the option
buttons will be Off. I have tried this code with opt1.Value set to
True and False as well. I either get a Null value error from the table
because the lookup field is required, or I get a 'This expression has
No Value' error.
What am I doing wrong? Also can you include a snippet to get
me headed in the right direction.

[Anthony England]

"Stephen D Cook" <st******@comcast.net> wrote in message
news:ee********************************@4ax.com...

What I am trying to do is have a set of option buttons which are
required to click one. If the person doesn't click any before insert,
they get an error. If they do click one, it inserts into the field in
the table and then clears the form for the next entry.

I have a form tied to a table. In the table is a lookup field.
In the form I have a frame with 5 option buttons in it.
Outside the frame I have a text box.
I bound the text box to the lookup field.
The form also has an Insert button.

The code I am using is:
cmdInsert_Click()
If Me.opt1.optionvalue = True Then
Me.txtOption.Text = "RF"
End If
If Me.opt2.optionvalue = True Then
Me.txtOption.Text = "25"
End If
.
.
.
.
DoCmd.GoToRecord , , acLast

On Error GoTo Err_cmdUpdate_Click

If Me.Dirty Then
Me.Dirty = False
End If
If Not Me.NewRecord Then
RunCommand acCmdRecordsGoToNew
End If
Me.opt2000.OptionValue = False
Me.opt2500.OptionValue = False
Me.opt700.OptionValue = False
Me.optHD.OptionValue = False

The way I understand it, if the option button is set to True then my
textbox should receive the value from the If statement. If not true,
then the box stays empty. Also, after I Insert the data, the option
buttons will be Off. I have tried this code with opt1.Value set to
True and False as well. I either get a Null value error from the table
because the lookup field is required, or I get a 'This expression has
No Value' error.
What am I doing wrong? Also can you include a snippet to get
me headed in the right direction.

I don't know how you have set up the option group, but typically the option
values will not be True/False. Rather, you would give them distinct values
like:
opt1.OptionValue=1
opt2.OptionValue=2
opt3.OptionValue=3
Now when you press the button, you look at the value of the Option Group
control as a whole:

Select Case Me.grpOptions.Value

Case 1: MsgBox "One is selected"

Case 2: MsgBox "Two is selected"

Case 3: MsgBox "Three is selected"

Case 4: MsgBox "Four is selected"

Case 5: MsgBox "Five is selected"

Case Else: MsgBox "None are selected"

End Select
I'm not going to comment on the rest of the code except to say, it looks
like you are hard-coding values that possibly should be stored in a table,
e.g. Opt1=>"RF" Opt2=>"25"
If you are sure they should not be looked up from a table, then perhaps use
constants so your code makes more sense:
Private Const OPT_FIRST_ONE As Long=1