Доступ Примеры

Добавлено в понедельник, 14 января 2008 - 16:24 | по администратора |

Через небольшой код, который мы можем приветствовать пользователей в зависимости от времени при открытии формы. В этом примере мы можем видеть три различных сообщения:
1 утра до 12:00;
2-Up в 19:00 Добрый день;
3 с 19:00 до 00:00 Добрый вечер.

Просто нужен небольшой код, который выглядит следующим образом:

Общественный Приветствие Function ()
Dim strMsg As String

Если время <# 12:00:00 # Тогда
strMsg = "Hello! Хорошего дня! "
ElseIf время <= # 7:00:00 PM # Тогда
strMsg = "Hello! Добрый день! "
Еще
strMsg = "Hello! У спокойной ночи! "

End If
Соблюдение = strMsg
End Function

Затем для вызова кода, мы используем текстовое поле и как источник мониторинга соблюдения писать = ().

Скачать: Соответствие