Funkcja Command umożliwia zwrócenie argument części wiersz polecenia używanej do uruchamiania programu Access.
Uwagi
Po uruchomieniu programu Access z wiersza polecenia dowolna część wiersza polecenia, która następuje po opcji /cmd , jest przekazywana do programu jako argument wiersza polecenia. Funkcja Command umożliwia zwrócenie przekazanego argumentu.
Aby zmienić argument wiersza polecenia po otwarciu bazy danych:
-
W menu Plik kliknij polecenie Opcje programu Access.
-
W oknie dialogowym Ustawienia aplikacji kliknij pozycję Zaawansowane.
-
Wprowadź nowy argument w polu Argumenty wiersza polecenia .
Funkcja Command zwróci teraz wprowadzony nowy argument.
Jeśli funkcja Polecenia jest używana w dowolnym innym miejscu niż kod języka Visual Basic for Applications (VBA) w module, po funkcji należy dołączyć puste nawiasy. Aby na przykład użyć funkcji Command w polu tekstowym formularza, należy ustawić właściwość ŹródłoFormantu pola tekstowego na wyrażenie, na przykład następującą:
=Command()
Przykład
Uwaga: Poniższe przykłady przedstawiają sposób użycia tej funkcji w module języka Visual Basic for Applications (VBA). Aby uzyskać dodatkowe informacje na temat pracy w języku VBA, wybierz pozycję Dokumentacja dewelopera z listy rozwijanej obok przycisku Wyszukaj i wprowadź odpowiednie terminy w polu wyszukiwania.
W poniższym przykładzie pokazano, jak uruchomić program Access z argumentem wiersza polecenia, a następnie pokazano, jak zwrócić wartość tego argumentu przy użyciu funkcji Command .
Aby przetestować ten przykład, kliknij przycisk Start systemu Windows i kliknij pozycję Uruchom. Wpisz następujący kod w polu Uruchom w jednym wierszu. (Części informacji wiersza polecenia należy owiać w cudzysłów).
"C:\Program Files\Microsoft Office\Office11\Msaccess.exe" _
"C:\Program Files\Microsoft Office\Office11\Samples\Northwind.mdb" /cmd "Orders"
Następnie utwórz nowy moduł w przykładowej bazie danych Northwind Traders i dodaj następującą procedurę Podrzędna :
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
Po wywołaniu tej procedury program Access otworzy formularz Zamówienia. Aby wywołać tę procedurę automatycznie po otwarciu bazy danych, można utworzyć makro AutoExec.
