Access Examples

Posted on Monday, January 14, 2008 - 16:24 | by admin |

Through a small code we can welcome the user depending on the time you open the form. In this example we can see three different messages:
1-Morning Until 12:00;
2-Up at 19:00 Good afternoon;
3-Between 19:00 and 00:00 Good evening.

Just need a small code, which is as follows:

Public Function Greeting ()
Dim strMsg As String

If Time <# 12:00:00 PM # Then
strMsg = "Hello! Have a nice day! "
ElseIf Time <= # 7:00:00 PM # Then
strMsg = "Hello! Good afternoon! "
Else
strMsg = "Hello! Have a good night! "

End If
Compliance = strMsg
End Function

Then to call the code, we use a text box and as the origin of the compliance monitoring write = ().

Download: Compliance