Можете да използвате функцията Command , за да върнете аргумент част от команден ред, използвана за стартиране на Microsoft Office Access 2007.
Забележки
Когато 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, за да извикате тази процедура автоматично при отваряне на базата данни.
