How do I get the dot to appear when an option button is selected?

[ladycyradis]

Hi,

I'm new here and have a bit of a problem. I'm building a form in Access 2003 and have a piece of code I'm using to ensure that the correct values are saved in the table when each option is selected. This was the original code:

Private Sub AdministrativeSoundness_AfterUpdate() 
    Select Case AdministrativeSoundness 
        Case 1 
            'Green 
            Me.AdministrativeSoundness = "15" 
        Case 2 
            'Amber 
            Me.AdministrativeSoundness = "7.5" 
        Case 3 
            'Red 
            Me.AdministrativeSoundness = "0" 
        Case Else 
    End Select 
End Sub 

For some reason when I use the above, the dot that shows the option button has been selected doesn't appear. So, based on a response to a question someone else had, I tried this:

Private Sub AdministrativeSoundness_AfterUpdate() 
    Select Case AdministrativeSoundness 
        Case 1 
            'Green 
            Me.AdministrativeSoundness = "15" 
            Me.optASGreen.Visible = True 
        Case 2 
            'Amber 
            Me.AdministrativeSoundness = "7.5" 
            Me.Option961.Visible = True 
        Case 3 
            'Red 
            Me.AdministrativeSoundness = "0" 
            Me.Option963.Visible = True 
        Case Else 
    End Select 
End Sub 

Unfortunately, I still don't get my little green dot, which I really need so that the users know they have answered that question. I have also tried separating the two actions by putting the 'visible =True' bit into an event procedure on the AdministrativeSoundness_Click event, but that didn't work either.

Can anyone tell me what I'm doing wrong? I know it's got something to do with the select case function, which I need in order to get the decimal value into the table, because it doesn't happen on the form tabs where I can just key the value I want directly into the option button's properties field. It only happens on the tabs where I need to use the select case statement.

I'm self-taught in Access, and until I started building this database, I'd managed to avoid VBA, so I'm not really sure that I'm going about this the right way.

[missinglinq]

If AdministrativeSoundness is an Option Group, its value can only be an Integer, hence the Case 1, Case 2, etc. These Integer values are assigned by Access when the group is created, so yours would be

Green 1
Amber 2
Red 3

But you’re then immediately assigning different values to AdministrativeSoundness, and string values at that:

Green 15
Amber 7.5
Red 0

Since these values don’t have a corresponding option button in AdministrativeSoundness, no option button is selected, i.e. no button has a black dot showing.

Your choices here are

Have the Option Group be unbound, then assign your values of 15, 7.5 and 0 to AdministrativeSoundness.

or

Let Access store the values of 1, 2 and 3 in your table, and then “translate” these values, when needed, into the output you want ( 15, 7.5, 0) in an unbound textbox with a Select Case similar to what you already have, except you assign the output to the unbound textbox.

Private Sub AdministrativeSoundness_AfterUpdate() 
    Select Case AdministrativeSoundness 
        Case 1 
            'Green 
            Me.DisplayAS = "15" 
        Case 2 
            'Amber 
            Me.DisplayAS = "7.5" 
        Case 3 
            'Red 
            Me.DisplayAS = "0" 
        Case Else 
    End Select 
End Sub 

where DisplayAS is the unbound textbox.

Welcome to Bytes!

Linq ;0)>

[ladycyradis]

Thanks so much. It's fixed now and a great relief. Thanks again.

[missinglinq]

Always happy to help a lady! Are you perhaps the ladycyradis from "down under?"

Linq ;0)>