Funkci Command můžete použít k vrácení části argumentů příkazového řádku použitého ke spuštění Accessu.
Poznámky
Při spuštění aplikace Access z příkazového řádku je jako argument příkazového řádku programu předána veškerá část příkazového řádku, která následuje za parametrem /cmd . Funkci Command můžete použít k vrácení argumentu, který byl předán.
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 nyní vrátí nový argument, který jste zadali.
Pokud je funkce Command použitá jinde než v kódu jazyka VBA (jazyk Visual Basic for Application) v modulu, musíte za ni vložit prázdné závorky. Pokud byste například chtěli 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 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 jak vrátit hodnotu tohoto argumentu pomocí funkce Command .
Chcete-li vyzkoušet tento příklad, klikněte na tlačítko Start systému Windows a klikněte na příkaz Spustit. Do pole Spustit na jednom řádku zadejte následující kód. (Části informací příkazového řádku je nutné uzavřít 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í proceduru 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
Když zavoláte tento postup, Access otevře formulář Objednávky. Můžete vytvořit makro AutoExec, které tuto proceduru automaticky zavolá při otevření databáze.