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:

  1. V nabídce Soubor klikněte na Možnosti aplikace Access.

  2. V dialogovém okně Nastavení aplikace klikněte na Upřesnit.

  3. 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.

Potřebujete další pomoc?

Chcete další možnosti?

Prozkoumejte výhody předplatného, projděte si školicí kurzy, zjistěte, jak zabezpečit své zařízení a mnohem více.

Komunity vám pomohou klást otázky a odpovídat na ně, poskytovat zpětnou vazbu a vyslechnout odborníky s bohatými znalostmi.