Puteți utiliza funcția Command pentru a returna porțiunea argument din linie de comandă utilizată pentru a lansa Microsoft Office Access 2007.
Observații
Atunci când este lansat Access din linia de comandă, orice porțiune din linia 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 din linia de comandă după deschiderea unei baze 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 în linia 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 codul Visual Basic for Applications (VBA) dintr-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, cum ar fi următoarele:
=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 vă 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 rulare. Tastați următorul cod în caseta rulare pe o singură linie. (Trebuie să înconjurați părțile din informațiile din linia de comandă în ghilimele).
"C:\Program Files\Microsoft Office\Office11\Msaccess.exe" _
"C:\Program Files\Microsoft Office\Office11\Samples\Northwind.mdb" /cmd "Orders"
Apoi, creați un modul nou în baza de date eșantion Northwind Traders și adăugați următoarea sub -procedură:
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 să creați o macrocomandă AutoExec pentru a apela automat această procedură atunci când se deschide baza de date.
