Ouverture de formulaire par mot de passe. [Résolu]

[amaury94270]

Bonjour,
Je voudrais savoir comment il est possible d'ouvrir un formulaire qu'après saisie d'un mot de passe ?
Merci de vos réponses.

[marot_r]

La réponse est OUI mais elle dépend du degré de protection que tu veux atteindre en mettant ce mot de passe.

Quel est ce niveau ?

Résiste à un utilisateur de base ?
Résiste à un utilisateur avancé ?
Résiste à un programmeur ?
Résiste à un hacker ?

A+

[amaury94270]

Bonjour,
Il s'agit d'empécher les utilisateur de base. En effet, j'ai fait un formulaire "Menu principal" et je voudrais ajouter un bouton pour ouvrir un autre formulaire avec validation d'un mot de pass.
Merci.

[marot_r]

Donc il te faudra une table pour enregistrer les mots de passe.

Pour un usager de base, tu n'est pas obligé de les encrypter, tu peux juste mettre un format MotDePasse sur le champ de la base.

Voici un exemple de table MotPasse :
ClefUsager, long (clef primaire ou clef unique)
MotPasse, texte

ensuite je vais supposer que dans ton from tu as :
- un champ MotPasse,
- un champ ClefUsager
- un bouton btnOuvrirFromProteger

sur Après MAJ de MotPasse:

Code :

1
2
3
4
5
6
 
if MotPasseValide(me.ClefUsager, me.MotDePasse) then
    me.btnOuvrirFormProteger.enable=true
  else
    me.btnOuvrirFormProteger.enable=false 'Tant que le mot de passe n'est pas valide le bouton n'est pas activé.
end if

dans ton form ou dans un module si tu prévois de te reservir de cette fonction ailleurs.

Déclare la fonction MotPasseValide() private si dans form, public si dans module et adapte les paramêtres en fonction de tes besoins.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
private function MotPasseValide(prmClefUsager as long, prmMotPasse as string) as boolean
  dim result as boolean:result=false
 
  dim motPasse as variant
  'Trouve le mot de passe de l'utilisateur
  motPasse = DFirst("[MotPasse]","MotPasse","[ClefUsager]=" & prmClefUsager)
 
  if not isnull(motPasse) then
 
      if motPasse=prmMotPasse then
          result=true
        else
          result=false
       end if
 
    else
       'L'utilisateur n'existe pas dans la table mot de passe.
       result=false
  end if
 
  MotPasseValide=result
end function

[amaury94270]

Ok Merci.