[Access] Récupérer une variable d'environnement

Récupérer une variable d'environnement [Access] - VB/VBA/VBS - Programmation

Marsh Posté le 28-11-2002 à 10:31:56    

Hello, j'aimerai "personnaliser" mon appli en lisant une variable d'environnement définie sur chaque poste client (par un SET USERNAME=DEVELOxx par exple dans un autoexec.bat)
 
Comment récupérer la valeur d'une variable d'environnement Windows dans du code VB d'Access ??? j'ai fouillé l'aide, mais elle est tellement merdique que je n'ai rien trouvé !
(Access 97 pour info)
 
Merci d'avance.


---------------
Tout cul tendu mérite son dû
Reply

Marsh Posté le 28-11-2002 à 10:31:56   

Reply

Marsh Posté le 28-11-2002 à 10:56:58    

J'ai trouvé ça ?  
 
Exemple de fonction Command
 
L'exemple suivant vous montre comment lancer Microsoft Access avec un argument de la 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 et choisissez Exécuter. Tapez ce qui suit dans la boîte de dialogue Exécuter, sur une seule ligne, en faisant figurer des guillemets de part et d'autre des informations contenues dans la ligne de commande.
 
"C:\Program Files\Microsoft Office\Office\Msaccess.exe" _"C:\Program Files\Microsoft Office\Office\Exemples\Comptoir.mdb" _/cmd "Commandes"
Ensuite, ouvrez un nouveau module dans la base de données exemple Les comptoirs et ajoutez la fonction suivante.
 
Function VérifierLigneDeCommande()
    ' Vérifie la valeur retournée par la fonction Command.
    If Command = "Commandes" Then
        DoCmd.OpenForm "Commandes"
    ElseIf Command = "Employés" Then
        DoCmd.OpenForm "Employés"
    Else
        Exit Function
    End If
End Function

Reply

Marsh Posté le 03-12-2002 à 14:10:33    

vttman2 a écrit a écrit :

J'ai trouvé ça ?  
 
Exemple de fonction Command
 
L'exemple suivant vous montre comment lancer Microsoft Access avec un argument de la 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 et choisissez Exécuter. Tapez ce qui suit dans la boîte de dialogue Exécuter, sur une seule ligne, en faisant figurer des guillemets de part et d'autre des informations contenues dans la ligne de commande.
 
"C:\Program Files\Microsoft Office\Office\Msaccess.exe" _"C:\Program Files\Microsoft Office\Office\Exemples\Comptoir.mdb" _/cmd "Commandes"
Ensuite, ouvrez un nouveau module dans la base de données exemple Les comptoirs et ajoutez la fonction suivante.
 
Function VérifierLigneDeCommande()
    ' Vérifie la valeur retournée par la fonction Command.
    If Command = "Commandes" Then
        DoCmd.OpenForm "Commandes"
    ElseIf Command = "Employés" Then
        DoCmd.OpenForm "Employés"
    Else
        Exit Function
    End If
End Function
 




merci, je vais tester ça


---------------
Tout cul tendu mérite son dû
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed