Nom d'utilisateur en valeur par défaut

[vinze60]

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

[Philippe JOCHMANS]

Bonjour

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

Philippe

[vinze60]

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]

Bonjour,

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

 
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]

Salut,

Une autre solution,

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.

=Environ("UserName")

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

[vinze60]

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]

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]

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]

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

"=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]

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]

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]

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]

Voilà un exemple

[vinze60]

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

[Heureux-oli]

Ça fonctionne sous 97, mais pas sur 2003 ni 2007.
Pour les autres versions, je n'ai pas essayé.