Option Group - change radio buttons on click

[Ruegen]

I'm using an option group to change textboxes control source and labels (this is working fine)



I am using

Private Sub Option74_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.txtSchoolEmail.ControlSource = "[3DramaEmail]"
Me.Label29.Caption = "Drama Teacher Email"
Me.Requery
End Sub

However - when I have made the selection - the radio button doesn't appear pressed/selected.

I am guessing the on mouse down event is not enough?

[June7]

Try the Option Group control AfterUpdate event.

[Ruegen]

Try the Option Group control AfterUpdate event.

Not sure what is wrong

I am using

Private Sub Frame63_AfterUpdate()
If Me.Option66.Enabled = True Then
Me.txtSchoolEmail.ControlSource = "[1ContactEmail]"
Me.Label29.Caption = "Contact Email"
Me.Requery
ElseIf Me.Option68.Enabled = True Then
Me.txtSchoolEmail.ControlSource = "[6EnglishEmail]"
Me.Label29.Caption = "English Teacher Email"
Me.Requery
ElseIf Me.Option70.Enabled = True Then
Me.txtSchoolEmail.ControlSource = "[2LibrarianEmail]"
Me.Label29.Caption = "Librarian Email"
Me.Requery
ElseIf Me.Option72.Enabled = True Then
Me.txtSchoolEmail.ControlSource = "[4MusicEmail]"
Me.Label29.Caption = "Music Teacher Email"
Me.Requery
ElseIf Me.Option74.Enabled = True Then
Me.txtSchoolEmail.ControlSource = "[3DramaEmail]"
Me.Label29.Caption = "Drama Teacher Email"
Me.Requery
ElseIf Me.Option76.Enabled = True Then
Me.txtSchoolEmail.ControlSource = "[5WelfareEmail]"
Me.Label29.Caption = "Welfare Teacher Email"
Me.Requery
ElseIf Me.Option78.Enabled = True Then
Me.txtSchoolEmail.ControlSource = "[SchoolEmail]"
Me.Label29.Caption = "School Email"
Me.Requery
End If

however it doesn't work...

I am guessing if optiongroup value = 1 then

If Me.Frame63.Value = 1 Then
Me.txtSchoolEmail.ControlSource = "[1ContactEmail]"
Me.Label29.Caption = "Contact Email"
Me.Requery
ElseIf Me.Frame63.Value = 2 Then
Me.txtSchoolEmail.ControlSource = "[6EnglishEmail]"
Me.Label29.Caption = "English Teacher Email"
Me.Requery
ElseIf Me.Frame63.Value = 3 Then
Me.txtSchoolEmail.ControlSource = "[2LibrarianEmail]"
Me.Label29.Caption = "Librarian Email"
Me.Requery
ElseIf Me.Frame63.Value = 4 Then
Me.txtSchoolEmail.ControlSource = "[4MusicEmail]"
Me.Label29.Caption = "Music Teacher Email"
Me.Requery
ElseIf Me.Frame63.Value = 5 Then
Me.txtSchoolEmail.ControlSource = "[3DramaEmail]"
Me.Label29.Caption = "Drama Teacher Email"
Me.Requery
ElseIf Me.Frame63.Value = 6 Then
Me.txtSchoolEmail.ControlSource = "[5WelfareEmail]"
Me.Label29.Caption = "Welfare Teacher Email"
Me.Requery
ElseIf Me.Frame63.Value = 7 Then
Me.txtSchoolEmail.ControlSource = "[SchoolEmail]"
Me.Label29.Caption = "School Email"
Me.Requery
End If

that works however the radio buttons don't

[June7]

Neither do I, they always work for me.

BTW, Select Case construct would be ideal for that conditional code.

Not sure you need the Requery lines. The RecordSource has not be altered.

[Ruegen]

Solved

used

Select Case Me.Frame63
Case 1
Me.txtSchoolEmail.ControlSource = "[1ContactEmail]"
Me.Label29.Caption = "Contact Email"
Me.Requery
Case 2
Me.txtSchoolEmail.ControlSource = "[6EnglishEmail]"
Me.Label29.Caption = "English Teacher Email"
Me.Requery
Case 3
Me.txtSchoolEmail.ControlSource = "[2LibrarianEmail]"
Me.Label29.Caption = "Librarian Email"
Me.Requery
Case 4
Me.txtSchoolEmail.ControlSource = "[4MusicEmail]"
Me.Label29.Caption = "Music Teacher Email"
Me.Requery
Case 5
Me.txtSchoolEmail.ControlSource = "[3DramaEmail]"
Me.Label29.Caption = "Drama Teacher Email"
Me.Requery
Case 6
Me.txtSchoolEmail.ControlSource = "[5WelfareEmail]"
Me.Label29.Caption = "Welfare Teacher Email"
Me.Requery
Case 7
Me.txtSchoolEmail.ControlSource = "[SchoolEmail]"
Me.Label29.Caption = "School Email"
Me.Requery
End Select

[Ruegen]

Neither do I, they always work for me.

BTW, Select Case construct would be ideal for that conditional code.

Was about to update but you were too quick!

Cheers and thankyou

[Ruegen]

Not sure you need the Requery lines. The RecordSource has not be altered.

yeah, I just took those out - thanks

wasn't sure how the option group would handle it.