Komandų funkcija

Taikoma
„Access“, skirta „Microsoft 365“ „Access 2024“ Access 2021 Access 2019 Access 2016

Galite naudoti funkciją "Command", kad būtų pateikta komandinės eilutės, naudotos paleisti "Access", argumento dalis.

Pastabos

Kai "Access" paleidžiama iš komandinės eilutės, bet kuri komandinės eilutės dalis, einanti po /cmd parinkties, perduodama programai kaip komandų eilutės argumentas. Galite naudoti komandos funkciją, kad būtų pateiktas argumentas, kuris buvo perduotas.

Norėdami pakeisti komandų eilutės argumentą atidarius duomenų bazę:

  1. Meniu Failas spustelėkite Prieigos parinktys.
  2. Dialogo lange Programos parametrai spustelėkite Išplėstiniai.
  3. Įveskite naują argumentą lauke Komandų eilutės argumentai .

Funkcija Command pateiks naują įvestą argumentą.

Kai funkcija "Command" naudojama kur nors kitur nei modulio "Visual Basic for Applications" (VBA) kode, po funkcijos turite įterpti tuščius skliaustus. Pavyzdžiui, norėdami naudoti funkciją Command formos teksto lauke, turite nustatyti teksto lauko ypatybę ControlSource į reiškinį, 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" naudojant komandų eilutės argumentą, tada rodoma, kaip grąžinti šio argumento reikšmę naudojant komandų funkciją.

Norėdami išbandyti šį pavyzdį, spustelėkite "Windows" pradžios mygtuką, tada spustelėkite Paleisti. Įveskite šį kodą į lauką Vykdyti vienoje eilutėje. (Komandinės eilutės informacijos dalis turite išskirti kabutėmis).


"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ą papildomą 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 ši procedūra būtų iškviečiama automatiškai, kai atidaroma duomenų bazė.