Puteți utiliza funcția Command pentru a returna porțiunea argument a linie de comandă utilizate pentru a lansa Access.
Observații
Atunci când Access este lansat din linia de comandă, orice porțiune a liniei de comandă care urmează opțiunii /cmd este transmisă programului ca argument în linia de comandă. Puteți utiliza funcția Command pentru a returna argumentul care a fost transmis.
Pentru a modifica un argument în linia de comandă după ce a fost deschisă o bază de date:
-
În meniul Fișier , faceți clic pe Opțiuni Access.
-
În caseta de dialog Setări aplicație , faceți clic pe Complex.
-
Introduceți un argument nou în caseta Argumente linie de comandă .
Funcția Command va returna acum noul argument pe care l-ați introdus.
Atunci când funcția Command este utilizată în alt loc decât în cod Visual Basic for Applications (VBA) într-un modul, trebuie să includeți paranteze goale după funcție. De exemplu, pentru a utiliza funcția Command într-o casetă text dintr-un formular, setați proprietatea ControlSource a casetei text la o expresie ca următoarea:
=Command()
Exemplu
Notă: Exemplele care urmează demonstrează utilizarea acestei funcții într-un modul Visual Basic for Applications (VBA). Pentru mai multe informații despre lucrul cu VBA, selectați Referințe pentru dezvoltatori în lista verticală de lângă Căutare și introduceți unul sau mai mulți termeni în caseta de căutare.
Următorul exemplu arată cum să lansați Access cu un argument în linia de comandă, apoi vă arată cum să returnați valoarea acestui argument utilizând funcția Command .
Pentru a testa acest exemplu, faceți clic pe butonul Start din Windows și faceți clic pe Executare. Tastați următorul cod în caseta Rulare pe o singură linie. (Trebuie să încadrați părțile informațiilor din linia de comandă între ghilimele).
"C:\Program Files\Microsoft Office\Office11\Msaccess.exe" _
"C:\Program Files\Microsoft Office\Office11\Samples\Northwind.mdb" /cmd "Orders"
În continuare, creați un modul nou în baza de date eșantion Northwind Traders și adăugați următoarea procedură 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
Atunci când apelați această procedură, Access deschide formularul Comenzi. Puteți crea o macrocomandă AutoExec pentru a apela această procedură automat atunci când se deschide baza de date.