Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Access Récupérer l'utilisateur connecté

Récupérer l'utilisateur connecté

7 réponses
Avatar
Karim
Bonjour,

Je cherche =E0 r=E9cup=E9rer l'utilisateur connect=E9 =E0 Windows=20
XP, afin d'automatiser la gestion des droits de mon=20
application Access.

Merci de m'aider =E0 trouver la solution

Karim
Signaler un problème avec ce contenu

7 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
[MVP] Maxence HUBICHE
--
Bonjour,

CurrentUser()


Ciao :)
======================================== Maxence HUBICHE
Formateur & développeur indépendant
Rédacteur Access sur http://www.developpez.com
http://access.developpez.com/access/faq <<= Ici, la FAQ Access de
developpez.com


..
"Karim" a écrit dans le message de news:
1cc6a01c422bb$87e7a330$
Bonjour,

Je cherche à récupérer l'utilisateur connecté à Windows
XP, afin d'automatiser la gestion des droits de mon
application Access.

Merci de m'aider à trouver la solution

Karim


---
Ce message est certifié sans virus
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.656 / Virus Database: 421 - Release Date: 09/04/2004
Avatar
Karim
Cureentuser() me renvoie Admin, alors que mon user
connecté à Windows XP est GDP...
Je recherche l'utilisateur connecté à Windows

-----Message d'origine-----


--
Bonjour,

CurrentUser()


Ciao :)
======================== =================
Maxence HUBICHE
Formateur & développeur indépendant
Rédacteur Access sur http://www.developpez.com
http://access.developpez.com/access/faq <<= Ici, la FAQ
Access de

developpez.com


...
"Karim" a écrit dans
le message de news:

1cc6a01c422bb$87e7a330$
Bonjour,

Je cherche à récupérer l'utilisateur connecté à Windows
XP, afin d'automatiser la gestion des droits de mon
application Access.

Merci de m'aider à trouver la solution

Karim


---
Ce message est certifié sans virus
Checked by AVG anti-virus system
(http://www.grisoft.com).

Version: 6.0.656 / Virus Database: 421 - Release Date:
09/04/2004



.



Avatar
[MVP] Maxence HUBICHE
Oups pardon !
Tu peux utiliser l'API windows GetUserName

déclaration :

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

usage :

Function GUN() As String
dim sUserName as String
dim lNbCar as Long
dim lNbRetour as Long

lNbCar0
sUserName=String(lNbCar,chr(0))
lNbRetour=GetUserName (sUserName, lNbCar)

GUN=Left(sUserName,lNbRetour)
End Function




--
Bonne continuation :)
======================================== Maxence HUBICHE
Formateur & développeur indépendant

MVP Access

Rédacteur Access sur http://www.developpez.com
http://access.developpez.com/access/faq <<= Ici, la FAQ Access de
developpez.com
"Karim" a écrit dans le message de
news: 1a00101c422c2$11a45a40$
Cureentuser() me renvoie Admin, alors que mon user
connecté à Windows XP est GDP...
Je recherche l'utilisateur connecté à Windows

-----Message d'origine-----


--
Bonjour,

CurrentUser()


Ciao :)
======================================== >Maxence HUBICHE
Formateur & développeur indépendant
Rédacteur Access sur http://www.developpez.com
http://access.developpez.com/access/faq <<= Ici, la FAQ
Access de

developpez.com


...
"Karim" a écrit dans
le message de news:

1cc6a01c422bb$87e7a330$
Bonjour,

Je cherche à récupérer l'utilisateur connecté à Windows
XP, afin d'automatiser la gestion des droits de mon
application Access.

Merci de m'aider à trouver la solution

Karim


---
Ce message est certifié sans virus
Checked by AVG anti-virus system
(http://www.grisoft.com).

Version: 6.0.656 / Virus Database: 421 - Release Date:
09/04/2004



.




---
Ce message est certifié sans virus
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.656 / Virus Database: 421 - Release Date: 09/04/2004

Avatar
Sweety
Environ("username")

"Karim" a écrit dans le message de
news: 1a00101c422c2$11a45a40$
Cureentuser() me renvoie Admin, alors que mon user
connecté à Windows XP est GDP...
Je recherche l'utilisateur connecté à Windows

-----Message d'origine-----


--
Bonjour,

CurrentUser()


Ciao :)
======================================== >Maxence HUBICHE
Formateur & développeur indépendant
Rédacteur Access sur http://www.developpez.com
http://access.developpez.com/access/faq <<= Ici, la FAQ
Access de

developpez.com


...
"Karim" a écrit dans
le message de news:

1cc6a01c422bb$87e7a330$
Bonjour,

Je cherche à récupérer l'utilisateur connecté à Windows
XP, afin d'automatiser la gestion des droits de mon
application Access.

Merci de m'aider à trouver la solution

Karim


