TextBox change issue

  • Thread starter Thread starter Patrick C. Simonds
  • Start date Start date
P

Patrick C. Simonds

I want to run a test on my TextBox which will set my OptionButtons to false
of someone changes the contents of the TextBox and it works fine when they
make changes. My problem is that if they click in the TextBox then click
some where else on the UserForm the OptionButtons are set to False, even
though no change was made to the TextBox.

Private Sub TextBox2203_Change()

If Me.Visible = False Then Exit Sub

Me.TextBox2203 = UCase(Me.TextBox2203.Text)

If TextBox2203.Value = rng1(1, 7) Then
GoTo Finished
End If

OptionButton2201.Value = False
OptionButton2202.Value = False
OptionButton2203.Value = False
OptionButton2204.Value = False
OptionButton2205.Value = False
OptionButton2206.Value = False

Finished:

TextBox2203.BackColor = &H80000005

End Sub
 
What is the purpose of this?

If TextBox2203.Value = rng1(1, 7) Then
GoTo Finished
End If

Are you sure that's doing what you want, whatever that is?

Try stepping through the code and see what's happening - and I would
recommend you don't use Goto.

Private Sub TextBox2203_Change()

If Len(TextBox2203.Value) > 0 Then
OptionButton2201.Value = False
OptionButton2202.Value = False
OptionButton2203.Value = False
OptionButton2204.Value = False
OptionButton2205.Value = False
OptionButton2206.Value = False
Else
TextBox2203.BackColor = &H80000005
End If


End Sub
 
Back
Top