Vous pouvez utiliser la fonction Command pour retourner la partie argument du ligne de commande utilisé pour lancer Access.
Notes
Quand Access est lancé à partir de la ligne de commande, toute partie de la ligne de commande qui suit l’option /cmd est passée au programme en tant qu’argument de ligne de commande. Vous pouvez utiliser la fonction Command pour retourner l’argument qui a été passé.
Pour modifier un argument de ligne de commande une fois qu’une base de données a été ouverte :
-
Dans le menu Fichier , cliquez sur Options d’accès.
-
Dans la boîte de dialogue Paramètres de l’application , cliquez sur Avancé.
-
Entrez un nouvel argument dans la zone Arguments de ligne de commande.
La fonction Command retourne maintenant le nouvel argument que vous avez entré.
Lorsque la fonction Command est utilisée ailleurs que dans le code Visual Basic pour Applications (VBA) dans un module, vous devez inclure des parenthèses vides après la fonction. Par exemple, pour utiliser la fonction Command dans une zone de texte d’un formulaire, vous devez définir la propriété ControlSource de la zone de texte sur un expression comme suit :
=Command()
Exemple
Remarque : Les exemples suivants illustrent l’utilisation de cette fonction dans un module Visual Basic pour Applications (VBA). Pour plus d’informations sur l’utilisation de VBA, sélectionnez Référence du développeur dans la liste déroulante en regard de Rechercher et entrez un ou plusieurs termes dans la zone de recherche.
L’exemple suivant montre comment lancer Access avec un argument de ligne de commande, puis comment retourner la valeur de cet argument à l’aide de la fonction Command .
Pour tester cet exemple, cliquez sur le bouton Démarrer de Windows, puis sur Exécuter. Tapez le code suivant dans la zone Exécuter sur une seule ligne. (Vous devez entourer les parties des informations de ligne de commande entre guillemets).
"C:\Program Files\Microsoft Office\Office11\Msaccess.exe" _
"C:\Program Files\Microsoft Office\Office11\Samples\Northwind.mdb" /cmd "Orders"
Ensuite, créez un module dans l’exemple de base de données Northwind Traders et ajoutez la procédure Sub suivante :
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
Lorsque vous appelez cette procédure, Access ouvre le formulaire Commandes. Vous pouvez créer une macro AutoExec pour appeler cette procédure automatiquement lorsque la base de données est ouverte.
