Button Click doesn't change textbox visible?

[SRussell]

I have a button and it's suposed to change the text for a call "type" is.
When I click the button teh code below fires. Unfortunatly I don't see the
change from Emergency to Reservation in real time. I have to move a record,
and then come back to see the change.

What do I have to add to the code below? That same code will update the
time to Now in another similar button click.

Private Sub cmdCallType_Click()
On Error GoTo Err_cmdCallType_Click


With CodeContextObject
If .CallType = "Emergency" Then
.CallType = "Reservation"
Else
.CallType = "Emergency"
End If
End With

Exit_cmdCallType_Click:
Exit Sub

Err_cmdCallType_Click:
MsgBox Err.Description
Resume Exit_cmdCallType_Click

End Sub


TIA

__Stephen

 

[Guest]

I put:

Me.Recalc

After the event's code to refresh my forms after I click buttons or check
boxes.

 

[SRussell]

I put:

Me.Recalc

After the event's code to refresh my forms after I click buttons or check
boxes.

Thanks! Worked as expected.