On Wednesday, January 29, 2014 7:30:49 PM UTC-6, wrote:
Hi,



I have a form that have a set of Option Buttons (rdbOutRange, rdbNWB, and rdbNWS) and a RefEdit (redOutputRange).



When I select the Option Button (rdbOutRange), I want it put the cursor in the RefEdit (redOutputRange).



My current code does this. But if I select something else, and then reselect Option A, it doesn't work anymore.



It looks like that the code is stuck at the next line if I put a Breakpoint on the SetFocus line.



My code is the following:

Private Sub rdbOutRange_Change()



Application.EnableEvents = False

If Me.rdbOutRange.Value = True Then

Me.redOutputRange.Enabled = True

Me.redOutputRange.SetFocus

Else

Me.redOutputRange.Value = ""

Me.redOutputRange.Enabled = False

End If

Application.EnableEvents = True



End Sub



What I am doing wrong?



Thanks,

Mike
this is a reach but .... could it be that the event is dead? Try something like

on error goto gracefull_exit

Application.EnableEvents = False
If Me.rdbOutRange.Value = True Then
Me.redOutputRange.Enabled = True
Me.redOutputRange.SetFocus
Else
Me.redOutputRange.Value = ""
Me.redOutputRange.Enabled = False
End If

gracefull_exit:

Application.EnableEvents = True