Discussion :

[Begsweb]

Bonsoir voila , j ai un soucis pour proteger un formulaire je m explique :

J'ai plusieur formulaire et je voudrais qu as l'ouverture de certains formulaire il demande un mot de passe.

J'ai créer une table contenant ces mots de passe mais quel code dois je utiliser pour qu'au lancement du formulaire il demande un pass qui sera controle par rapport à un element de ma table, si le pass n'est pas bon l'utilisateur sera prevenus que le pass est eronner.

Bien à vous

Begs

[Imitator92]

j'avais eu un peu le même genre de soucis et voici comment je m'en etait tiré:

http://"http://www.developpez.net/fo.../#post4582093"

[Begsweb]

Oui ca ressemble a cela mais moi ce que je voudrais c'est que ce formulaire s ouvre au demarage la l utilisateur tape son login et pass le formulaire fais une verification sur la tape et si le login et pass son correct il ouvre le formulaire qui lui est destiner.

Bien à vous

begs

[Begsweb]

j'ai trouver un code qui correspond a ma recherche je l ai adapté mais la il ouvre tj le meme formulaire apres vérification qu'elle que soit le login entrer.

ci joint ma Base de travaille

http://www.7acreuser.be/Autre/1.rar

Si vous regarder dans la table j'ai le login, le pass et un element access. je voudrais que quand le login et pass sont correcte il ouvre le formulaire correspond a l element acces de se login.

Bien à vous

begs

[Begsweb]

Re ,

Personne n'as une piste pour mon soucis de gestion des utilisateurs après validation depuis via un formulaire !

Bien à vous

Begsweb

[LedZeppII]

Bonsoir,

code modifié :

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Private Sub Commande5_Click()
Dim Rs As DAO.Recordset
Dim Reconnu As Boolean
Dim strNomFormulaire As String
 
Reconnu = False
Set Rs = CurrentDb.OpenRecordset("Table Utilisateur")
Do While Not Rs.EOF
   If Rs.Fields("Username").Value = Z_User.Value Then
      Reconnu = True
      If Rs.Fields("Password").Value = Z_Pass.Value Then
         strNomFormulaire = Rs("Acces")
      End If
      Exit Do
   End If
   Rs.MoveNext
Loop
Rs.Close
 
If Reconnu = True Then
   If Len(strNomFormulaire) > 0 Then
      DoCmd.OpenForm strNomFormulaire, acNormal, , , , acWindowNormal
      DoCmd.Close acForm, Me.Name
   Else
      MsgBox "Mot de passe incorrect !!!", vbCritical, "Attention.."
   End If
Else
   MsgBox "Utilisateur non reconnu !!!", vbCritical, "Attention.."
End If
 
End Sub

Utilisateur trouvé variable Reconnu passe de False à True
Utilisateur trouvé + mot de passe correct on met le contenu du champ "acces" dans la variable strNomFormulaire

Après la boucle Do While ... Loop on teste si Reconu est à True et si la variable strNomFormulaire contient qqchose.

A+

[Begsweb]

Un grand merci à toi LedZeppII, c'est exactement ce que je cherche comme résultat.

Je débute dans Access et je tire énormement de leçon de ce forum que je trouve très fournis !

Y parais que les newbies d'aujourd'hui seront l'élite de demain y à encore beaucoup de chemin LOL

Encore merci pour la solution.

Begs