Funkciju Command možete da koristite da biste vratili argument deo komandna linija koji se koristi za pokretanje Microsoft Office Access 2007.
Napomene
Kada se Access pokrene sa komandne linije, bilo koji deo komandne linije koji prati opciju /cmd se prosleđuje programu kao argument komandne linije. Možete da koristite funkciju Command 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 u komandnoj liniji .
Komanda će sada vratiti novi argument koji ste uneli.
Kada se funkcija Command koristi bilo gde osim u programu Visual Basic for APPLICATIONS (VBA) u modulu, morate da dodate prazne zagrade posle funkcije. Na primer, da biste koristili funkciju Command u okviru za tekst u obrascu, polje za tekst ControlSource možete da konfigurišete 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 prikazuje kako da pokrenete Access pomoću argumenta komandne linije, a zatim prikazuje kako da vratite vrednost ovog argumenta pomoću funkcije Command .
Da biste testirali ovaj primer, kliknite na dugme Start Windows i kliknite na dugme Pokreni. U polju za trиanje otkucajte sledeći kôd. (Delove informacija komandne linije morate da okružite navodnicima).
"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 trgovaca 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 za porudžbine. Možete da kreirate makro AutoExec da biste automatski pozvali ovu proceduru kada se otvori baza podataka.
