Bonjour Polux,

Peut-être que tu pourrais mettre une fonction sur "Touche appuyée" de ton formulaire.

Du genre : Me.ChampDate= Date()

Pour l'utilisateur, voici un code a mettre dans un module :

Private Declare Function apiGetUserName Lib "advapi32.dll" Alias _
    "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Function fOSUserName() As String
Dim lngLen As Long, lngX As Long
Dim strUserName As String
    strUserName = String$(254, 0)
    lngLen = 255
    lngX = apiGetUserName(strUserName, lngLen)
    If lngX <> 0 Then
        fOSUserName = Left$(strUserName, lngLen - 1)
    Else
        fOSUserName = ""
    End If
End Function

Pour ton cas :

Me.ChampUtilisateur=fOSUserName

Mais peut-être que Pierre aura de meilleures solutions à te proposer.

Cordialement

Christophe

Bonjour Pierre,

Comme toujours, tu as réponse à tout et ta suggestion vient de me donner une idée sur un petit problème que j'avais.

Merci beaucoup

Cordialement

Christophe

Bonjour et avant tout merci de votre aide !!!

Voilà j'ai dans ma table le nom de champ "datemaj" que j'ai également sur mon formulaire.

En propriétés du formulaire sur touche appuyée j'ai la procédure événementielle:

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Me.datemaj = Date
End Sub

J'avais encodé Me.datemaj = date() mais les parenthèses on été supprimées automatiquement et lorsque je modifie un enregistrement rien ne se passe ?

Pour l'utilisateur j'ai créer le module avec le code ci-dessous:

Option Compare Database
Private Declare Function apiGetUserName Lib "advapi32.dll" Alias _
    "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Function fOSUserName() As String
Dim lngLen As Long, lngX As Long
Dim strUserName As String
    strUserName = String$(254, 0)
    lngLen = 255
    lngX = apiGetUserName(strUserName, lngLen)
    If lngX <> 0 Then
        fOSUserName = Left$(strUserName, lngLen - 1)
    Else
        fOSUserName = "utilisateur"
    End If
End Function

Dans ma table et sur mon formulaire j'ai le champ "utilisateur".

Dans les propriétés du formulaire APRES MAJ j'ai le code ci-dessous:

Private Sub Form_AfterUpdate()
Me.utilisateur = fOSUserName
End Sub

Lorsque je modifie mon formulaire après login "alain":

Le champ se complète bien avec "Alain" mais après le formulaire se fige et je ne parviens plus à passer à l'enregistrement suivant.

Si je me connect avec un autre utilisateur (Patrick) le problème reste le même mais au lieu de compléter "Patrick" il continue à compléter "Alain" ?....

 Snifff.... Rien ne fonctionne....

Merci d'avance.

Bonjour,

Désolé de ne pas avoir fait de test auparavant. Je viens seulement de récupérer le code de l'utilisateur en cours et je n'ai pas encore fais de test sur un véritable rééseau.

Comme ton idée est de connaitre qui et quant a effectué des modifications, je te propose de mettre les 2 codes dans "Si modification" du formulaire.

Dès, et seulement dès, la première saisie de touche, ces informations seront intégrées dans tes champs.

Si tu souhaites laisser Me.DateMaj=Date dans "Sur touche appuyée", assure toi que l'option "Aperçu des touches" de l'onglet "Evènement" des propriétés du formulaire soit sur "Oui". C'est sans doute à cause de cela que çà coince.

Cordialement

Christophe

Bonjour Pierre, Bonjour Christophe,

Je vous remercie beaucoup pour votre aide précieuse et confirme:

Seulement voilà....

Je me suis probablement une fois de plus mal exprimé sur ce que je souhaitais avoir....

Pour la date de mise à jour c'est exactement ce que je souhaitais, par-contre pour l'utilisateur je parlais des utilisateurs access et non pas des utilisateurs windows.... (double snifff)

En tous cas je suis déjà très content de ma date de mise à jour !!!

Encore merci à vous TOUS !!!