Resetting Option Group Values

[oleBucky]

I have a set of options groups I want "reset" to my chosen default values. I placed a command button on the form with the following On Click event code:

 
Private Sub btnDefaultNoneOn_Click()
On Error GoTo Err_btnDefaultNoneOn_Click
 
    Me.og3 = 2
    Me.og4 = 2
    Me.og5 = 2
    Me.og6 = 2
    Me.og7 = 1
    Me.og8 = 1
    Me.og9 = 1
 
Exit_btnDefaultNoneOn_Click:
    Exit Sub
 
Err_btnDefaultNoneOn_Click:
    MsgBox Err.Description
    Resume Exit_btnDefaultNoneOn_Click
 
End Sub

Where the option groups are named og3, og4, etc.

When I run the form, I get an "Object doesn't support this property or method" error.

Might someone offer a suggestion regarding an object supported property or method to reset my ogs to my default values?

[ajetrumpet]

have you tried putting '.value' after the 'og3'?? etc..

and what are they values associated with the group items?? important to remember that options groups have "values" associated with them, but they also have integers associated with each of those ''values'', which are always stored in the tables.

[oleBucky]

Adding ".Value" after the og3 etc generated a compile error: Method or data member not found.

Based on your question, I believe I am wanting to reset the integer associated with each button on each og. For instance, if the user selects the third radio button for og3 and the og3 default is the second radio button, my intent is to have the command button reset og3 to the default second radio button.

[ajetrumpet]

I understand that. go to the prop sheet for the option groups and see what actual 'values' are. they should listed on one of the prop tabs.

then try to assign that string value, or number value, whatever you chose initially, to the control instead of the actual integer alias that Access mandates for those types of controls.

[oleBucky]

After some experimenting, this is what worked:

 
Private Sub btnDefaultNoneOn_Click()
On Error GoTo Err_btnDefaultNoneOn_Click
 
    Me.og3.Value = Me.og3.DefaultValue
    Me.og4.Value = Me.og4.DefaultValue
    Me.og5.Value = Me.og5.DefaultValue
    Me.og6.Value = Me.og6.DefaultValue
    Me.og7.Value = Me.og7.DefaultValue
    Me.og8.Value = Me.og8.DefaultValue
    Me.og9.Value = Me.og9.DefaultValue
 
Exit_btnDefaultNoneOn_Click:
    Exit Sub
 
Err_btnDefaultNoneOn_Click:
    MsgBox Err.Description
    Resume Exit_btnDefaultNoneOn_Click
 
End Sub

Using your ".Value" suggestion and enclosing the number in quotes also works.

Me.og3.Value = "2"

Thanks for your input!