Du kan bruke Kommando-funksjonen til å returnere den argument delen av kommandolinje som brukes til å starte Access.
Merknader
Når Access startes fra kommandolinjen, sendes alle deler av kommandolinjen som følger alternativet /cmd , til programmet som kommandolinjeargument. Du kan bruke Kommando-funksjonen til å returnere argumentet som er sendt.
Slik endrer du et kommandolinjeargument når en database er åpnet:
-
Klikk Alternativer for Access på Fil-menyen.
-
Klikk Avansert i dialogboksen Programinnstillinger.
-
Skriv inn et nytt argument i boksen Kommandolinjeargumenter .
Kommando-funksjonen returnerer nå det nye argumentet du har angitt.
Når Kommando-funksjonen 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 kontrollkildeegenskapen for tekstboksen til en uttrykk som følgende:
=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 viser deretter hvordan du returnerer verdien av dette argumentet ved hjelp av Kommando-funksjonen .
Hvis du vil teste dette eksemplet, klikker du Start-knappen i Windows og klikker Kjør. Skriv inn følgende kode i Kjør-boksen på én enkelt linje. (Du må omslutte delene av kommandolinjeinformasjonen i anførselstegn).
"C:\Program Files\Microsoft Office\Office11\Msaccess.exe" _
"C:\Program Files\Microsoft Office\Office11\Samples\Northwind.mdb" /cmd "Orders"
Deretter oppretter du en ny modul i eksempeldatabasen Northwind Traders og legger til følgende Sub-prosedyre :
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, åpner Access ordreskjemaet. Du kan opprette en AutoExec-makro for å kalle denne prosedyren automatisk når databasen åpnes.
