result auto reflect when input value changes

have a closer look on gross_Change and eprem_Change procedures (if you dont have them yet - create them first. Easiest way rightclick on textbox in while in VBA editor and select show code),

Originally Posted by crimzon

display the result automatically when user enter the values in gross.text and eprem.text

How will you know when the user is done entering the values?

The Change event is triggered by every change, including typing one more character. How will you know when the user is done typing?

I do not think it matters, moreover in number of cases it is a desired behaviour.
Once typing is finished the final results appear, and in a meanwhile - partial.

Of course, if it matters and one wants only final result, not partial, one could use gross_AfterUpdate and eprem_AfterUpdate events handlers instead of X_Change ones.
Then the updating would be done after gross and/or eprem loose focus.

Originally Posted by Kaper

I do not think it matters, moreover in number of cases it is a desired behaviour.
Once typing is finished the final results appear, and in a meanwhile - partial.

Of course, if it matters and one wants only final result, not partial, one could use gross_AfterUpdate and eprem_AfterUpdate events handlers instead of X_Change ones.
Then the updating would be done after gross and/or eprem loose focus.

Thank you very much for your kind help.

Sir, if i want to put this functionality for all input textbox, checkbox on the userform, it would be very useless practice to write for textitems.
Is there any way to write a one sub for all changes occurred in textbox or checkbox?


Kindly also tell how to handle divide by zero exception in your attached macro? you only used + and x operator but when i used / (Divide) it raised exception divide by zero. kindly advise on it also.

as for exception - you used sum in your example, so did I of course with division it would be wise to have something like:

if val(eprem.Text)=0 then 
  TextBox4 = ""
else
    TextBox4 = val(gross.Text)/val(eprem.Text)
end if

for several controls simple way would be to move all computations and result displaying in one procedure which could be called from each event handler, like:

Private Sub eprem_Change()
Call do_job
End Sub

Private Sub gross_AfterUpdate()
Call do_job
End Sub

Private Sub OptionButton1_Click()
Call do_job
End Sub

Private Sub OptionButton2_Click()
Call do_job
End Sub

Private Sub OptionButton3_Click()
Call do_job
End Sub

Private Sub OptionButton4_Click()
Call do_job
End Sub

Private Sub do_job()
If OptionButton1 Then
  TextBox4.Value = Val(gross.Text) + Val(eprem.Text)
ElseIf OptionButton2 Then
  TextBox4.Value = Val(gross.Text) - Val(eprem.Text)
ElseIf OptionButton3 Then
  TextBox4.Value = Val(gross.Text) * Val(eprem.Text)
ElseIf OptionButton4 Then
  If Val(eprem.Text) <> 0 Then
    TextBox4.Value = Val(gross.Text) / Val(eprem.Text)
  Else
    TextBox4.Value = "zero in eprem"
  End If
End If
End Sub

note that in gross field I used AfterUpdate event handler (so do_job is called after finished editing, while in eprem i left Change (do_job called after each change within)
I added 4 more controls just to show that all computations are done in one procedure taking into account state all controls on the form.