Du kan bruke kommandofunksjonen til å returnere argumentdelen av kommandolinjen som brukes til å starte Access.
Merknader
Når Access startes fra kommandolinjen, sendes enhver del av kommandolinjen som følger /cmd-alternativet , til programmet som kommandolinjeargument. Du kan bruke kommandofunksjonen til å returnere argumentet som har blitt sendt.
Slik endrer du et kommandolinjeargument når en database er åpnet:
- Klikk Alternativer for Access på Fil-menyen.
- Klikk på Avansert, i dialogboksen Programinnstillinger.
- Skriv inn et nytt argument i boksen for argumenter på kommandolinjen .
Kommando-funksjonen vil nå returnere det nye argumentet du har angitt.
Når kommandofunksjonen brukes andre steder enn i VBA-kode (Visual Basic for Applications) i en modul, må du ta med tomme parenteser etter funksjonen. Hvis du for eksempel vil bruke Kommando-funksjonen i en tekstboks i et skjema, angir du ControlSource-egenskapen for tekstboksen til et uttrykk som ser slik ut:
=Command()
Eksempel
Obs!
I eksemplene nedenfor vises bruken av denne funksjonen i en VBA-modul (Visual Basic for Applications). Hvis du vil ha mer informasjon om hvordan du arbeider med VBA, velger du Utviklerreferanse fra rullegardinlisten ved siden av Søk og skriver inn ett eller flere søkeord i søkeboksen.
Følgende eksempel viser hvordan du starter Access med et kommandolinjeargument, og deretter hvordan du returnerer verdien av dette argumentet ved hjelp av Kommando-funksjonen .
Du tester dette eksemplet ved å klikke Start-knappen i Windows og deretter Kjør. Skriv inn følgende kode i Kjør-boksen på én enkelt linje. (Du må omslutte delene av informasjonen på kommandolinjen med anførselstegn).
"C:\Program Files\Microsoft Office\Office11\Msaccess.exe" _
"C:\Program Files\Microsoft Office\Office11\Samples\Northwind.mdb" /cmd "Orders"
Opprett deretter en ny modul i eksempeldatabasen Northwind Traders, og legg til følgende underprosedyre :
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
Når du kaller denne prosedyren, åpnes ordreskjemaet i Access. Du kan opprette en AutoExec-makro for å kalle denne prosedyren automatisk når databasen åpnes.