Toegang Voorbeelden

Geplaatst op maandag de 14 januari 2008 - 16:24 | door admin |

Door middel van een kleine code kunnen we verwelkomen de gebruiker, afhankelijk van de tijd die u het formulier opent. In dit voorbeeld zien we drie verschillende berichten:
1-'s morgens tot 12:00;
2-Up om 19:00 Goedemiddag;
3-Tussen 19:00 en 00:00 Goedenavond.

Volstaat een code die is als volgt:

Openbare functie van de Groet ()
Dim strMsg As String

Als Time <# 12:00:00 # Dan
strMsg = "Hello! Een mooie dag verder! "
ElseIf Time <= # 7:00:00 PM # Dan
strMsg = "Hello! Goedemiddag! "
Anders
strMsg = "Hello! Heb een goede nacht! "

End If
Naleving = strMsg
End Function

Daarna om de code te noemen, gebruiken we een tekstvak en als de oorsprong van het toezicht op de naleving schrijven = ().

Download: Compliance