Pomocí funkce Command můžete vrátit část argumentu příkazového řádku použitou 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 (jazyk Visual Basic for Application) v modulu, musíte za funkcí zahrnout prázdné závorky. Pokud například chcete použít funkci Command v textovém poli ve formuláři, nastavili byste vlastnost ControlSource textového pole na výraz podobný následujícímu:
=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.