Recuperer le nom de l'utilisateur ACCESS

re
Bon j'ai pas vraiment compris
Ok j'ai créer un module (c'est pour qu'il soit partout dans le code c'est ca je suppose)

Ensuite voila mon code que j'ai mis lorsque je clique sur =mon bouton "connexion"

rivate Sub BtConexion_Click()
Me.Requery
Dim sql, User_id, User_groupe As String
Dim Rs As DAO.Recordset
Static i As Byte
sql = "SELECT * FROM T_USER WHERE Nom_U = '" & Me.txt_user & "' AND PASWD ='" & Me.txt_pass & "';"
Set Rs = CurrentDb.OpenRecordset(sql)
If Not Rs.EOF Then
  DoCmd.OpenForm "MENU_PRINCIPAL", acNormal, , , , acWindowNormal
  DoCmd.Close acForm, "F_connexion"
  User_id = Rs("Nom_U").Value
  User_groupe = Rs("GROUPE").Value
Else
  MsgBox "(Identifiant, Mot de Passe) incorrect ", vbInformation, "Connexion"
  i = i + 1
End If
If i = 3 Then
MsgBox "Vous avez dépassé le nombre de tentatives autorisés", vbCritical
DoCmd.Quit
End If
End Sub

ce que je veux recupérer c'est "User_id" je le remplace par usr_Name ?

merci

Bonjour Blux,
Bonjour à tous,

Le module et le script fonctionne bien mais j'aimerais passer le nom de l'utilisateur autre que l'administrateur de la machine, il me met toujours administrator ! J'ai réussi un seul coup... Maintenant il me dit qu'il ne peut plus modifier la fiche.
En plus j'aimerais le mettre dans une variable pour le récupérer à la fiche. Ça me fait un "modifié par".

Voici mon code :

'Nom de l'utilisateur
Private Sub Form_Current()

Dim Buff As String * 255
Dim NSize As Long
Dim Ret As Long
Dim VUtil As String

NSize = Len(Buff)
Ret = GetUserName(Buff, NSize)
UsrName = Left(Buff, NSize)
UsrName = Left(UsrName, Len(UsrName) - 1)
VUtil = UsrName
[MenuUtil] = VUtil

End Sub
'Fin de nom de l'utilisateur

Qui me fait un This Recordset is not updateable.

Windows XP
Access 2003

Je ne sais pas si je suis très clair...
Où ai-je erreur ? Il n'aime pas le form current ? Parce que si je le met dans mes sous-formulaires en "Form_Dirty(Cancel As Integer)" ça fonctionne bien qu'il ne mette qu'Administrator.

Merci de m'aider ;-)

Ma demande est partie...

A+ Blux

 "Les cons, ça ose tout.
C'est même à ça qu'on les reconnait"

Blux, merci beaucoup, génial ton petit code !!
Je désespérais pouvoir enregistrer des données utilisateur à chaque ouverture d'une base pour pouvoir faire des stats sur son utilisation, c'est chose possible maintenant :)