Discussion :

[aouregan]

J'arrive à afficher le UserName dans un formulaire en indiquant dans une zone la fonction =Fct_UserName() qui a été définie dans le module

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Option Compare Database
Option Explicit
Declare Function wu_GetUserName Lib "advapi32.dll" Alias _
    "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Function Fct_UserName() As String
    Dim Z_Name As String
    Dim Z_Filler As Long
    Z_Name = String$(255, 0)
    Z_Filler = wu_GetUserName(Z_Name, 255)
    Fct_UserName = Left(Z_Name, InStr(1, Z_Name, Chr(0)) - 1)
End Function

Mais comment stocker ce UserName dans la table correspondant au formulaire en question ?

[Maxence HUBICHE]

tu mets cette fonction dans la propriété valeur par défaut du contrôle qui pointe vers le champ dans lequel tu veux stocker la valeur

[Heureux-oli]

Bonjour et bienvenue sur le Forum Access.

As-tu essaye de mettre cette fonction en valeur par défaut du contrôle qui correspond à ton champ ?

Code :

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

=Fct_UserName()

Tu peux aussi l'affecter au travers de VBA à un contrôle de ton formulaire

Code :

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

Me.moncontrole = Fct_UserName()

[Domi2]

Bonjour,

Il existe également une fonction prédéfinie (à vérifier selon la version).

Code :

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

Environ("Username")

Domi2

[Heureux-oli]

Bonjour,

Il existe également une fonction prédéfinie (à vérifier selon la version).

Code :

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

Environ("Username")

Domi2

C'est exact, mais j'ai déjà pu constater que dans certains cas, il n'est pas possible de l'utiliser. Si ça marche, c'est extra, si pas il faut trouver une solution de rechange.

[aouregan]

La réponse de Maxence qui est suffisamment simple pour mon niveau de néophite fonctionne très bien. Merci à tous pour la répidité de vos réponses.