Taking control from Option Button into RefEdit in Excel 2010 behaving oddly

  • Thread starter Thread starter ruoxuan.zhu
  • Start date Start date
R

ruoxuan.zhu

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
 
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
Click to expand...
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
 
Thanks for the suggestion, it doesn't seem to be helpping me. I've also stopped using Application.EnableEvents as that doesn't actually stop form events from triggering.

I think I should be looking to see how I can get the radio button to trigger again without first clicking on another member of the group before clicking back to the button.
 
This works for me...

Private Sub opt1_Click()
With Me.RefEdit1
.Enabled = True: .SetFocus
End With
End Sub

Private Sub opt2_Click()
With Me.RefEdit1
.Enabled = True: .SetFocus
End With
End Sub

Private Sub opt3_Click()
With Me.RefEdit1
.Enabled = True: .SetFocus
End With
End Sub

Private Sub UserForm_Click()
Me.RefEdit1.Enabled = False
End Sub

Private Sub UserForm_Initialize()
Me.RefEdit1.Enabled = False
End Sub

...when clicking outside the RefEdit, then going back to choose another
option.

If setting state is needed then I recommend you use a separate routing
to manage that, and call that routine from the opt_Click event...

Private Sub opt1_Click()
With Me.RefEdit1
.Enabled = True: .SetFocus
End With
Call SetCtrlState(Ndx:=Me.opt1.Tag)
End Sub

Sub SetCtrlState(Ndx&)
Select Case Ndx
Case Is = 1: '//do this...
Case Is = 2: '//do that...
Case Is = 3: '//do some other thing...
End Select 'Case Ndx
End Sub

--
Garry

Free usenet access at http://www.eternal-september.org
Classic VB Users Regroup!
comp.lang.basic.visual.misc
microsoft.public.vb.general.discussion
 
Oops! Forgot to convert type...
Private Sub opt1_Click()
With Me.RefEdit1
.Enabled = True: .SetFocus
End With
Click to expand...

Call SetCtrlState(Ndx:=CLng(Me.opt1.Tag))
End Sub
Click to expand...

...since the Tag is text. Optionally, you could avoid the conversion as
follows:

Sub SetCtrlState(Ndx$)
Select Case Ndx
Case "1":
Case "2":
Case "3":
End Select 'Case Ndx
End Sub

--
Garry

Free usenet access at http://www.eternal-september.org
Classic VB Users Regroup!
comp.lang.basic.visual.misc
microsoft.public.vb.general.discussion
 
Back
Top