Discussion :

[jenniferIUP]

bonjour,

grâce aux super membres de se forum j'ai pu récupérer le code d'une fonction qui me permet lorsque je tape du texte dans un champ mémo nommé "observatin interne", de voir s'afficher le nom de l'utilisateur et la date.
ainsi je pe suivre qui note au fur et a mesure des info dans ce champs.

Mais je ne mis connais pas vraimen en code et du coup je ne sais pa ou placé la fonction suivant:

Code :

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

1
2
3
Sub Fonction UtilisateurEtDate() As String
UtilisateurEtDate = Date() & " " & Environ("UserName")
End Function

J'avais pensé le mettre en procédure événementielle sur le clique mais cela ne semble pas compatibles

Qu'en pensez vous? Pouver vous m'aider.

merci d'avance

Pouver vous maider

[ilank]

Bonjour Jennifer,
si j'ai bien compris le champ mémo peut être modifié par plusieurs personnes.
Et tu souhaites qu'il y ait à chaque modification, un en-tête ou une signature stipulant l'utilisateur et la date de la modification.
Tu as, je pense le choix entre les événements BeforeUpdate, AfterUpdate
(voir l'événement Change (Sur changement)) de la zone de texte contenant le champ memo.

[jenniferIUP]

oui c'est exactement cela. Plusieurs personnes peuvent rentrer des observations internes du coup j'aimerai qu'a chaque notification d'une personne apparaisse dans le mémo une trace de son identité et du moment auquel ils ou elles auront fait cette remarque

et mon problème ces le faite qu'il ya ai "sub fonction" qui gène avc l'entente du code
est ce que je dois mettre cette fonction après "end sub"?

[ilank]

Il s'agit en fait d'une fonction qui renvoie la chaine de caractères Date + Nom d'utilisateur.

Exemple : Pour l'exemple une zone de texte Txtcommentaire contient le contenu du champ memo.

Code :

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

1
2
3
4
5
6
7
8
Private Sub TxtCommentaire_AfterUpdate()
 TxtCommentaire=TxtCommentaire & vbcrlf & UtilisateurEtDate()
End sub
 
Function UtilisateurEtDate() As String
 UtilisateurEtDate =Date() & " " & Environ("UserName")
 'UtilisateurEtDate="Modifié le : " & Date() & " par " & environ("Username")
End Function

[jenniferIUP]

merci beaucoup cett fois ci cela fonctionne bien!!

je vous remercie beaucoup pour votre aide