Discussion :

[Mycose]

Bonjour,

Je commences a apprendre le VBA sous access et j'aurais besoin d'aide pour faire un truc.

J'ai fait un petit formulaire qui contient un boutn qui me permet de crée un dossier en indiquant l'emplacement ou on veut le crée.

Je souhaites pouvoir manipuler les droits d'utilisateurs (genre User) dessus ?

Je voudrais donc savoir qu'elles sont les fonctions et tout pour pouvoir faire ca x)

J'ai chercher sur google mais je trouves tellement de trucs differents et j'arrive pas encore a distinguer VB, VB.NET, VBA, VBS etc...

Merci d'avance

[ClaudeLELOUP]

Bonjour,

Ouvre un fenêtre de débogage et saisis :
? Environ("computername") <enter>
C'est un moyen d'identifier celui qui utilise la DB.

Suppose que tu crées une table "Utilisateurs" avec un champ : "Nom" et que dans cette table, tu introduises les utilisateurs "privilégiés".

Tu pourrais exploiter un code du genre :

Code :

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

1
2
3
4
5
6
If DCount("*", "Utilisateurs", "Nom = """ & Environ("computername") & """") = 0 Then
        '0 signifie qu'il est zéro fois dans la table, donc absent
Debug.Print "je fais ceci, car il n'est pas dans la table"
Else   ' il est au moins une fois dans la table
Debug.Print "je fais ceci, car il est dans la table"
End If

[cluster26]

bonjour,

Est-ce valable pour toutes les versions d'Acces.

Si on utilise la version d'Acces 2010 sans gestion system.mdw ?

Merci

[Mycose]

Bonjour,

Ouvre un fenêtre de débogage et saisis :
? Environ("computername") <enter>
C'est un moyen d'identifier celui qui utilise la DB.

Suppose que tu crées une table "Utilisateurs" avec un champ : "Nom" et que dans cette table, tu introduises les utilisateurs "privilégiés".

Tu pourrais exploiter un code du genre :

Code :

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

1
2
3
4
5
6
If DCount("*", "Utilisateurs", "Nom = """ & Environ("computername") & """") = 0 Then
        '0 signifie qu'il est zéro fois dans la table, donc absent
Debug.Print "je fais ceci, car il n'est pas dans la table"
Else   ' il est au moins une fois dans la table
Debug.Print "je fais ceci, car il est dans la table"
End If

Je suis pas sur que sa me permette de modifier les droits des utilisateurs sur les dossier si ? :o

Genre quand on fait clique droit sur un dossier puis onglet sécurité (genre user a le droit de lire, supprimer etc ...)

[ClaudeLELOUP]

Et bien tant pis mycose.
Merci quand même.

[Mycose]

Merci quand meme claude.

sinon personne a d'idées pour mon pb ?

[nico84]

Bonjour,
Il faudrait préciser ta version et tes objectifs : veux-tu que certains utilisateurs aient le droit de cliquer sur le bouton et d'autres non ? Veux-tu modifier les droits sur un fichier windows ?

[Mycose]

C'etait pour modifier les droits sur un dossier windows mais c'est bon

Un ami m'a dis de me pencher sur faire un script shell puis l'executer avec Shell()
J'ai un peu galerer a mettre des & partout mais sa marche x)

Merci