Je suis dans un base de donn=E9es avec plusieurs tables. Je=20
cr=E9e un formulaire avec (entre autres) un bouton. Je=20
souhaite que, qd on clique sur ce bouton, le pgm v=E9rifi=E9=20
dans la table appel=E9e Connect si l'utiliteur de la machine=20
est dans la liste.
Pour trouver l'utilisateur, j'utilise usr=3Denviron
("username") en VBA.
Comment r=E9aliser ce que je souhaitre (en VBA ou avec des=20
macros).
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
Raymond [mvp]
Bonjour.
tu peux utiliser un dlookup ou un dcount. exemple: If IsNull(DLookup("monchamp", "matable", "[monchamp] ='" & Environ("username") & "'")) Then 'ici ce n'est pas bon End If
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Joe" a écrit dans le message de news:b32001c43739$7a71d300$ Bonjour,
Je suis dans un base de données avec plusieurs tables. Je crée un formulaire avec (entre autres) un bouton. Je souhaite que, qd on clique sur ce bouton, le pgm vérifié dans la table appelée Connect si l'utiliteur de la machine est dans la liste.
Pour trouver l'utilisateur, j'utilise usr=environ ("username") en VBA.
Comment réaliser ce que je souhaitre (en VBA ou avec des macros).
Je ne m'y connais pas bcp, donc merci.
Bonjour.
tu peux utiliser un dlookup ou un dcount.
exemple:
If IsNull(DLookup("monchamp", "matable", "[monchamp] ='" &
Environ("username") & "'")) Then
'ici ce n'est pas bon
End If
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"Joe" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:b32001c43739$7a71d300$a601280a@phx.gbl...
Bonjour,
Je suis dans un base de données avec plusieurs tables. Je
crée un formulaire avec (entre autres) un bouton. Je
souhaite que, qd on clique sur ce bouton, le pgm vérifié
dans la table appelée Connect si l'utiliteur de la machine
est dans la liste.
Pour trouver l'utilisateur, j'utilise usr=environ
("username") en VBA.
Comment réaliser ce que je souhaitre (en VBA ou avec des
macros).
tu peux utiliser un dlookup ou un dcount. exemple: If IsNull(DLookup("monchamp", "matable", "[monchamp] ='" & Environ("username") & "'")) Then 'ici ce n'est pas bon End If
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Joe" a écrit dans le message de news:b32001c43739$7a71d300$ Bonjour,
Je suis dans un base de données avec plusieurs tables. Je crée un formulaire avec (entre autres) un bouton. Je souhaite que, qd on clique sur ce bouton, le pgm vérifié dans la table appelée Connect si l'utiliteur de la machine est dans la liste.
Pour trouver l'utilisateur, j'utilise usr=environ ("username") en VBA.
Comment réaliser ce que je souhaitre (en VBA ou avec des macros).
Je ne m'y connais pas bcp, donc merci.
www.eztree-msdn.com \(Laurent Jordi\) Enlever le s à infos pour me contacter par mail
Salut,
Il te suffira de faire une requête qui recherche le nom d'utilisateur dans ta table et tester si oui ou non, la requête renvoie un enregistrement.
Tu paux aussi récupérer un Niveau d'accès si c'est le cas...
La requete serait :
SELECT champNom [,champNiveau] FROM tableUtilisateurs WHERE champNom [pUserName]
Que tu appelera grantUser (par exemple)
Pour appeler la requête tu devras :
Function grantUser() as boolean on error goto LocalError
Dim QD as QueryDef Dim RS as Recordset
Set QD = CurrentDB.Querydefs("grantUser") QD!pUserName = environ("username")
Set RS = QD.openrecordset(,dbopensnapshot+dbfailOnError)
if Not RS.EOF then ' récupère le niveau si besoin grantUser=true end if
exit function LocalError: 'gestion de l'erreur resume... end if
"Joe" a écrit dans le message de news:b32001c43739$7a71d300$ Bonjour,
Je suis dans un base de données avec plusieurs tables. Je crée un formulaire avec (entre autres) un bouton. Je souhaite que, qd on clique sur ce bouton, le pgm vérifié dans la table appelée Connect si l'utiliteur de la machine est dans la liste.
Pour trouver l'utilisateur, j'utilise usr=environ ("username") en VBA.
Comment réaliser ce que je souhaitre (en VBA ou avec des macros).
Je ne m'y connais pas bcp, donc merci.
Salut,
Il te suffira de faire une requête qui recherche le nom d'utilisateur dans
ta table et tester si oui ou non, la requête renvoie un enregistrement.
Tu paux aussi récupérer un Niveau d'accès si c'est le cas...
La requete serait :
SELECT champNom [,champNiveau] FROM tableUtilisateurs WHERE champNom [pUserName]
Que tu appelera grantUser (par exemple)
Pour appeler la requête tu devras :
Function grantUser() as boolean
on error goto LocalError
Dim QD as QueryDef
Dim RS as Recordset
Set QD = CurrentDB.Querydefs("grantUser")
QD!pUserName = environ("username")
Set RS = QD.openrecordset(,dbopensnapshot+dbfailOnError)
if Not RS.EOF then
' récupère le niveau si besoin
grantUser=true
end if
exit function
LocalError:
'gestion de l'erreur
resume...
end if
"Joe" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:b32001c43739$7a71d300$a601280a@phx.gbl...
Bonjour,
Je suis dans un base de données avec plusieurs tables. Je
crée un formulaire avec (entre autres) un bouton. Je
souhaite que, qd on clique sur ce bouton, le pgm vérifié
dans la table appelée Connect si l'utiliteur de la machine
est dans la liste.
Pour trouver l'utilisateur, j'utilise usr=environ
("username") en VBA.
Comment réaliser ce que je souhaitre (en VBA ou avec des
macros).
Il te suffira de faire une requête qui recherche le nom d'utilisateur dans ta table et tester si oui ou non, la requête renvoie un enregistrement.
Tu paux aussi récupérer un Niveau d'accès si c'est le cas...
La requete serait :
SELECT champNom [,champNiveau] FROM tableUtilisateurs WHERE champNom [pUserName]
Que tu appelera grantUser (par exemple)
Pour appeler la requête tu devras :
Function grantUser() as boolean on error goto LocalError
Dim QD as QueryDef Dim RS as Recordset
Set QD = CurrentDB.Querydefs("grantUser") QD!pUserName = environ("username")
Set RS = QD.openrecordset(,dbopensnapshot+dbfailOnError)
if Not RS.EOF then ' récupère le niveau si besoin grantUser=true end if
exit function LocalError: 'gestion de l'erreur resume... end if
"Joe" a écrit dans le message de news:b32001c43739$7a71d300$ Bonjour,
Je suis dans un base de données avec plusieurs tables. Je crée un formulaire avec (entre autres) un bouton. Je souhaite que, qd on clique sur ce bouton, le pgm vérifié dans la table appelée Connect si l'utiliteur de la machine est dans la liste.
Pour trouver l'utilisateur, j'utilise usr=environ ("username") en VBA.
Comment réaliser ce que je souhaitre (en VBA ou avec des macros).
