Tillgång Exempel

Postat måndagen den 14 januari, 2008 - 16:24 | av admin |

Genom en liten kod vi kan välkomna användaren beroende på vilken tid du öppnar formuläret. I detta exempel kan vi se tre olika meddelanden:
1-morgon till 12:00;
2-Upp vid 19:00 God eftermiddag;
3-Mellan 19:00 och 00:00 God kväll.

Bara behöver en liten kod, som är följande:

Public function Hälsning ()
Dim strMsg As String

Om tiden <# 12:00:00 # Sedan
strMsg = "Hello! Ha en trevlig dag! "
ElseIf Time <= # 07:00:00 # Sedan
strMsg = "Hello! God eftermiddag! "
Annars
strMsg = "Hello! Ha en god natt! "

End If
Överensstämmelse = strMsg
Änden Funktion

Sedan att ringa koden använder vi en textruta och som ursprung övervakning av efterlevnaden skriver = ().

Ladda ner: Efterlevnad