Make a Text Box Flash 1

[TriniGal]

Hello,

I have seen a number os threads that deal with flashing labels and text boxes, but have found none close to what I want to happen.

I have a text box, that is a result of a calculation. The magic number has to be 63.99, that the highest that the calculations can be. As soon as the the calculation equals 64.00, then we failed our testing for the period.

My question is, is there some way to make my text box flash for about 10 seconds, then stop, then flash again for 10 seconds...like two more times, and then highlight in all red or something, if my test results are 64.00 and higher?

In replying, can you be as descriptive as possible as I an new to this stuff.

I thank you in advance for your help.

 

[TheAceMan1]

How are ya TriniGal . . .

Have a look at the forms [blue]OnTime & TimerInterval[/blue] events and turn [blue]on/off[/blue] the [purple]Visible[/purple] property of the textbox.

Note: can't change the visible property of a control while it has the focus . . .

See Ya! . . . . . .

 

[TriniGal]

I'm fine thanks AceMan1, how are you?

In response to your answer, how would I accomplish this. Like I mentioned, I'm new to all of this stuff. Maybe you can refer me to a website that would be helpful or maybe a post which I missed, or maybe you, yourself, can help me with the code.

Many thanks for your response.

 

[TheAceMan1]

TriniGal . . .

Just q quick question . . . does the textbox you want to flash reside on a form in [blue]datasheet[/blue] or [blue]continuous[/blue] view?

Reason being, the [purple]entire column the textbox is in will flash![/purple] . . .

How do you intend to [blue]start/stop flashing?[/blue]

See Ya! . . . . . .

 

[TriniGal]

Ace,

The textbox is in the form's footer section and honestly I don't know how to start/stop the flashing. I was hoping some sort of timer maybe?

Thanks

 

[TheAceMan1]

TriniGal . . .

Asking another way . . . what do you want to happen to start/stop flashing, or do you want it flashing continuously when the form is open?

See Ya! . . . . . .

 

[sfatz]

TriniGal,
If I read this correctly, you can use the OnCurrent event to check if the value in the text box >= 64. If so, then a public flag can be set. The timer would continuously read the public flag, and if true, could change the visual appearance of the text box. (flash, color, whatever). In any case, I believe that you are going to need some VBA coding to handle your needs.
Later

 

[TriniGal]

Ace,

I'm sorry, I didn't understand what you were asking. This is the scenerio.

A user enters data into this form, which calculates as the user types. I was that as soon as the calculations add up to 64 or more, that will be the trigger to make the text box flash. I hope this answers your question.

Thanks for being so patient with me.

Sfatz,

Do you know where I can go maybe to read up on how to do that VBA Coding?

Thanks

 

[TheAceMan1]

TriniGal . . .

In the forms [blue]Timer[/blue] event, copy paste the following (flashes the textbox):

[blue]   Dim prpBG As Property, prpFG As Property
   Dim bgColor As Long, fgColor As Long
   
   Set prpBG = Me![purple][b]CalcTextboxName[/b][/purple].Properties("ForeColor")
   Set prpFG = Me![purple][b]CalcTextboxName[/b][/purple].Properties("BackColor")
   bgColor = vbWhite
   fgColor = vbBlack
   
   If prpFG = fgColor Then
      prpBG = fgColor
      prpFG = bgColor
   Else
      prpBG = bgColor
      prpFG = fgColor
   End If
   
   Set prpBG = Nothing
   Set prpBG = Nothing[/blue]

Next, in the forms [blue]code module[/blue], copy/paste the following routine (controls turning on/off flashing):

[blue]Private Sub CalcFlash()
   
   If Me!![purple][b]CalcTextboxName[/b][/purple] < 64 Then
      Me.TimerInterval = 0
      Me![purple][b]CalcTextboxName[/b][/purple].ForeColor = vbBlack
      Me![purple][b]CalcTextboxName[/b][/purple].BackColor = vbWhite
      
   Else
      TimerCtl = True
      Me.TimerInterval = 250
   End If
      
End Sub
[/blue]

As an example of use . . . say you have five textboxes involved in the calculation. The [blue]AfterUpdate[/blue] event of each would call the routine above to enable/disable flashing.

[blue]   Call CalcFlash[/blue]

[purple]Thats it . . . let me know if any problems . . .[/purple]

See Ya! . . . . . .

 

[TriniGal]

Thank you Ace. I will try it.