Pomocou funkcie Command môžete vrátiť časť argumentu príkazového riadka použitú na spustenie Accessu.
Poznámky:
Po spustení Accessu z príkazového riadka sa do programu ako argument príkazového riadka odovzdá ľubovoľná časť príkazového riadka, ktorá nasleduje za možnosťou /cmd . Funkciu Command môžete použiť na vrátenie argumentu, ktorý bol odovzdaný.
Zmena argumentu príkazového riadka po otvorení databázy:
- V ponuke Súbor kliknite na položku Možnosti programu Access.
- V dialógovom okne Nastavenie aplikácie kliknite na položku Rozšírené.
- Do poľa Argumenty príkazového riadka zadajte nový argument.
Funkcia Command teraz vráti nový argument, ktorý ste zadali.
Keď sa funkcia Command používa inde ako v module v kóde programu Visual Basic for Applications (VBA), za funkciou je nutné uviesť prázdne zátvorky. Ak chcete napríklad použiť funkciu Command v textovom poli vo formulári, nastavte vlastnosť ControlSource textového poľa na výraz, napríklad takto:
=Command()
Príklad
Poznámka
Nasledujúce príklady ukazujú použitie tejto funkcie v module jazyka Visual Basic for Applications (VBA). Ak chcete získať ďalšie informácie o práci s jazykom VBA, vyberte z rozbaľovacieho zoznamu vedľa položky Hľadať možnosť Odkaz pre vývojára a do vyhľadávacieho poľa zadajte nejaké výrazy.
Nasledujúci príklad ukazuje, ako spustiť Access s argumentom príkazového riadka, a potom znázorňuje, ako vrátiť hodnotu tohto argumentu pomocou funkcie Command.
Ak chcete tento príklad otestovať, kliknite na tlačidlo Štart vo Windowse a potom kliknite na položku Spustiť. Do poľa Spustiť zadajte nasledujúci kód v jednom riadku. (Časti s informáciami príkazového riadka je nutné dať do úvodzoviek).
"C:\Program Files\Microsoft Office\Office11\Msaccess.exe" _
"C:\Program Files\Microsoft Office\Office11\Samples\Northwind.mdb" /cmd "Orders"
V ďalšom kroku vytvorte nový modul vo vzorovej databáze Northwind Traders a pridajte nasledovnú procedúru 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
Pri zavolaní tejto procedúry Access otvorí formulár Objednávky. Môžete vytvoriť makro AutoExec a volať túto procedúru automaticky pri otvorení databázy.