За допомогою функції Command можна повернути аргумент частину командний рядок, що використовується для запуску Access.
Примітки
Коли програма Access запускається з командного рядка, будь-яка частина командного рядка після параметра /cmd передається до програми як аргумент командного рядка. За допомогою функції Command можна повернути переданий аргумент.
Щоб змінити аргумент командного рядка у відкритій базі даних:
-
У меню Файл виберіть пункт Параметри Access.
-
У діалоговому вікні Параметри застосунку клацніть Додатково.
-
Введіть новий аргумент у полі Аргументи командного рядка.
Функція Command поверне новий введений аргумент.
Коли функція Command використовується не в коді модуля Visual Basic for Applications (VBA), після неї треба додати пусті дужки. Наприклад, щоб скористатися функцією Command у текстовому полі форми, потрібно задати властивості ControlSource текстового поля вираз, на кшталт цього:
=Command()
Приклад
Примітка.: У прикладах нижче показано використання цієї функції в модулі Visual Basic for Applications (VBA). Щоб отримати докладні відомості про використання модуля VBA, клацніть пункт Довідник розробника в розкривному списку поряд із полем Пошук і введіть у поле пошуку принаймні один термін.
У наведеному нижче прикладі показано, як запустити програму Access з аргументом командного рядка, а потім показано, як повернути значення цього аргументу, використовуючи функцію Command.
Щоб перевірити цей приклад, натисніть кнопку Пуск Windows і виберіть команду Виконати. Введіть наведений нижче код у полі Виконати в одному рядку. (Частини відомостей командного рядка потрібно взяти в лапки).
"C:\Program Files\Microsoft Office\Office11\Msaccess.exe" _
"C:\Program Files\Microsoft Office\Office11\Samples\Northwind.mdb" /cmd "Orders"
Після цього створіть новий модуль у зразку бази даних Northwind Traders і додайте наведену нижче процедуру 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 відкриється форма "Замовлення". Ви можете створити макрос AutoExec, щоб викликати цю процедуру автоматично, коли відкриватиметься база даних.
