Funkciju Command možete koristiti da biste vratili argument deo komandna linija koji se koristi za Microsoft Office Access 2007.
Napomene
Kada se Access pokrene sa komandne linije, sav deo komandne linije koji prati 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 otvori baza podataka:
-
U meniju Datoteka izaberite stavku Access opcije.
-
U dijalogu Postavke aplikacije izaberite stavku Više opcija.
-
Unesite novi argument u polje Argumenti komandne linije .
Funkcija Command će sada vratiti novi argument koji ste uneli.
Kada se funkcija Command koristi bilo gde osim u Visual Basic for Applications (VBA) kodu u modulu, posle funkcije morate da uključite prazne zagrade. Na primer, da biste koristili funkciju Command u okviru za tekst u obrascu, postavili biste svojstvo okvira za tekst ControlSource na izraz na sledeći način:
=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 pomoću argumenta komandne linije, a zatim pokazuje kako da dobijete vrednost ovog argumenta pomoću funkcije Command .
Da biste testirali ovaj primer, kliknite na Windows Start dugme i izaberite stavku Pokreni. Otkucajte sledeći kôd u polju Pokreni u jednom redu. (Delove informacija komandne linije morate staviti pod znake navoda).
"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 Pod 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 kreirate makro AutoExec da biste automatski zvati ovu proceduru kada se baza podataka otvori.
