Update text box when an option group radio button in selected

[angybab]

I have text boxes on a form which uses radio buttons to switch between different views.
I want the text in the boxes to change depending on the button chosen. I triedusing this code but its not working

Private Sub Optionsbutton_click()
Select Case Me.Optionsbutton
Case 1
Me.box1.Visible = False
Me.box2.Visible = False

Case 2
Me.box1.Visible = True


Me.box2.Visible = True

Case 3
Me.box1.Visible = True
Me.box2.Visible = True

End Select
End Sub


Private Sub optionsbutton_AfterUpdate()
Select Case Me.optionsbutton
Case 1
Me.txtBox = "list of Departments"
Case 2
Me.txtBox = "list of Employees"
Case 3
Me.txtBox = "list of Clients"
End Select
End Sub

the on click part works fine. Only the afterupdate part doesn't work.
I will appreciate any help

[Bob Fitz]

Only the afterupdate part doesn't work.

That doesn't really tell us much. Any error message? Check that the code does actually fire by placing a breakpoint at the first line and then step though the code one line at a time with F8.

[angybab]

The error messege says: object doesn't support this property or method

[Bob Fitz]

And which line of code causes the error?

[angybab]

If I select the button assigned to case 2 or case 3.
The line Me.txtBox = "list of Employees" or line Me.txtBox = "list of Clients" is highlighted

[Bob Fitz]

can you post a copy of the db

[angybab]

oh it contains patients data, so I can't post it.
But should is code correct or have I made a mistake some where?

[Bob Fitz]

But should is code correct or have I made a mistake some where?

I don't know, which is why I wanted to look at the actual db.

oh it contains patients data, so I can't post it.

Perhaps you could remove all sensitive data from the copy. Compact and repair. Then post it here as a zip file.

[angybab]

okay, it me see what I can do.

[Welshgasman]

You have created an option group and not just a single option haven't you.?

[angybab]

Yes, you are right

[angybab]

Hey Bob,
I solved it be adding Caption to Me.txtBox
thank you for the help
best regards

[Bob Fitz]

So Me.txtBox is a label and not a textbox as its name might suggest?

[Welshgasman]

Well that cannot be correct, as otherwise option 1 would have raised an error as well?

[angybab]

Yes sorry, it's a label