IF condition

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

I have the following function where I am calculating time difference between
current time and the last update and I am updating timer every minute. How
do I set up if function to display warning message if difference is > 60
minutes? Also is it possible to insert into this if condition to change form
background color if time difference is > 60 minutes. Thanks. Here is the
function:

Private Sub Form_Timer()

Dim sngElapsedTime As Date
Dim Last_Update As Date

sngElapsedTime = Now() - [Last Update]
'Update the timer
txtTimeDiff = Format(sngElapsedTime, "hh:mm:ss")

End Sub
 
I have the following function where I am calculating time difference between
current time and the last update and I am updating timer every minute. How
do I set up if function to display warning message if difference is > 60
minutes? Also is it possible to insert into this if condition to change form
background color if time difference is > 60 minutes. Thanks. Here is the
function:

Private Sub Form_Timer()

Dim sngElapsedTime As Date
Dim Last_Update As Date

sngElapsedTime = Now() - [Last Update]
'Update the timer
txtTimeDiff = Format(sngElapsedTime, "hh:mm:ss")

End Sub
Click to expand...
 
I have the following function where I am calculating time difference between
current time and the last update and I am updating timer every minute. How
do I set up if function to display warning message if difference is > 60
minutes? Also is it possible to insert into this if condition to change form
background color if time difference is > 60 minutes. Thanks. Here is the
function:

Private Sub Form_Timer()

Dim sngElapsedTime As Date
Dim Last_Update As Date

sngElapsedTime = Now() - [Last Update]
'Update the timer
txtTimeDiff = Format(sngElapsedTime, "hh:mm:ss")

End Sub
Click to expand...
 
Federico Lemos said:
I have the following function where I am calculating time difference between
current time and the last update and I am updating timer every minute. How
do I set up if function to display warning message if difference is > 60
minutes? Also is it possible to insert into this if condition to change form
background color if time difference is > 60 minutes. Thanks. Here is the
function:

Private Sub Form_Timer()

Dim sngElapsedTime As Date
Dim Last_Update As Date

sngElapsedTime = Now() - [Last Update]
'Update the timer
txtTimeDiff = Format(sngElapsedTime, "hh:mm:ss")

End Sub
Click to expand...

I can not find this article.
Click to expand...
 
Back
Top