Discussion :

[moimemessssssssss]

bonjour,

ayant crée un formulaire de saisie de donnée, je souhaiterais recuperer l'identifiant du systeme windows et l'afficher dans une zone du formulaire.
qqun sait-il comment faire?
est-il possible d'empecher la modification de cette zone?

Merci de votre aide

[chernirachid]

Bonjour, tu va mettre le module suivant

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 Option Compare Database
Option Explicit
Private Declare Function GetUserName Lib "ADVAPI32.dll" Alias "GetUserNameA" _
(ByVal lpBuffer As String, nSize As Long) As Long
 
Public Function GetCurrentUserName() As String
On Error GoTo Err_GetCurrentUserName
 Dim lpBuff As String * 25
 Dim ret As Long, Username As String
   ret = GetUserName(lpBuff, 25)
   Username = Left(lpBuff, InStr(lpBuff, Chr(0)) - 1)
   GetCurrentUserName = Username & ""
 
Exit_GetCurrentUserName:
    Exit Function
 
Err_GetCurrentUserName:
        MsgBox Err.Description
        Resume Exit_GetCurrentUserName
End Function

et sur ton formulaire une zone de texte tu la nome utilisateur et tu met

Code :

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

1
2
3
 Function Utilisateur() As String
Utilisateur = Environ("username")
End Function

Merci

[FreeAccess]

Bonjour,

Pourquoi faire si compliqué ..et écrire une Fonction qui n'est pas utilisée ..

Tout est dans la ..Comment obtenir le nom de l'utilisateur de Windows ?

....donc ton même champ sur ton formulaire et par exemple sur la propriété "Sur activation" de celui-ci:

Code :

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

1
2
3
Private Sub Form_Current()
Me.Utilisateur.Value = Environ("UserName")
End Sub

..est-il possible d'empecher la modification de cette zone?

Il te suffit de modifier les propriétés de ton champ:
- Activé = Non
- Verrouillé = Oui

[cjlhe]

Bonjour

La fonction environ('username') ne fonctionne pas à chaque coup.

Sur Excel j'ai fait une macro pour afficher une box montrant l'utilisateur => OK
mais sur Access => PB

Quelqu"un a une idée ?