Discussion :

[lerico]

Salut,

J'ai un problème par rapport à la fonction 'Environ'.
Cette fonction fonctionne parfaitement dans mes modules, toutes les références sont correctes.
Par contre, impossible de la faire fonctionner dans les requêtes access, j'ai systématiquement le message "Fonction 'Environ' non définie dans l'expression".
J'ai réinstaller Access XP sans résultat.

Avez-vous déjà eu ce problème.

Merci,
Lerico

[6ril25]

Salut,

"Environ" est une fonction Vba et non Sql me semble-t'il...

Si tu veux avoir la valeur d'Environ, tu devras passer par un formulaire et y faire référence dans ta requete SQL, ou écrire la requete dans le code...

6ril

[Invité]

Bonjour

Essayes de mettre cette fonction dans une autre fonction, et d'utiliser cette dernière dans ta requête.

Starec

[lerico]

Merci pour vos réponses.

J'ai effectivement construit une autre requête simple avec la fonction environ et j'ai le même problème.

Pourtant cette fonction existe bien dans le référentiel d'Access.

Je sèche.
Je viens de regarder sur le site de Microsoft, rien de plus.
Sur d'autres postes que j'ai, je n'ai aucun souci.
Mais mon poste principal ne veux plus reconnaitre la fonction.

Je pourrais convertir mes requêtes en vba mais c'est quand même bizarre.

Est-ce que cela peut être lié à la langue gérée dans Office ?

Merci pour votre aide.

[lerico]

Je viens de créer dans un module la petit fonction ci-dessous :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Function test()
Dim usernom As Variant
usernom = Environ("username")
End Function

Bah, ça marche trés bien.
Impossible de l'avoir sous les requêtes Access. Marche pas sur mon poste ???

J'ai du déinstaller quelque chose.

[6ril25]

Montre nous ta requete pour voir...

[lerico]

Pour information, j'ai réussi à contourner le problème avec cette fonction :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Function Environ(VarName)
    Dim wss, env
    Set wss = CreateObject("WScript.Shell")
    Set env = wss.environment("process")
    Environ = env(VarName)
    If Environ = "" Then
        Set env = wss.environment("system")
        Environ = env(VarName)
    End If
End Function

Si je ne met pas cette fonction, toutes les requêtes avec un filtre environ("username") ne fonctionnent pas.

Ceci corrige mon problème mais je n'arrive toujours pas à comprendre ce qui a pu désactiver cette fonction.

Merci à tous,

Lerico

[cjlhe]

Bonjour

j'ai le même problème que vous avec environ('username').

J'ai fait une application qui sera ouverte soit en Access 2003 ou en Web Access.
Cette application ouvre un formulaire en fonction de l'utilisateur que je récupère par un filtre environ('username').

Cela fonctionne sur certains postes et pas sur d'autres.
Le message est fonction "environ" non définie ...

Question : A quel endroit je dois mettre cette fonction et comment l'utiliser ?

Merci

[martinbrait]

Je viens de créer dans un module la petit fonction ci-dessous :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Function test()
Dim usernom As Variant
usernom = Environ("username")
End Function

Bah, ça marche trés bien.
Impossible de l'avoir sous les requêtes Access. Marche pas sur mon poste ???

J'ai du déinstaller quelque chose.

Erreur dans la fonction !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Function EnvironUsername()
EnvironUsername =  Environ("username")
End Function