Discussion :

[jenniferIUP]

bonjour

je possède un chmp apelé "observation", ce champ est au format texte mais je peux aussi le mettre en mode mémo.
j'ai également mis en place un système sécurisé avec divers groupe d'utilisateur avec des droits d'utilisateurs. Chaque utilisateur ayant un nom d'utilisateur et un mot de passe.

puis je faire que dans se champs "observations" lorsque un utilisateurs inscrit un commentaire, son nom d'utilsateur et la date du jour s'affiche automatiquement???

(juste pour info j'utilise access 2002, et je ne mis connait pas trop en code VBA et SQL)

merci d'avance

[Heureux-oli]

Salut,

Tu as besoin d'une fonction pour ajouter cette information.

Code :

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

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

Dans ton formulaire, tu fais un petit code qui ajoute le résultat de la fonction au contenu du contrôle.

[jenniferIUP]

merci c'est parfait

[jenniferIUP]

juste j'ai voulu rajouter se code, au code de mon champs observation suvant mais sa marche pas je les pe etre mal placé??
code de mon champs observation:

Code :

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

1
2
3
Private Sub Observation_interne_BeforeUpdate(Cancel As Integer)
 
End Sub

merci d'avance

[Heureux-oli]

Salut,

Le choix que j'aurais fait se serait porté sur AfterUpdate du contrôle.

Code :

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

1
2
3
Private Sub Observation_interne_AfterUpdate()
 Me.Observation_interne = Utilisateur() & " - " & Me.Observation_interne
End Sub

Mais c'est toujours une question de goût.

[jenniferIUP]

enfaite je reçois un message d'erreur consernant le terme "Utilisateur()" et dsl de vous embêter mais votre nouveau code il n'y a plus le date??

(enfaite je ne mis connaît pas en VBA, je me débrouille en copiant les codes que l'on me donne et j'adapte au mieux que je peux avec les termes de ma base de données)

merci encore pour vôtre concours actif

[Heureux-oli]

Il faut toujours utiliser la fonction que je donne dans mon premier post.

Code :

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

1
2
3
4
5
6
7
8
Sub Fonction UtilisateurEtDate() As String
UtilisateurEtDate = Date() & " " & Environ("UserName")
End Function
 
 
Private Sub Observation_interne_AfterUpdate()
 Me.Observation_interne = UtilisateurEtDate() & " - " & Me.Observation_interne
End Sub

Mea culpa, j'avais tronqué le nom de la fonction.