Nom d'utilisateur en valeur par défaut

**vinze60** · 08/10/2008, 19h48

Bonjour,

Je savais pas trop où poster ce sujet, désoél si c'est pas le bon endroit

J'ai une table avec un champs "User" et j'aimerais que dans ce champs on trouver automatiquement le nom de l'utilisateur qui enregistre la ligne.

J'ai essayé "currentuser" dans la valeur par défaut, mais ça ne marche pas...

Qqn1 peut m'aider ?

Merci d'avance

Invité · 08/10/2008, 20h26

Bonjour

Comment comptais-tu mettre le nom de l'utilisateur dans ta table ? De quelle manière ?

Philippe

**vinze60** · 08/10/2008, 20h39

Et bien si je regarde dans les option Access, il y a deja mon nom dedans. Je pensais tout simplement qu'on pouvait le recuperer.

enf ait c'est le nom d'utilisateur de l'ordinateur.

**samuelsiffert** · 08/10/2008, 21h25

Bonjour,

Il "suffit" d'utiliser l'API GetUserName :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Public Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, NSize As Long) As Long
 
Function NomUtilisateur() As String
 
    Dim strBuffer As String * 255
    Dim lngTaille As Long
 
    lngTaille = Len(strBuffer)
    Call GetUserName(strBuffer, lngTaille)
    NomUtilisateur = Left(strBuffer, lngTaille)
    NomUtilisateur = Left(NomUtilisateur, Len(NomUtilisateur) - 1)
 
End Function

**Heureux-oli** · 08/10/2008, 21h29

Salut,

Une autre solution,

Code :

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

1
2
3
Public Function Utilisateur() as String
    Utilisateur = Environ("username")
End Function

Il suffit ensuite dans la valeur par défaut du champ d'utiliser la fonction comme n'importe quelle autre fonction.

Sur 97, on peut appeler directement la fonction Environ, à partir de 2003 ce n'est plus possible.

Code :

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

=Environ("UserName")

Dans le champ valeur par défaut.
Mais la solution de la fonction reste préférable.

**vinze60** · 08/10/2008, 21h31

Ha super !

Et il "suffit" de mettre ça où ? Pour que mon champs "User" ait le nom d'utilisateur en valeur par defaut ?

(Je parle pour Sam)

**vinze60** · 08/10/2008, 21h34

Désoél mais étant débutant... Où dois-je placer cette fonction ?

Suffit de me le dire une fois apres j'aurai compris

**Heureux-oli** · 08/10/2008, 21h55

Envoyé par vinze60

Suffit de me le dire une fois apres j'aurai compris

On espère bien .

Dans un module de ton application Access.

Et faire appel à la fonction, tu peux le faire au départ de ta table ou d'un formulaire.

**samuelsiffert** · 08/10/2008, 21h59

Tu mets le code dans un module.
On ne peut pas attribuer cette fonction dans la valeur par défaut du champ de la table.

Par contre tu peux attribuer cette fonction

Code :

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

"=NomUtilisateur()"

à la propriété "Valeur par défaut" du contrôle (éventuellement invisible) de ton formulaire lié au champ de la table.

J'espère être assez clair (voir image jointe).

Bon courage !

**vinze60** · 08/10/2008, 22h21

Merci beaucoup pour vos explications, merci Sam pour la miniature.

Effectivement je comprend mieux comment utiliser une fonction ainsi.

Mais ça ne fonctionne toujours pas ! Mon champs User reste vide... Par contre pas de message d'erreur ce qui me fait dire que j'ai pas fais de fausse manip

**Heureux-oli** · 08/10/2008, 22h26

Envoyé par samuelsiffert

Tu mets le code dans un module.
On ne peut pas attribuer cette fonction dans la valeur par défaut du champ de la table.

As-tu déjà essayé ?

Moi oui et ça fonctionne.

**vinze60** · 08/10/2008, 22h33

J'ai bien essayé de plusieur façon et en respectant bine ce que vous me dites mais... rien

Y'a rien écrit dans le chamsp si j'essai sur un formulaire

Et si j'essais sur ma table ça n'accepte meêm pas la fonction

**Heureux-oli** · 09/10/2008, 07h57

Voilà un exemple

**vinze60** · 09/10/2008, 19h53

D'accor, effectivement ça marche bien sur un formulaire mais sur une table (ce que je souhaitais) ça ne fonctionne pas.

Mais quand même, grace a toi j'ai trouvé une alternative pour faire ce que je veux.

Merci beaucoup