Discussion :

[Alex FPH]

Bonjour,

je cherche à limiter l’accès à des enregistrements d'une table en fonction d'un champ de la table.

En gros je veux que l'Italie ne puisse accéder qu'aux enregistrements Italiens (Branch= Italie) depuis Excel en connexion SQL. Pareil pour les autres pays.

Une idée ? J'ai fouillé mais je ne trouve qu'un moyen de limiter l’accès à des objets "complets".

Il n'y a pas mieux que de créer des sous tables par pays et donner l'acces à ces sous tables par pays avec les groupes de securité ?

Merci beaucoup par d'avance

[marot_r]

Bonjour.

La reponse courte est "oui", Access ne permet pas le controle au niveau des enregistrements.
C'est du tout ou rien.

Par contre tu peux faire un formulaire qui va filtrer les donnees et n'afficher que celle que tu veux,
Soit tu appliques le filtre au formulaire lui-meme, soit tu l'appliques a la requete source du formulaire.
Si tu as un champ "pays" dans tes donnees et un champ "Pays" associe a l'utilisateur, il te suffit de demander a Access toutes les donnees ou les deux champs sont egaux.

A+

[Alex FPH]

Ok merci,

J’étais en train de créer des requêtes par pays (hardcodé) et de lier les fichiers excel à ces requêtes.

mais votre histoire de formulaire a l'air pas mal.

Merci bcp.

[marot_r]

Bonjour.

J’étais en train de créer des requêtes par pays (hardcodé) et de lier les fichiers excel à ces requêtes.

Hard coder une valeur dans une requete (ou dans du code) est generalement une mauvaise idee.
Il n'y a rien de plus changeant qu'une constante :-).
A part pour des constantes systemes (ex la serie des mso), il est preferable de les mettre dans une table de parametrage et de se referer a cette table.
Note qu'il y a certains cas ou on ne peut pas faire autrement mais cela doit rester une de nos dernieres solutions.
Et dans ce cas il est prudent de mettre en place des mecanismes de verification qui t'alerte si la constante change.

Je le fais parfois dans du code

Code :

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

1
2
3
4
5
6
select case uneValeur
   case valeur1
   case valeur2
   case else
       call err.raise(5,,error$(5) & " - uneValeur inconnue")
end select

A+

[Alex FPH]

Oui j’évite au maximum le hardcoding mais bon là, les utilisateurs Italiens auront toujours les chiffres "ITALY" et les Belges auront toujours les "BELGIUM", etc...

Je regarde quand meme l'autre solution

A+

[marot_r]

Bonjour.

Pour eviter d'avoir autant de requete que de code, ce qui est penible a ma maintenir.

Je ferais quelque chose comme :

tblUtilisateur
ClefUtilisateur
CodeUtilisateur
CodePays

Code :

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

1
2
3
public function LireCodePays(prmCodeUtilisateur as string)
    LirePays=DFirst("CodePays", "tblUtilisateur", "[CodeUtilisateur]=""" & [prmCodeUtilisateur] & """")
end function

Et pour lire le code utilisateur :

Code :

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

1
2
3
public function LireCodeUtilisateur() as string
   LireCodeUtilisateur=environ$("USERNAME")
end function

ReqDonnees

Code sql :

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

1
2
select [tblDonnees].* form [tblDonnees]
where [tblDonnees].[CodePays]=LireCodePays(LireCodeUtilisateur())

Une seule requete, tous les pays traites.

A+