Discussion :

[Dallemg]

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

[Dallemg]

Après quelques test, en utilisant Environ("username") dans un msgBox, il m'affiche bien mon login Windows, mais lorsque je le mets dans ma variable afin de pouvoir l'insérer dans ma table, lorsque j’exécute mon code, un inputBox (sauvage ) apparaît avec mon login windows mais en aucun cas il ne s'insert dans ma table.

Quelqu'un a-t-il déjà eu un problème semblable?

[PipoWIL]

Bonjour,

Enviro(Username) est tres bon mais la syntaxe de ton statement SQL n'est pas correcte. Regarde comment tu as écrit 'Registre GE' avec les deux appostrophes. Tu aurais dû les metre aussi pour le nom d'utilisateur.
Essaye ceci

Code :

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

1
2
3
    Dim SQL As String
    SQL = "INSERT INTO Historique VALUES ('" & Environ("Username") & "', '" & Now() & "', 'Registre GE')"
    CurrentDb.Execute SQL

[Dallemg]

Bonjour PipoWIL,
Effectivement je ne connais pas trop trop les syntaxes VBA, j'ai testé ta solution et ça marche, merci beaucoup !
Bonne journée à toi !