---
Ce message est certifié sans virus
Checked by AVG anti-virus system
(http://www.grisoft.com).

Version: 6.0.656 / Virus Database: 421 - Release Date:
09/04/2004



.



Avatar
Xavier HUE
Bonjour Karim,

Voir la Fonction Environ()

Environ("USERNAME") retourne le login Windows de
l'utilisateur

Pour connaitre les autres paramètres possibles de la
fonction:

for f = 1 to 32: debug.Print f, environ(f):next

Cordialement.
Avatar
Karim
Merci bien
-----Message d'origine-----
Oups pardon !
Tu peux utiliser l'API windows GetUserName

déclaration :

Declare Function GetUserName Lib "advapi32.dll"
Alias "GetUserNameA" (ByVal

lpBuffer As String, nSize As Long) As Long

usage :

Function GUN() As String
dim sUserName as String
dim lNbCar as Long
dim lNbRetour as Long

lNbCar0
sUserName=String(lNbCar,chr(0))
lNbRetour=GetUserName (sUserName, lNbCar)

GUN=Left(sUserName,lNbRetour)
End Function




--
Bonne continuation :)
======================== =================
Maxence HUBICHE
Formateur & développeur indépendant

MVP Access

Rédacteur Access sur http://www.developpez.com
http://access.developpez.com/access/faq <<= Ici, la FAQ
Access de

developpez.com
"Karim" a écrit
dans le message de

news: 1a00101c422c2$11a45a40$
Cureentuser() me renvoie Admin, alors que mon user
connecté à Windows XP est GDP...
Je recherche l'utilisateur connecté à Windows

-----Message d'origine-----


--
Bonjour,

CurrentUser()


Ciao :)
======================== =================
Maxence HUBICHE
Formateur & développeur indépendant
Rédacteur Access sur http://www.developpez.com
http://access.developpez.com/access/faq <<= Ici, la FAQ
Access de

developpez.com


...
"Karim" a écrit dans
le message de news:

1cc6a01c422bb$87e7a330$
Bonjour,

Je cherche à récupérer l'utilisateur connecté à Windows
XP, afin d'automatiser la gestion des droits de mon
application Access.

Merci de m'aider à trouver la solution

Karim


---
Ce message est certifié sans virus
Checked by AVG anti-virus system
(http://www.grisoft.com).

Version: 6.0.656 / Virus Database: 421 - Release Date:
09/04/2004



.




---
Ce message est certifié sans virus
Checked by AVG anti-virus system
(http://www.grisoft.com).

Version: 6.0.656 / Virus Database: 421 - Release Date:
09/04/2004



.




Avatar
[MVP] Maxence HUBICHE
Oups, j'ai fait une erreur ... j'ai pas cliqué sur le bon bouton, donc pas
corrigé à temps... désolé .
voici :
GUN=Left(sUserName,lNbRetour)
doit être remplacé par
GUN=Left(sUserName,lNbCar -1)

sinon, tu peux jouer avec la fonction Environ(arg).

Je te laisse faire une 'tite recherche ?

PS : pour la API, tu as un très bon site ici : www.allapi.net
--
Bonne continuation :)
======================================== Maxence HUBICHE
Formateur & développeur indépendant

MVP Access

Rédacteur Access sur http://www.developpez.com
http://access.developpez.com/access/faq <<= Ici, la FAQ Access de
developpez.com
"[MVP] Maxence HUBICHE" a écrit dans le
message de news:
Oups pardon !
Tu peux utiliser l'API windows GetUserName

déclaration :

Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA"
(ByVal

lpBuffer As String, nSize As Long) As Long

usage :

Function GUN() As String
dim sUserName as String
dim lNbCar as Long
dim lNbRetour as Long

lNbCar0
sUserName=String(lNbCar,chr(0))
lNbRetour=GetUserName (sUserName, lNbCar)

GUN=Left(sUserName,lNbRetour)
End Function




--
Bonne continuation :)
======================================== > Maxence HUBICHE
Formateur & développeur indépendant

MVP Access

Rédacteur Access sur http://www.developpez.com
http://access.developpez.com/access/faq <<= Ici, la FAQ Access de
developpez.com
"Karim" a écrit dans le message de
news: 1a00101c422c2$11a45a40$
Cureentuser() me renvoie Admin, alors que mon user
connecté à Windows XP est GDP...
Je recherche l'utilisateur connecté à Windows

-----Message d'origine-----


--
Bonjour,

CurrentUser()


Ciao :)
======================================== > >Maxence HUBICHE
Formateur & développeur indépendant
Rédacteur Access sur http://www.developpez.com
http://access.developpez.com/access/faq <<= Ici, la FAQ
Access de

developpez.com


...
"Karim" a écrit dans
le message de news:

1cc6a01c422bb$87e7a330$
Bonjour,

Je cherche à récupérer l'utilisateur connecté à Windows
XP, afin d'automatiser la gestion des droits de mon
application Access.

Merci de m'aider à trouver la solution

Karim


---
Ce message est certifié sans virus
Checked by AVG anti-virus system
(http://www.grisoft.com).

Version: 6.0.656 / Virus Database: 421 - Release Date:
09/04/2004



.




---
Ce message est certifié sans virus
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.656 / Virus Database: 421 - Release Date: 09/04/2004





---
Ce message est certifié sans virus
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.656 / Virus Database: 421 - Release Date: 09/04/2004