Option Group on subform, where did my questions go?

[7HikingLeo]

I have created a main form with tabbed subforms. On one I have a questionnaire. Certain questions are visible depending on the option selected in an Option Group. When I open the main form and click on the tabbed subform, the correct option 3 is selected, but that option's questions are not displayed (though there is data in the fields, saved in it's table). Instead option's 1 question is displayed. I've attached a picture of what I mean.

[June7]

Would have to review data structure and form design and any code controlling this process. If you want to provide db for analysis, follow instructions at bottom of my post.

[7HikingLeo]

I followed your instructions for attaching the db but it won't upload.

This is the only code I've used:

Private Sub TypeOfUse_Click()
Me.Observation_Measurements.Visible = Me.TypeOfUse = 1
Me.Education_Activities.Visible = Me.TypeOfUse = 2
Me.Research_GPScoordinates.Visible = Me.TypeOfUse = 3
Me.Research_Installation.Visible = Me.TypeOfUse = 3
Me.Research_RNAUniqueness.Visible = Me.TypeOfUse = 3
End Sub

[June7]

Won't be able to help.

Why won't the file upload? What happens?

[7HikingLeo]

It acts like its uploading (spinning by the little question mark in the upper right hand corner), then nothing happens. I was thinking security issues with my computer so I could try sending it from home tonight.

[7HikingLeo]

I figured it out (I hope). I had to put the above code not only in the On Click event that will fire every time I click on the option group, but also in the Form's On Current event so that the correct items are shown as I scroll through the records.

Update: It works, but now I get this error message when I open the database: The expression On Current you entered as the event property setting produced the following error: Object or class does not support the set of events.

I'll try to send the zipped database tonight.

[7HikingLeo]

I figured it out used this code:

Private Sub TypeOfUse_AfterUpdate()
Me.TypeOfUse.Requery
End Sub