Time trigger doesn't work

[John Carter]

I set up 2 time fields and when the first field[CDAsAlarm] gets to the value of the second[CurrentTime], I want the first fields' border to blink. The CurrentTime updates correctly when the form loads, but the CDAsAlarm stays blinking or solid(depending whether I use < or >), even after the currentTime reaches the CDAsAlarm time. I would like it to automatically stop blinking with the passage of time...Thanks, jc

Here is the code...

Private Sub Form_Load()
   Me.CurrentTime = Now()
 
   Me.TimerInterval = 400
End Sub
 
Private Sub Form_Timer()
 
Dim DateTimeval As Date
Dim CurrentTime As Date
Dim  tm, CDAtm
 
    DateTimeval = Me.CurrentTime.Value 
    tm = Format(DateTimeval, "hh:mm")
    CDAtm = Format(DateTimeval, "hh,mm")
    Me.CurrentTime = Now() 
    Me.TimerInterval = 400
 
     If CDAtm < tm Then
        With Me.CDAsAlarm
         .BorderColor = (IIf(.BorderColor = vbGreen, vbRed, vbGreen))
        End With
        Else
        With Me.CDAsAlarm
         .BorderColor = vbGreen
        End With
    End If

[NeoPa]

Your question doesn't really explain what you're trying to do very well I'm afraid. Unfortunately, your code is similarly unclear. I'm going to guess you want the CurrentTime control (You have no fields in the whole problem BTW) to flash when, and only when, the displayed time in hh:mm format matches the hh:mm format of the CDAsAlarm control.

For that the following code should indicate some concepts that will help :

Option Compare Database
Option Explicit
 
Private Const conRG As Long = vbRed + vbGreen
 
Private Sub Form_Load()
    With Me
        .CurrentTime = Format(Now(), "HH:mm")
        .TimerInterval = 400
    End With
End Sub
 
Private Sub Form_Timer()
    Dim strTime As String
 
    With Me
        With .CurrentTime
            .Value = Format(Now(), "HH:mm")
            strTime = .Value
        End With
        With .CDAsAlarm
            If strTime = Format(CDate(.Value), "HH:mm") Then
                .BorderColor = conRG - .BorderColor
            Else
                .BorderColor = vbGreen
            End If
        End With
    End With
End Sub

** Edit **
This code has been changed retrospectively as I noticed that the control CurrentTime was not being updated regularly to reflect the current time (Doh!).

[John Carter]

I wanted the text box to blink if its content passed a certain time,so I changed the = to > on the " If strTime = Format..." line; and it worked perfectly.
Thank you very much,
jc

[NeoPa]

John Carter:
I would like it to automatically stop blinking with the passage of time

The suggested code would actually work too. It just doesn't stop there. It turns the blinking off after a minute (as hinted at by your comment (quoted) in the original question). Unfortunately the question isn't very clear about exactly what's required there, but clearly you don't seem to want it to continue blinking, so I'd consider putting the code back as suggested, or alternatively replacing it with something to do the job that you want. I can't help there unless you tell us what that is of course.

[John Carter]

I read my first request and I can see that I need some technical writing practice...:-) And since you ask, I am creating several fields on one form,each field needing to have it's borders start blinking if it doesn't have data in it when it hits a time threshhold during any given day. Each field has a different threshhold(Trig#). Currently I have 3 fields CDAs1, CDAs2, and CDAs3; each of these 3 fields has it's own trigger field Trig1, Trig2, and Trig3(each trig with a uinique #hh:mm# value). And finally there is a single CurrentTime field which the whole form uses to monitor the status of the CDAs fields. The previous code you gave works for a single field, but I can't get to work for multiple fields. Any ideas? (And thank you very much for you patience...)
Sincerely,
John

[NeoPa]

John Carter:
I can see that I need some technical writing practice...:-)

Very rare vision John. I like it. Your latest post though, is an example of clarity and a pleasure to work to (Controls on a form are not fields, they are ... controls - but worrying about that now would be just picky :-D)

Now I've had a chance to review the code I noticed a fundamental problem with my previous version (which I fixed - not in order to confuse you, but simply so anyone else reading this will not pick up any bum direction from me). I had forgotten to ensure that Me.CurrentTime was kept updated as time passed. Not only that, but the fact of handling checks against multiple controls has meant the logic of the code is somewhat different from the previous version. See what you make of it :

Option Compare Database
Option Explicit
 
Private ctlNow As Control
 
Private Sub Form_Load()
    With Me
        Set ctlNow = .CurrentTime
        With ctlNow
            .Locked = False
            .Value = Format(Now(), "HH:mm")
            .Locked = True
        End With
        .TimerInterval = 400
    End With
End Sub
 
Private Sub Form_Timer()
    Dim datTrig As Date
    Dim ctlCDAs As Control
 
    With Me
        With ctlNow
            .Locked = False
            .Value = Format(Now(), "HH:mm")
            .Locked = True
        End With
        For Each ctlCDAs In .Controls
            With ctlCDAs
                If Left(.Name, 4) = "CDAs" Then
                    If .BorderColor = vbRed Then
                        .BorderColor = vbGreen
                    Else
                        datTrig = CDate(Me.Controls("Trig" & Mid(.Name, 5)))
                        If Format(datTrig, "HH:mm") = ctlNow Then .BorderColor = vbRed
                    End If
                End If
            End With
        Next ctlCDAs
    End With
End Sub

PS. I'm assuming Me.CurrentTime is a TextBox control. It may make sense to make it a label instead, then you needn't include code to ensure the operator never fiddles with it ;-)