Galite naudoti komandą norėdami grąžinti komandų eilutė, naudojamos paleisti Microsoft Office Access 2007, argumentas dalį.
Pastabos
Kai "Access" paleidžiama iš komandinės eilutės, bet kokia po /cmd parinktimi esanti komandų eilutės dalis perduodama programai kaip komandų eilutės argumentas. Galite naudoti funkciją Command , kad būtų pateiktas perduotas argumentas.
Norėdami pakeisti komandų eilutės argumentą atidarius duomenų bazę:
-
Meniu Failas spustelėkite "Access" parinktys.
-
Dialogo lange Programos parametrai spustelėkite Išsamiau.
-
Lauke Komandų eilutės argumentai įveskite naują argumentą.
Dabar komandos funkcija pateiks naują įvestą argumentą.
Kai komandos funkcija naudojama kur nors kitur, o ne "Visual Basic for Applications" (VBA) kode modulyje, po funkcijos reikia įterpti tuščius skliaustus. Pavyzdžiui, norėdami naudoti funkciją Command formos teksto lauke, teksto lauko ypatybę ControlSource reikėtų nustatyti kaip išraiška, pvz.:
=Command()
Pavyzdys
Pastaba: Pateiktuose pavyzdžiuose parodyta, kaip naudoti šią funkciją „Visual Basic for Applications“ (VBA) modulyje. Daugiau informacijos apie darbą su VBA rasite išplečiamajame sąraše pasirinkę Kūrėjų nuoroda (šalia Ieškos) ir ieškos lauke įvedę vieną ar daugiau sąlygų.
Toliau pateiktame pavyzdyje parodyta, kaip paleisti "Access" su komandų eilutės argumentu, tada parodoma, kaip grąžinti šio argumento reikšmę naudojant funkciją Command .
Norėdami išbandyti šį pavyzdį, spustelėkite "Windows" mygtuką Pradėti , tada spustelėkite Vykdyti. Įveskite šį kodą lauke Vykdyti vienoje eilutėje. (Komandų eilutės informacijos dalis turite išskirti kabutėse).
"C:\Program Files\Microsoft Office\Office11\Msaccess.exe" _
"C:\Program Files\Microsoft Office\Office11\Samples\Northwind.mdb" /cmd "Orders"
Tada sukurkite naują modulį "Northwind Traders" duomenų bazės pavyzdyje ir įtraukite šią antrinę procedūrą:
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
Kai iškviečiate šią procedūrą, "Access" atidaro formą Užsakymai. Galite sukurti makrokomandą AutoExec, kad automatiškai iškviestumėte šią procedūrą atidarius duomenų bazę.
