IF condition

[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

 

[Federico Lemos]

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

 

[Federico Lemos]

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

 

[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 can not find this article.