Command-funktiolla voit palauttaa sen komentorivin argumenttiosan, jolla Microsoft Office Access 2007 on käynnistetty.
Huomautuksia
Kun käynnistät Accessin komentoriviltä, kaikki /cmd-valintaa seuraavat komentorivin osat välitetään ohjelmaan komentorivin argumenttina. Komento-funktiolla voit palauttaa välitetyn argumentin.
Kun tietokanta on avattu, voit muuttaa komentorivin argumentin seuraavasti:
-
Valitse Tiedosto-valikosta Accessin asetukset.
-
Valitse Sovelluksen asetukset-valintaikkunassa Lisäasetukset.
-
Lisää uusi argumentti Komentorivin argumentit -ruutuun.
Komento-funktio palauttaa tämän jälkeen lisäämäsi uuden argumentin.
Kun Command-funktiota käytetään muualla kuin moduulin VBA (Visual Basic for Applications) -koodissa, funktion jälkeen täytyy lisätä tyhjät sulkeet. Jos esimerkiksi haluat käyttää Command-funktiota lomakkeen muokkausruudussa, määritä muokkausruudun OhjausobjektinLähde-ominaisuuden asetukseksi lauseke seuraavalla tavalla:
=Command()
Esimerkki
Huomautus: Seuraavissa esimerkeissä kerrotaan, kuinka tätä funktiota käytetään Visual Basic for Applications (VBA) -moduulissa. Jos haluat lisätietoja VBA:n käytöstä, valitse Sovelluskehittäjän opasHaku-kentän viereisestä luettelosta ja anna yksi tai useampi hakuehto hakukenttään.
Seuraavassa esimerkissä näytetään, kuinka Access käynnistetään komentoriviargumentilla ja kuinka argumentin arvo palautetaan Command-funktiolla.
Testaa tämä esimerkki napsauttamalla Windowsin Käynnistä-painiketta ja valitsemalla Suorita. Kirjoita seuraava koodi yksittäisen rivin Suorita-ruutuun . (Komentorivin tietojen osat on ympäröitävä lainausmerkeissä.
"C:\Program Files\Microsoft Office\Office11\Msaccess.exe" _
"C:\Program Files\Microsoft Office\Office11\Samples\Northwind.mdb" /cmd "Orders"
Luo seuraavaksi uusi moduuli Northwind Traders -mallitietokantaan ja lisää seuraava Sub-toimintosarja:
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
Kun kutsut tämän toimintosarjan, Access avaa Orders (Tilaukset) -lomakkeen. Voit luoda automaattisesti suoritettavan makron, joka kutsuu tämän toimintosarjan automaattisesti, kun tietokanta avataan.
