Discussion :

[Bonero]

Bonjour a tous,
J’ai une table T1 qui contient 11 champs Ch1,Ch2,,,Ch11. Pour le moment, le 11ieme champs est vide.
T1 est connectée a un formulaire sur lequel plusieurs personnes peuvent travailler simultanément. J’aimerais pouvoir récupérer et mettre dans le dernier champs c-a-d Ch11 (du formulaire ET ensuite de la table) , le nom du dernier utilisateur qui a modifié au moins un champs d’un enregistrement donné.
La fonction utilisee pour recuperer le nom de l’utilisateur est :

Code :

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

1
2
3
4
Public Function fctUserName()
'get the userName .
      fctUserName = Environ("USERNAME")
End Function

J’ai ensuite inserre dans l’evevement AfterUpdate du champs Ch1 (juste pour commencer ) le code suivant. Mais visiblement , cela ne marche pas; tout le champs CH11 du formulaire se remplit du nom de l’utilisateur en cours et de surcroit, ce nom ne se reflecte pas dans la table source cad T1.

Code :

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

1
2
3
Private Sub Ch1_AfterUpdate()
      Me.Ch11.ControlSource = "=fctUserName()"
End Sub

Svp , donnez moi des idees ou des pistes .
Merci.

[Thierry_PALLIER]

Bonjour Bonero.
je pense que

Code :

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

 Me.Ch11= fctUserName()

est plus approprié.
Cdlt

[Bonero]

Bonjour Thierry,

grand merci pour ta reponse. C’est exactement ce que je voulais obtenir.
J’ai place ton code dans l’evenement After_Update de tous mes champs ch1,ch2, ,,Ch10 et cela marche a merveille.
Cependant, j’ai encore deux questions pour vous.
Question 1:
je me demande si il est possible de controller l’ensemble de l’enregistrement d’un seul tenant ; cela nous eviterait de passer par les champs un par un ce qui allegerait le code si on a un nombre important de champs.
Question 2:
Quelle est la difference fondamentale entre mon code

Code :

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

(  Me.Ch1.ControlSource= …  )

et ton code

Code :

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

(Me.Ch1.Value =  …)

merci de me repondre

[Thierry_PALLIER]

Tu peux tester sur l'evenement after_update du formulaire .
question2:
-dans le 1° code tu modifie (ou affecte) une source de données à ton controle.
Or tu n'as pas besoin de modifier la source puisque dans ton post 1 il faut repercuter la modification dans la table.

-dans le 2° code , tu affecte une valeur dans ton controle ,comme si tu la tapais au clavier.
La propriété valeur est la proriété par défaut d'un controle . Donc tu n'as pas besoin de reecrire .Value dans le code.
A+

[Bonero]

merci pour ton explication par rapport a la question2 .

Le test sur l'evenement After_Update du formulaire ne donne pas le resultat escompte. Le cursor reste bloque sur l'enregistrement en mode EDIT.