TextBox Change Event: Recursing Problem

[Fugacity]

My program consists of two textboxes performing a farenheit to celsius conversion using the textbox change event. If I type, for instance, 2 in a textbox I get 1.9999. This is annoying because I can't type in large numbers like 212 because the value immediately changes to 1.9999. I think the reason it is happening because it is recursing. When I type in a value it gets calculated back and forth...back and forth by the two subs until it loses its value.

Private Sub txt_C_Change()
Dim C, F, txtF, txtC As Double
If IsNumeric(txt_C.Text) Then
txtC = txt_C.Text
F = 1.8 * txtC + 32
txt_F.Text = CStr(F)
Else: txt_F.Text = ""
txt_C.Text = ""
End If
End Sub


Private Sub txt_F_Change()
Dim C, F, txtF, txtC As Double
If IsNumeric(txt_F.Text) Then
txtF = txt_F.Text
C = (txtF - 32) / 1.8
txt_C.Text = CStr(C)
Else: txt_C.Text = ""
txt_F.Text = ""
End If
End Sub

 

[chuckchuckit]

Welcome to MrExcel!

I'd use the Round() function on the answer where ever you might have the trouble:

TheNum = Round(TheNum, 0) 'to a whole number

 

[Rick Rothstein]

My program consists of two textboxes performing a farenheit to celsius conversion using the textbox change event. If I type, for instance, 2 in a textbox I get 1.9999. This is annoying because I can't type in large numbers like 212 because the value immediately changes to 1.9999. I think the reason it is happening because it is recursing. When I type in a value it gets calculated back and forth...back and forth by the two subs until it loses its value.

Private Sub txt_C_Change()
Dim C, F, txtF, txtC As Double
Application.EnableEvents = False
If IsNumeric(txt_C.Text) Then
txtC = txt_C.Text
F = 1.8 * txtC + 32
txt_F.Text = CStr(F)
Else: txt_F.Text = ""
txt_C.Text = ""
End If
Application.EnableEvents = True
End Sub


Private Sub txt_F_Change()
Dim C, F, txtF, txtC As Double
Application.EnableEvents = False
If IsNumeric(txt_F.Text) Then
txtF = txt_F.Text
C = (txtF - 32) / 1.8
txt_C.Text = CStr(C)
Else: txt_C.Text = ""
txt_F.Text = ""
End If
Application.EnableEvents = True
End Sub

Try adding the lines of code I show in red above and see if that makes your code run better.

 

[Andrew Poulsom]

Try adding the lines of code I show in red above and see if that makes your code run better.

Rick,

Application.EnableEvents has no effect on TextBoxes (or other Controls), unfortunately. Chip Pearson gives a workaround here:

Suppressing Events In UserForms

 

[Fugacity]

Thanks for your help. I fixed the code. It's not the prettiest thing, but it works. How do you step through the whole module? I tried stepping through the code, but it only does it for a sub at a time? I was using f8.

Here is my code:

Public EnableEvents As Boolean
Sub CtxtChange()
Me.EnableEvents = False
Call txt_C_Change
End Sub


Sub FtxtChange()
Me.EnableEvents = False
Call txt_F_Change
End Sub
Private Sub txt_C_Change()
If Me.EnableEvents Then
            Exit Sub
        End If
Me.EnableEvents = True
Dim C, F, txtF, txtC As Double
If IsNumeric(txt_C.Text) Then
txtC = txt_C.Text
F = 1.8 * txtC + 32
txt_F.Text = CStr(F)
Else: txt_F.Text = ""
txt_C.Text = ""
End If
Me.EnableEvents = False
End Sub


Private Sub txt_F_Change()
If Me.EnableEvents Then
            Exit Sub
        End If
Me.EnableEvents = True
Dim C, F, txtF, txtC As Double
If IsNumeric(txt_F.Text) Then
txtF = txt_F.Text
C = (txtF - 32) / 1.8
txt_C.Text = CStr(C)
Else: txt_C.Text = ""
txt_F.Text = ""
End If
Me.EnableEvents = False
End Sub

 

[Andrew Poulsom]

You can't step through a module.

 

[Rick Rothstein]

Rick,

Application.EnableEvents has no effect on TextBoxes (or other Controls), unfortunately. Chip Pearson gives a workaround here:

Suppressing Events In UserForms

Yeah, I knew that (tripped up again by a quickly issued 2:00 o'clock-in-the-morning response)... thanks for catching it and posting the relavant link for the OP.