Bonjour a tous !

J'ai un petit problème avec mon code vb : je souhaiterais récupérer le nom de l'utilisateur windows de la personne qui utilise l'application access. J'utilise actuellement la fonction CurrentUser(), seul problème : dans ma table, peut importe l'utilisateur, la fonction me renvoie la valeur "admin".

Voici mon code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
 
    Dim SQL As String
    SQL = "INSERT INTO Historique VALUES (CurrentUser(), Now(),'Registre GE')"
    If DCount("[Mot de Passe]", "Controleurs GE", "[Mot de Passe]=Forms![PasseGE]![Recherche]") > a Then
        DoCmd.SetWarnings False
        DoCmd.RunSQL SQL
        DoCmd.SetWarnings True
Je peux peut-être contourner ce problème grâce a une variable dans mon formulaire qui récupère un autre nom de login a peu près équivalent a l'utilisateur windows, j'ai utilisé plusieurs solutions dont ces deux là, mais malheureusement aucune ne marche, elle me renvoient des erreurs :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
user = Forms("PasseGE").Controls("Nom").Value
 
	user = Me.Nom.Value
 
	user = Environ("Username")
 
        SQL = "INSERT INTO Historique VALUES (" & user & ", Now(),'Registre GE')"
Merci d'avance