Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations derfloh on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Make A Few Labels Flashing At The Same And Not At The Same Time

Status
Not open for further replies.

Thuky

MIS
Joined
Jun 3, 2003
Messages
24
Location
US
Hi,

I am using Access Project links to the sql 7.0 back end. I have a unbound form. The form has 2 continuous sub forms. There are 3 sections of info on the form that have 3 DueDates that I have to make 3 labels to flash when DueDate of each part is in a month. For example: label #1 will flash when DueDate on the main form is in a month, label will flash if DueDate of the of the last record on sub form #1 is in a month, and the same thing for label 3 for the sub form #2.

I don't know how make 3 label flash at the same time or 1 at a time depending on DueDate of each part. I have to open recordSource to pull out the DueDate of the last record for sub form #1 and sub form #2 and make appropriate label visible then set time for them to flash.
I am not familiar with timer function, can anyone please help me to make more than 1 labels can flash at the same time since I can make only 1 label flash at a time. Meaning is when there are 2 labels meet the DueDate to flash, they just stop.

Thanks!
 
Thuky,

On the same form as the "Due Dates"

Set your Timer to 500 (in the Event tab of the properties box at the very bottom.

in the "On Timer" Event of each form, Place the Code. You will need to change the fields to suite your db.

Code:
Private Sub Form_Timer()
If DateDiff("d", Me.DueDate, Now) > 30 Then
Select Case Me.FlashingLabel.Visible
Case True
Me.lblone.Visible = False
Case False
Me.lblone.Visible = True
End Select
Else
Me.lblone.Visible = False
End If
End Sub

Hope this helps

Cheers

Jedel
 
I got it. Thanks a lot for your help, jedel!
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top