BackColor

[trog]

I am using a form to display a manufacturing line. I have placed around 20 text boxes on this image to simulate equipment locations. When I select one of the names of the text boxes from a combo box, I would like to have that text box flash between red and green. Any ideas.

[Rawb]

You're probably not going to be able to do that short of writing something like an ActiveX Control.

You can change the background color, bold or unbold the text, or things like that, but you can't make a Control continuously "flash" back and forth like that in Access.

[redbull]

What you can do is set it up to change color on interval... So every X it will change from this to that... let me see if I can mock some code up for you.

[redbull]

So, I was unable to get this working off the top of my head. I remember doing something like this in class though... SO I found this..

http://www.techonthenet.com/access/forms/flashing.php

That example will flash a text box if the Date is past due, so you might be able to change that to .active? I tried messing with it however I am being pulled into a meeting. I hope this helps.

[trog]

The code belows shows how I am using the Timer event to toggle several text boxes simultaneously, after clicking on the desired label. For instance, if I click on EPA Stations, three text boxes will flash Yellow and Green at the same time. What I would like to do is use a variable to represent all text boxes after selecting the individual text box from a Drop Down Combo Box. This will alleviate having to write code for each text box.

Private Sub Form_Timer()
On Error GoTo noresults
Dim stritem As String
Dim strresults As String
strresults = Forms!NXT_locator!Text29.Value
Select Case strresults
Case "Workstations"
With Forms!NXT_locator!W1
.BackColor = (IIf(.BackColor = vbRed, vbGreen, vbRed))
With Forms!NXT_locator!W2
.BackColor = (IIf(.BackColor = vbRed, vbYellow, vbRed))
With Forms!NXT_locator!W3
.BackColor = (IIf(.BackColor = vbRed, vbYellow, vbRed))
With Forms!NXT_locator!W4
.BackColor = (IIf(.BackColor = vbRed, vbYellow, vbRed))
With Forms!NXT_locator!W5
.BackColor = (IIf(.BackColor = vbRed, vbYellow, vbRed))
With Forms!NXT_locator!W6
.BackColor = (IIf(.BackColor = vbRed, vbYellow, vbRed))
With Forms!NXT_locator!W7
.BackColor = (IIf(.BackColor = vbRed, vbYellow, vbRed))
With Forms!NXT_locator!W8
.BackColor = (IIf(.BackColor = vbRed, vbYellow, vbRed))
With Forms!NXT_locator!W9
.BackColor = (IIf(.BackColor = vbRed, vbYellow, vbRed))
With Forms!NXT_locator!W10
.BackColor = (IIf(.BackColor = vbRed, vbYellow, vbRed))
End With
End With
End With
End With
End With
End With
End With
End With
End With
End With

Case "EPA Stations"
With Forms!NXT_locator!E1
.BackColor = (IIf(.BackColor = vbYellow, vbGreen, vbYellow))
With Forms!NXT_locator!E2
.BackColor = (IIf(.BackColor = vbYellow, vbGreen, vbYellow))
With Forms!NXT_locator!E3
.BackColor = (IIf(.BackColor = vbYellow, vbGreen, vbYellow))
End With
End With
End With
Case "Ionizers"
With Forms!NXT_locator!I1
.BackColor = (IIf(.BackColor = vbRed, vbYellow, vbRed))
With Forms!NXT_locator!I2
.BackColor = (IIf(.BackColor = vbRed, vbYellow, vbRed))
With Forms!NXT_locator!I3
.BackColor = (IIf(.BackColor = vbRed, vbYellow, vbRed))
With Forms!NXT_locator!I4
.BackColor = (IIf(.BackColor = vbRed, vbYellow, vbRed))
With Forms!NXT_locator!I5
.BackColor = (IIf(.BackColor = vbRed, vbYellow, vbRed))
With Forms!NXT_locator!I6
.BackColor = (IIf(.BackColor = vbRed, vbYellow, vbRed))
With Forms!NXT_locator!I7
.BackColor = (IIf(.BackColor = vbRed, vbYellow, vbRed))
End With
End With
End With
End With
End With
End With
End With
End Select
noresults:
End Sub
Private Sub Label25_Click()
Me.Text29 = "Workstations"
Form_Timer
End Sub
Private Sub Label26_Click()
Me.Text29 = "EPA Stations"
Form_Timer
End Sub
Private Sub Label27_Click()
Me.Text29 = "Ionizers"
Form_Timer
End Sub