Du kan bruge funktionen Kommando til at returnere den argument del af kommandolinje , der bruges til at starte Access.
Bemærkninger
Når Access startes fra kommandolinjen, videregives den del af kommandolinjen, der følger efter indstillingen /cmd, til programmet som kommandolinjeargument. Du kan bruge funktionen Kommando til at returnere det argument, der er blevet videregivet.
Sådan ændres et kommandolinjeargument, når en database er blevet åbnet:
-
I menuen Filer skal du klikke på Access-indstillinger.
-
I dialogboksen Programindstillinger skal du klikke på Avanceret.
-
Skriv et nyt argument i feltet Kommandolinjeargumenter.
Funktionen Kommando returnerer nu det nye argument, du har angivet.
Når funktionen Kommando anvendes andetsteds end i VBA-kode (Visual Basic for Applications) i et modul, skal du medtage tomme parenteser efter funktionen. Hvis du for eksempel vil bruge funktionen Kommando i et tekstfelt i en formular, skal du angive egenskaben Kontrolelementkilde for tekstfeltet til en udtryk således:
=Command()
Eksempel
Bemærk!: Følgende eksempler demonstrerer brugen af denne funktion i et VBA-modul (Visual Basic for Applications). Hvis du vil have mere at vide om at arbejde med VBA, skal du vælge Udviklerreference på rullelisten ud for Søg og skrive ét eller flere ord i søgefeltet.
I følgende eksempel vises det, hvordan Access startes med et kommandolinjeargument, og derefter vises det, hvordan du returnerer værdien af dette argument ved hjælp af funktionen Kommando.
Hvis du vil teste dette eksempel, skal du klikke på knappen Start i Windows og klikke på Kør. Skriv følgende kode i feltet Kør på en enkelt linje. Du skal omslutte kommandolinjeoplysningernes dele med anførselstegn.
"C:\Program Files\Microsoft Office\Office11\Msaccess.exe" _
"C:\Program Files\Microsoft Office\Office11\Samples\Northwind.mdb" /cmd "Orders"
Dernæst skal du oprette et nyt modul i eksempeldatabasen Northwind Traders og tilføje følgende Sub-procedure:
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 kalder denne procedure, åbner Access formularen Ordrer. Du kan oprette en AutoExec-makro for at kalde denne procedure automatisk, når databasen åbnes.