Stocker le UserName en table

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:

---

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 ?

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

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:

---

=Fct_UserName()

---

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

Code:

---

Me.moncontrole = Fct_UserName()

---

Bonjour,

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

Code:

---

Environ("Username")

---

Domi2

Citation:

---

Envoyé par Domi2

Bonjour,

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

Code:

---

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.

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.