Private Sub TextBox1_Change()
Me.TextBox4 = 0
For i = 1 To 3
If Me.Controls("TextBox" & i) <> "" Then
x = CDbl(Replace(Me.Controls("TextBox" & i), ".", ","))
Me.TextBox4.Value = Me.TextBox4.Value + CDbl(Replace(Me.Controls("TextBox" & i), ".", ","))
End If
Next i
End Sub
Private Sub TextBox2_Change()
Me.TextBox4 = 0
For i = 1 To 3
If Me.Controls("TextBox" & i) <> "" Then
x = CDbl(Replace(Me.Controls("TextBox" & i), ".", ","))
Me.TextBox4.Value = Me.TextBox4.Value + CDbl(Replace(Me.Controls("TextBox" & i), ".", ","))
End If
Next i
End Sub
Private Sub TextBox3_Change()
Me.TextBox4 = 0
For i = 1 To 3
If Me.Controls("TextBox" & i) <> "" Then
x = CDbl(Replace(Me.Controls("TextBox" & i), ".", ","))
Me.TextBox4.Value = Me.TextBox4.Value + CDbl(Replace(Me.Controls("TextBox" & i), ".", ","))
End If
Next i
End Sub
'****************************************************
'****************************************************
Private Sub TextBox5_AfterUpdate()
If IsNumeric(TextBox5) = True Then
If OptionButton1 = True Then
Me.TextBox1 = (CDbl(TextBox5) * 20)
ElseIf OptionButton2 = True Then
Me.TextBox2 = (CDbl(TextBox6) * 90)
End If
End If
End Sub
Private Sub TextBox6_AfterUpdate()
If IsNumeric(TextBox6) = True Then
If OptionButton2 = True Then
Me.TextBox2 = (CDbl(TextBox6) * 90)
ElseIf OptionButton1 = True Then
Me.TextBox1 = (CDbl(TextBox5) * 20)
End If
End If
End Sub