Discussion :

[jamital]

Bonjour,
j'y suis arrivé à partager ma bdd dorsale sur le réseau en distribuant la frontale à mes deux collègues.Jusque là ,parfait. Le problème est que d'autres utilisateurs ont accès à cette BDD en copiant simplement la frontale. Je n'ai trouvé le moyen de limiter le nombre utilisateurs sur réseau. N’a-il pas un moyen ?. Merci .

[marot_r]

Bonjour.

Je n'ai trouvé le moyen de limiter le nombre utilisateurs sur réseau. N’a-il pas un moyen ?.

Les contrôles dans Access sont TRÈS limités surtout depuis les nouvelles versions.

La solution la plus facile selon moi devrait être de mettre la dorsale dans un répertoire à accès limités.
Cela devrait empêcher les gens de pouvoir lire les données.

Une autre solution serait de gérer une liste des gens autorisés dans l'application et soit de demander une identification, soit de récupérer le code de l'utilisateur de Windows (avec ENVIRON$("USERNAME")) et de valider si il est bien dans cette liste. Les gens pourrons toujours se connecter à la dorsale via Excel par exemple mais plus par la frontale.
Il me semble que tu peux aussi mettre un mot de passe sur la dorsale et le donner lorsque tu établis les liens donc si cela est possible seuls les gens qui ont la frontale pourront lire les données.

A+

[jamital]

Bonjour,

Il me semble que tu peux aussi mettre un mot de passe sur la dorsale et le donner.Une autre solution serait de gérer une liste des gens autorisés dans l'application et soit de demander une identification, soit de récupérer le code de l'utilisateur de Windows (avec ENVIRON$("USERNAME")) et de valider si il est bien dans cette liste

Ma dorsale est verrouillée par mot de passe et ne s'ouvre qu'avec la frontale que l'on peut copier sur les pc .
Je pense que la deuxième option solution est la bonne, mais comment faire?.
Merci.

[marot_r]

Bonjour.

La méthode est assez simple,

1. tu crées une table des utilisateurs, un truc du genre :
   
   tblUtilisateur
   
   ClefUntilisateur
   CodeUtilisateur
   DescriptionUtilisateur (optionnel, mais peut faciliter la vie)
2. Tu crées un formulaire de saisie (en mode modale) que tu ouvres au démarrage de l'application.
3. Et tu demandes (ou tu récupères le code de windows).
   Ensuite tu vérifies si le code est dans la liste.
   Quelque chose comme
   
   

   Code :

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

   1
   2
   3
   4
   5
   6
   if not isnull(DFirst("CodeUtiliteur", "tblUtilisateur", "[CodeUtilisateur]=""" & me.CodeUtilisateur & """")) then
          'ici du code pour permettre d'accéder (dépend de comment tu as construit ton appli).
       else
           msgbox "Désolé vous n'êtes pas autorisé. Contactez l'administrateur pour obtenir les accès."
           docmd.Quit 'Sort de l'appli.
   end if

Note que ce n'est pas très fort comme protection et n'arrêtera qu'une personne ordinaire.

Faire la restriction d'accès au niveau du réseau est BEAUCOUP plus fort.
En plus cela t'évite d'avoir à gérer les utilisateurs.

A+

[jamital]

Merci marot_r.

Faire la restriction d'accès au niveau du réseau est BEAUCOUP plus fort.

Pourrait-tu m'orienter vers cette option ?
MERCI.

[marot_r]

Bonjour.

Pour le réseau je sais que cela existe mais je connais pas les détails.
C'est un truc "de base", il y a une liste des utilisateurs et une liste des accès associés.
On peut aussi définir des accès de groupe (ex : les administrateurs, les secrétaires, le service de la comptabilité, ...) et toutes personne faisant partie de ce groupe à les accès en conséquence.
Il faut parler à ton administrateur de serveur (ou de réseau) et voir avec lui comment il convient de procéder.

A+

[jamital]

Bonjour, et merci pour votre réponse.Dans ce cas il ne me reste que la première option comme Choix.

1) Creer : tblUtilisateur , ClefUntilisateur ,CodeUtilisateur et un formulaire de saisie (en mode modale) que tu ouvres au démarrage de l'application.
2) demander (ou récupèrer le code de windows).
3) Ensuite verifier si le code est dans la liste.

1-Mais comment proceder pour recuperer le code windows ?
Merci.

[marot_r]

Bonjour.

Access te fourni cela sans complication ... une fois qu'on sait :-).

Code :

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

1
2
Dim CodeUtilisateur as string
CodeUtilisateur=ENVIRON$("USERNAME")

Évident, non ? :-))).

Le UserName est trompeur car c'est le code réseau de l'utilisateur que tu récupères pas ses nom et prénom.
Il y a peut-être un moyen d'avoir le nom et le prénom en interrogeant Windows mais je ne le connais pas.
À date j'ai toujours utilisé une table dans mon appli si j'avais besoin de ces informations.

A+

[jamital]

Bonjour,
Je récapitule "ce n'est pas tout évident pur moi !" Il faut:

-1) Une table (tblUtilisateur) + 2 Champs ( ClefUtilisateur = pierre.dupont ,CodeUtilisateur="laissé vide).
-2) Insérer le code:

Code :

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

1
2
3
4
5
6
7
8
Dim CodeUtilisateur as string
          Codeutilisateur = Environ$("USERNAME") 
if not isnull(DFirst("CodeUtiliteur", "tblUtilisateur", "[CodeUtilisateur]=""" & me.CodeUtilisateur & """")) then
       'ici du code pour permettre d'accéder (dépend de comment tu as construit ton appli).
    else
        msgbox "Désolé vous n'êtes pas autorisé. Contactez l'administrateur pour obtenir les accès."
        docmd.Quit 'Sort de l'appli.
end if

Merci.

[marot_r]

Bonjour.

Je ne suis pas sûr de ce que tu veux.
Une confirmation des infos que je t'ai déjà données ?
Des explications ? Sur quoi ? Où mettre le code ? Autre chose ?

A+

[jamital]

Bonjour,
Je crois avoir trouvé la solution à mon problème mais, en amateur .
A voir ci joint joint la "BDD".
Résolue ? pas encore .
A+.

[marot_r]

Bonjour.

C'est pas mal même si on peut faire un peu plus simple :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Commande5_Click()   'Confirmer logIn | Ici donner un nom significtaif au boution, ex : btnConnecter
'Dim userlogin As String 'Ne sert à rien, d'après ce que je comprends, tu lui demandes d'entrer son code dans Me.Utilisateur.
'    userlogin = Environ("USERNAME") 'Ne sert à rien, d'après ce que je comprends, tu lui demandes d'entrer son code dans Me.Utilisateur
 
if not isnull(DFirst("Utilisateur", "tblUtilisateur", "[Utilisateur]=""" & Me.Utilisateur & """ and [CodeUtilisateur]=""" & Me.Codeutilisateur & """")) then
         MsgBox " c'est bon"
         'DoCmd.closeforme "utilisateurs"
         'DoCmd.OpenForm "menu"
    Else
         MsgBox "Désolé vous n'êtes pas autorisé. Contactez l'administrateur pour obtenir les accès."
End If
 
End Sub

Le IsNull est nécessaire car DFirst() retourne Null si il ne trouve pas la donnée demandée.

A+