est-il possible de récupérer dans une requête la valeur de la variable
NtUser (le nom d'ouverture de session sur la machine locale)? Faire un truc
du style :
Merci Florian. CurrentUser retourne systématiquement Admin sur une base non protégée. Je voudais le nom d'ouverture de session NT.
A + et merci encore.
"Florian" a écrit dans le message de news: 3fc5bdfa$0$28636$
Salut, essaye avec Currentuser
ex : Forms![monformulaire]!monchamp = .CurrentUser
"JMD" a écrit dans le message de news:
Bonjour à tous,
est-il possible de récupérer dans une requête la valeur de la variable NtUser (le nom d'ouverture de session sur la machine locale)? Faire un truc
du style :
Update matable set monchamp= @ntusername
Je rêve ?
Merci beaucoup.
Didier
Bonjour,
J'ai trouvé çà sur le net, mais je ne l'ai pas essayé... tiens moi au courant...
'a coller 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 ' Retourne le nom d'usager fourni lors du branchement au réseau. 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
Bonjour,
J'ai trouvé çà sur le net, mais je ne l'ai pas essayé...
tiens moi au courant...
'a coller 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
' Retourne le nom d'usager fourni lors du branchement au
réseau.
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
J'ai trouvé çà sur le net, mais je ne l'ai pas essayé... tiens moi au courant...
'a coller 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 ' Retourne le nom d'usager fourni lors du branchement au réseau. 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
JMD
Merci beaucoup. C'est OK.
"Didier" a écrit dans le message de news: 094501c3b4c8$75fc8c50$ Bonjour,
J'ai trouvé çà sur le net, mais je ne l'ai pas essayé... tiens moi au courant...
'a coller 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 ' Retourne le nom d'usager fourni lors du branchement au réseau. 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
Merci beaucoup.
C'est OK.
"Didier" <anonymous@discussions.microsoft.com> a écrit dans le message de
news: 094501c3b4c8$75fc8c50$a301280a@phx.gbl...
Bonjour,
J'ai trouvé çà sur le net, mais je ne l'ai pas essayé...
tiens moi au courant...
'a coller 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
' Retourne le nom d'usager fourni lors du branchement au
réseau.
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
"Didier" a écrit dans le message de news: 094501c3b4c8$75fc8c50$ Bonjour,
J'ai trouvé çà sur le net, mais je ne l'ai pas essayé... tiens moi au courant...
'a coller 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 ' Retourne le nom d'usager fourni lors du branchement au réseau. 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
