Funkciju Command možete koristiti da biste vratili deo argumenta komandne linije koja se koristi za pokretanje programa Access.
Napomene
Kada se Access pokrene sa komandne linije, svaki deo komandne linije koji sledi opciju /cmd prosleđuje se programu kao argument komandne linije. Funkciju Command možete da koristite da biste vratili argument koji je prosleđen.
Da biste promenili argument komandne linije kada se baza podataka otvori, uradite sledeće:
- On the File menu, click Access Options.
- U dijalogu "Postavke aplikacije " izaberite stavku "Više opcija".
- Unesite novi argument u polje za argumente komandne linije .
Funkcija Command će sada vratiti novi argument koji ste uneli.
Kada se funkcija Command koristi na bilo kom drugom mestu osim u Visual Basic for Applications (VBA) kodu u modulu, morate da stavite prazne zagrade iza funkcije. Na primer, da biste koristili funkciju Command u okviru za tekst u obrascu, postavili biste svojstvo "Izvor kontrole " okvira za tekst na izraz nalik sledećem:
=Command()
Primer
Napomena
Primeri koji slede pokazuju upotrebu ove funkcije u Visual Basic for Applications (VBA) modulu. Za više informacija o radu sa VBA modulom izaberite stavku Referenca razvojnog programera sa padajuće liste pored stavke Pretraga i unesite termine u polje za pretragu.
Sledeći primer pokazuje kako da pokrenete Access sa argumentom komandne linije, a zatim pokazuje kako da dobijete vrednost ovog argumenta pomoću funkcije Command .
Da biste testirali ovaj primer, kliknite na Windows dugme "Start " i kliknite na dugme "Pokreni". Otkucajte sledeći kôd u polju "Pokreni " u jednom redu. (Delove informacija komandne linije morate da stavite pod navodnike.)
"C:\Program Files\Microsoft Office\Office11\Msaccess.exe" _
"C:\Program Files\Microsoft Office\Office11\Samples\Northwind.mdb" /cmd "Orders"
Zatim kreirajte novi modul u uzorku baze podataka Northwind Traders i dodajte sledeću Sub proceduru:
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
Kada pozovete ovu proceduru, Access otvara obrazac "Porudžbine". Možete da napravite AutoExec makro koji automatski poziva ovu proceduru kada se otvori baza podataka.