Sub form option group not upadting

[kerrance76]

Hello

I have a form with a 6 page tab control, on one of these pages i have a continuous subform with an option group and 3 toggle buttons in the header.
The main form has a combo box, populated by sql. wth the following code in the after update

Dim rst As Recordset
Set rst = Me.RecordsetClone

rst.FindFirst "StudentNo = " & cboName
If Not rst.NoMatch Then Me.Bookmark = rst.Bookmark

Me!frmStudentsSubModules.Form!optLevel = Me.Level

The first section works fine but the final line doesnt seem to work properly. If i add a break point on this line the option group will update but if i have no breakpoint and just run the code the option group stays as previously selected.
Also if i add a different line after the last line such as

Me!pgePAT.Visible = (optGroup = 4)

(this is from a different area and was pasted in so i could 'run to cursor') then it works fine again.

Can any body explain this and help me solve it,

Thanks

 

[RuralGuy]

Try adding a DoEvents to the code.

 

[kerrance76]

Hi

I've tried adding this after the current code and also before the last line but no difference, i have now added a call to a global sub routine which filters a few records and the option group updates ok but i'm still confused as to why it doesnt work as it was