Dependent option group problem

[Remster]

Hi Folks

This is probably a really simply one, but I'm trying to create an option group (Frame 181) and a text box (Text190) that are disabled unless an option is selected in an earlier option group (Frame 166). I thought this would work:

Private Sub Frame166_AfterUpdate()
If IsNull(Frame166) Then Frame181.Enabled = False
If Not IsNull(Frame166) Then Frame181.Enabled = True


If IsNull(Frame166) Then Text190.Enabled = False
If Not IsNull(Frame166) Then Text190.Enabled = True
End Sub

And it does work up to a point. However, when an option is selected in Frame166 in one record, it enables Frame181 and Text190 in all other records as well. How do I get Frame166 to interract with Frame181 and Text190 in the current record only? Or am I going about this in completely the wrong way?

Remster

[slave138]

Add code in the OnCurrent event of the Form to see if the option is selected in Frame166. If so, enable the other objects. If not, disable them.

[Remster]

Hello again. So much for my prediction that I wouldn't be back until next week!

I've tried just taking the middle four rows from the above code and sticking them in the On Current event, but I take it you mean something a bit more complex than that (because it doesn't work). Can you give me any pointers?

By the way, the idea is that Frame181 is enabled if (and only if) any selection is made in Frame166.

[slave138]

I did it this way:

Private Sub Form_Current()
    Me.Frame181.Enabled = Not IsNull(Me.Frame166.Value)
    Me.Text190.Enabled = Not IsNull(Me.Frame166.Value)
End Sub

I would use the same code in the OnClick event for Frame166

See the sample if you want to try it out:

[Remster]

Yep, that works. As a matter of fact, I also want to highlight Frame13 and Text2 in yellow if they themselves are blank. I don't know how to handle doubling up on equals signs in VBA (any ideas?) so I resorted to conditional statements for that:

If IsNull(Me.Frame13.Value) Then Me.Frame13.BackColor = vbYellow
If IsNull(Me.txtText2.Value) Then Me.txtText2.BackColor = vbYellow
If Not IsNull(Me.Frame13.Value) Then Me.Frame13.BackColor = vbWhite
If Not IsNull(Me.txtText2.Value) Then Me.txtText2.BackColor = vbWhite

This seems to work, though I think I'll keep it simple and use conditional formatting for the text box. As a matter of interest, why are the OnClick events necessary?

[slave138]

As a matter of interest, why are the OnClick events necessary?

The reason you want to use it in the OnClick event is to get it to update immediately. Otherwise, it would only enable when you move away from the record and come back to it.

Your other code should be fine for it as long as you include it in the same places.