A
an
Hello!
I have a Form based in Table, with text box to [Value] and [Average] fields.
In same form there are tree unbound object frames named: Red, Yellow and Green
I have the next code:
On Current: of the form, and
After Update: in Text box Named and Control Source [Value], and
After update: in Text box, not in table, [Text81]
‘**** start code
If [Value] < [Avg] Then
Me.Red.Visible = True
Me.Yellow.Visible = False
Me.Green.Visible = False
Else
If [Value] = [Avg] Then
Me.Red.Visible = False
Me.Green.Visible = False
Me.Yellow.Visible = True
Else
If [Value] > [Avg] Then
Me.Red.Visible = False
Me.Green.Visible = True
Me.Yellow.Visible = False
End If
End If
End If
Me.Recalc
End Sub
‘****end code
Work fine.
Now, I would like to create tow Text boxes to indicate tow news parameters
“min†and “max†and recalc.
I tried change [Avg] for [txtMin] and [txtMax] but don’t work.
I would like your help please.
Thanks in advance.
an
I have a Form based in Table, with text box to [Value] and [Average] fields.
In same form there are tree unbound object frames named: Red, Yellow and Green
I have the next code:
On Current: of the form, and
After Update: in Text box Named and Control Source [Value], and
After update: in Text box, not in table, [Text81]
‘**** start code
If [Value] < [Avg] Then
Me.Red.Visible = True
Me.Yellow.Visible = False
Me.Green.Visible = False
Else
If [Value] = [Avg] Then
Me.Red.Visible = False
Me.Green.Visible = False
Me.Yellow.Visible = True
Else
If [Value] > [Avg] Then
Me.Red.Visible = False
Me.Green.Visible = True
Me.Yellow.Visible = False
End If
End If
End If
Me.Recalc
End Sub
‘****end code
Work fine.
Now, I would like to create tow Text boxes to indicate tow news parameters
“min†and “max†and recalc.
I tried change [Avg] for [txtMin] and [txtMax] but don’t work.
I would like your help please.
Thanks in advance.
an