Text Box update from Option Group

[fenhow]

Hi,

I have a txtbox on a form that gets an updated value from a selection on an option group on the same form.

In the afterupdate event of my option group I am using the following code:

Private Sub Curative_Status_Option_AfterUpdate()
Select Case Me.Status
Case 1
Me.Text135 = "Not Satisfied"
Case 2
Me.Text135 = "Partially Satisfied"
Case 3
Me.Text135 = "Satisfied"
Case 5
Me.Text135 = "Assigned To Client"
Case 6
Me.Text135 = "Attorney Consult"
Case 7
Me.Text135 = "Attorney Approval"
Case 4
Me.Text135 = "Not Satisfied - New"
Case 8
Me.Text135 = "Not Satisfied - Deferred"
End Select
End Sub

The issue is that once I make a change in the option group it does not change the textbox most of the time, often I have to click the option one or more times and leave the record and come back to it for it to work.

Is there a way to force a refresh on the txtbox while I am still in the record?

Thanks.

Fen How

 

[pbaldy]

It seems odd that you are not testing the option control, but rather Me.Status. Does Me.Status change with the selections made in the option group? Normally I would expect your Select Case to test Curative_Status_Option.

 

[fenhow]

That was it! Thanks a million..

Fen

 

[fenhow]

On another note,

Is is possible to add the text that goes into the txtbox also to another txtbox that has other information in it?

For example,

I have a description area that holds information but the data starts out with the status, it would be awesome if I could change the lead on the description area when the status changes.

IE Status Not Satisfied

Description area

Not Satisfied; bla bla bla

Change Status to Satisfied

Description area

Satisfied; bla, bla, bla


Is this possible?

Currently in the description properties I have the default value as "Not Satisfied;" but when the status changes the default value sticks and someone has to manually change it..

Fen

 

[pbaldy]

Sure, though I would probably just save the status separately. You could use the Mid() function along with the InStr() function to grab everything after the semi-colon, then add the new status to the beginning of that.