Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Access Test User : aidez-mi SVP

Test User : aidez-mi SVP

2 réponses
Avatar
Franck
Bonjour,


J'ai cr=E9=E9 un module pour d=E9clarer une variable username

Public Function MaFonction()
MaFonction =3D "%UserName%"
End Function


Et dans Mon formulaire sur Ev=E8nement Form_Load()
j'essai de verifier si l'utilisateur est le bon

If MaFonction() =3D "franck" Or MaFonction() =3D "Pascal" Then
....
else
.....
End if

Mais =E7a ne marche pas

Si qq1 pouvait me corriger =E7a serait sympa

Merci d'avance
Signaler un problème avec ce contenu

2 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
Jessy Sempere [MVP]
Bonjour

Je ne sais pas à quoi correspond "%Username%"

Si tu veux le nom de l'utilisaire windows, il faut mettre :
Public Function MaFonction()
MaFonction = Environ("UserName")
End Function

si par contre tu veux le nom de l'utilisateur Access, il faut mettre :
Public Function MaFonction()
MaFonction = CurrentUser
End Function

@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"Franck" a écrit dans le message news:
09b101c3c964$42879440$
Bonjour,


J'ai créé un module pour déclarer une variable username

Public Function MaFonction()
MaFonction = "%UserName%"
End Function


Et dans Mon formulaire sur Evènement Form_Load()
j'essai de verifier si l'utilisateur est le bon

If MaFonction() = "franck" Or MaFonction() = "Pascal" Then
....
else
.....
End if

Mais ça ne marche pas

Si qq1 pouvait me corriger ça serait sympa

Merci d'avance
Avatar
franck
-----Message d'origine-----
Bonjour

Je ne sais pas à quoi correspond "%Username%"

Si tu veux le nom de l'utilisaire windows, il faut
mettre :

Public Function MaFonction()
MaFonction = Environ("UserName")
End Function

si par contre tu veux le nom de l'utilisateur Access, il
faut mettre :

Public Function MaFonction()
MaFonction = CurrentUser
End Function

@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"Franck" a écrit
dans le message news:

09b101c3c964$42879440$
Bonjour,


J'ai créé un module pour déclarer une variable username

Public Function MaFonction()
MaFonction = "%UserName%"
End Function


Et dans Mon formulaire sur Evènement Form_Load()
j'essai de verifier si l'utilisateur est le bon

If MaFonction() = "franck" Or MaFonction() = "Pascal"
Then

.....
else
......
End if

Mais ça ne marche pas

Si qq1 pouvait me corriger ça serait sympa

Merci d'avance


.