Funkciju Command možete koristiti da biste vratili argument dijela programa redak naredbe za pokretanje programa Access.
Napomene
Kada se Access pokrene iz naredbenog retka, bilo koji dio naredbenog retka koji slijedi mogućnost /cmd prosljeđuje se programu kao argument naredbenog retka. Pomoću funkcije Command možete vratiti proslijeđeni argument.
Da biste nakon otvaranja baze podataka promijenili argument naredbenog retka:
-
Na izborniku Datoteka kliknite Mogućnosti programa Access.
-
U dijaloškom okviru Postavke aplikacije kliknite Dodatno.
-
Unesite novi argument u okvir Argumenti naredbenog retka.
Funkcija Command sada će vratiti novi argument koji ste unijeli.
Kada se funkcija Command koristi bilo gdje drugdje osim u kodu programa Visual Basic for Applications (VBA) u modulu, nakon funkcije morate uvrstiti prazne zagrade. Da biste, primjerice, koristili funkciju Command u tekstnom okviru na obrascu, svojstvo ControlSource tekstnog okvira postavite na izraz kao što je sljedeće:
=Command()
Primjer
Napomena: Primjeri koji slijede prikazuju korištenje te funkcije u modulu jezika Visual Basic for Applications (VBA). Da biste pronašli dodatne informacije o radu s VBA-om, na padajućem popisu uz stavku Traži odaberite stavku Referenca za razvojne inženjere pa unesite jedan ili više izraza u okvir pretraživanja.
U sljedećem je primjeru prikazano kako pokrenuti Access pomoću argumenta naredbenog retka, a zatim se pokazuje kako vratiti vrijednost tog argumenta pomoću funkcije Command .
Da biste provjerili ovaj primjer, kliknite gumb Start sustava Windows, a zatim Pokreni. Upišite sljedeći kod u okvir Pokreni u jednom retku. (Dijelove informacija naredbenog retka morate okružiti navodnicima).
"C:\Program Files\Microsoft Office\Office11\Msaccess.exe" _
"C:\Program Files\Microsoft Office\Office11\Samples\Northwind.mdb" /cmd "Orders"
Zatim stvorite novi modul u oglednoj bazi podataka Northwind Traders i dodajte sljedeći potproječnik :
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 ovaj postupak, Access otvara obrazac Narudžbe. Makronaredbu AutoExec možete stvoriti da biste taj postupak automatski pozivali prilikom otvaranja baze podataka.
