Pomocí funkce Command můžete vrátit Argument část Příkazový řádek použité ke spuštění Accessu.
Poznámky
Když se Access spustí z příkazového řádku, předá se do programu jako argument příkazového řádku jakákoli část příkazového řádku, která následuje za parametrem /cmd . Pomocí funkce Command můžete vrátit předaný argument.
Změna argumentu příkazového řádku po otevření databáze:
-
V nabídce Soubor klikněte na Možnosti aplikace Access.
-
V dialogovém okně Nastavení aplikace klikněte na Upřesnit.
-
Do pole Argumenty příkazového řádku zadejte nový argument.
Funkce Command teď vrátí nový argument, který jste zadali.
Pokud se funkce Command používá kdekoli jinde než v kódu jazyka VBA (Visual Basic for Applications) v modulu, musíte za funkcí zahrnout prázdné závorky. Pokud chcete například použít funkci Command v textovém poli ve formuláři, nastavili byste vlastnost Zdroj ovládacího prvku textového pole na Výraz následujícím způsobem:
=Command()
Příklad
Poznámka: Následující příklady ukazují použití této funkce v modulu VBA (Visual Basic pro Applications). Pokud chcete další informace o práci s modulem VBA, vyberte Referenční informace pro vývojáře, které najdete v rozevíracím seznamu vedle položky Hledat a do vyhledávacího pole napište požadované pojmy.
Následující příklad ukazuje, jak spustit Access s argumentem příkazového řádku a pak ukazuje, jak vrátit hodnotu tohoto argumentu pomocí funkce Command .
Pokud chcete tento příklad otestovat, klikněte na tlačítko Start systému Windows a pak na Spustit. Do pole Spustit na jednom řádku zadejte následující kód. (Části informací příkazového řádku je nutné ohraničovat do uvozovek.)
"C:\Program Files\Microsoft Office\Office11\Msaccess.exe" _
"C:\Program Files\Microsoft Office\Office11\Samples\Northwind.mdb" /cmd "Orders"
Dále vytvořte nový modul v ukázkové databázi Northwind Traders a přidejte následující dílčí postup:
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
Když zavoláte tento postup, Access otevře formulář Objednávky. Můžete vytvořit makro AutoExec pro automatické volání této procedury při otevření databáze.