Discussion :

[Davik]

Bonjour,

Je travaille sur access 2000, je voudrais savoir qu'elle est la procédure à effectuer pour afficher du texte selon l'utilisateur ou le groupe d'utilisateur qui s'est connécté à la base.

Je m'explique vous avez deux entreprise qui utilise une base une A une B
Par le biais d'un fichier de sécu il y a un login pour chaque entreprise.
Dans un état je veux afficher le nom A et B et qu'il soit vérouillé, pour pas que l'une se fasse passer pour l'autre.
Merci de votre aide

[mout1234]

En supposant que tes users sont affectés à des groupes A et B

Tu peux faire qq chose du genre:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Set wk = DBEngine(0)
sUserName = wk.UserName
 
'détermine s'il appartient au groupe sGroupe 
On Error Resume Next
Set objGrp = wk.Users(sUserName).Groups(sGroupe)
blnAppartientAuGroupe = Not (objGrp Is Nothing)

L'idée étant d'encapsuler cela dans une fonction qui détermine l'appartenance du user à un groupe...

[Davik]

désolé j'ai pas trés bien compris ton bout de code, pour simplifier il vaut mieux que la sélection se fasse par groupe

GroupeA entreprise1
GroupeB entreprise2

le code que tu m'as écris se placerai je comprend pas trés bien

Si l'utilisateur vient du GroupeA, j'inscrie entreprise1 dans trois champs d'un formulaire champ1, 2, 3
Si l'utilisateur vient du GroupeB le contraire.

Et je vérouille les champs pour éviter la modif

[mout1234]

Tu fais une focntion du genre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Function EstMembreDe(ByVal sGroupe As String) As Boolean
    Dim wk As Workspace
    Set wk = DBEngine(0)
 
    sUserName = wk.UserName
 
    'détermine s'il appartient au groupe sGroupe
    On Error Resume Next
    Set objGrp = wk.Users(sUserName).Groups(sGroupe)
    EstMembreDe = Not (objGrp Is Nothing)
 
 
    Set obkGrp = Nothing
    Set wk = Nothing
 
End Function

Tu peux alors l'utiliser dans ton code pour tester si le user appartient à tel ou tel groupe

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Dim blnMembreDeA as Boolean
 
blnMembredeA= EstMembrede("A") 
blnMembredeB= EstMembrede("B")
 
If blnMembredeA then ...

[Davik]

ok merci je vais essayer ça

[Davik]

Re,

J'ai une meilleur idée, je voudrais afficher le nom d'utilisateur qui s'est connéecté par le biais de la sécu

donc ca donne un bout de code simple pas besoin de fonction

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Me![Texte1]= Username

quelque chose comme ca ?

merci d'avance