Функцию Command можно использовать для возврата аргумент части командная строка, используемой для запуска Access.
Замечания
При запуске Access из командной строки любая часть командной строки, следующая за параметром /cmd, передается программе в качестве аргумента командной строки. Функцию Command можно использовать для возврата переданного аргумента.
Чтобы изменить аргумент командной строки после открытия базы данных, выполните следующие действия:
-
В меню Файл выберите пункт Параметры Access.
-
В диалоговом окне Параметры приложения выберите категорию Дополнительно.
-
В поле Аргументы командной строки введите новый аргумент.
После этого функция Command будет возвращать введенный аргумент.
Если функция Command используется где-либо, кроме кода Visual Basic для приложений (VBA) в модуле, после нее следует вводить пустые круглые скобки. Например, чтобы использовать функцию Command в текстовом поле формы, для свойства Данные (ControlSource) текстового поля следует задать следующее выражение:
=Command()
Пример
Примечание: В примерах ниже показано, как использовать эту функцию в модуле Visual Basic для приложений (VBA). Чтобы получить дополнительные сведения о работе с VBA, выберите Справочник разработчика в раскрывающемся списке рядом с полем Поиск и введите одно или несколько слов в поле поиска.
В данном примере показано, как запустить Access с помощью аргумента командной строки и вернуть значение данного аргумента, используя функцию Command.
Чтобы проверить этот пример, в Windows нажмите кнопку Пуск и выберите команду Выполнить. Введите указанный ниже код в поле Открыть одной строкой. (Части командной строки необходимо заключить в кавычки.)
"C:\Program Files\Microsoft Office\Office11\Msaccess.exe" _
"C:\Program Files\Microsoft Office\Office11\Samples\Northwind.mdb" /cmd "Orders"
Затем создайте новый модуль в учебной базе данных "Борей" и добавьте следующую процедуру Sub:
Public Sub CheckCommandLine()
' Check the value returned by Command function and display
' the appropriate form.
If Command = "Orders" Then
DoCmd.OpenForm "Orders"
ElseIf Command = "Employees" Then
DoCmd.OpenForm "Employees"
Else
Exit Sub
End If
End Sub
При вызове данной процедуры Access открывает форму Orders (Заказы). Чтобы автоматически вызывать эту процедуру при открытии базы данных, можно создать макрос AutoExec.
