En poursuivant votre navigation sur ce site, vous acceptez l'utilisation de cookies pour vous proposer des contenus et services adaptés. Mentions légales.

Recherche

Recherche

Les mémos

Je débute...

Visites

 1251940 visiteurs

 1 visiteur en ligne

Nous contacter

Contact

Nom d'utilisateur

Obtenir le nom de l'utilisateur en cours par fUsername

Combinaison de l'API pour Win9x et de la variable d'environnement Username.

Pour diminuer les temps de réponse notamment en cas d'utilisation intensive de la fonction sur un réseau multi-postes, la variable d'environnement ou la fonction API ne sont utilisées qu'une seule fois par session Access, et leur résultat stocké dans une variable "Static".

'/
'/ A placer dans la partie déclarative
'/
Private Declare Function api_GetUserName _
                          Lib "advapi32.dll" Alias "GetUserNameA" _
                              (ByVal lpBuffer As String, nSize As Long) As Long

 La fonction :

Public Function fUserName() As String
    Static strUser As String
    If Len(strUser) > 0 Then
        fUserName = strUser
    Else
        Select Case Len(Environ$("username"))
        Case 0
            Dim NBuffer As String
            Dim Buffsize As Long
            Buffsize = 16
            NBuffer = Space$(Buffsize)
            Call api_GetUserName(NBuffer, Buffsize)
            strUser = Trim$(NBuffer)
            If InStr(1, strUser, Chr(0), vbBinaryCompare) > 0 Then
                strUser = Left(strUser, _
                               InStr(1, strUser, _
                                     Chr(0), vbBinaryCompare) - 1)
                fUserName = strUser
            End If
        Case Is > 0
            strUser = Environ$("username")
            fUserName = strUser
        End Select
    End If
End Function

Catégorie : - Administration
Page lue 5063 fois
Vous êtes ici :   Accueil » Nom d'utilisateur