Bonsoir tout le monde,
je reviens à la charge avec un probleme de mot de passe.
Dans une base relativement importante j'ai preparé un "module" de consultaion de données persos pour les utilisateurs, qui sont autour de 80 personnes.
Afin que chacun ne puisse scruter que les infos le concernant, j'ai preparé un form de consultation reposant sur une requete avec comme critere de filtrage :
[forms]![FiltreLogin]![login]
dans le form de filtrage j'ai le script suivant qui permet de stocker les Logins/Password et apres routine de contrôle ouvre le form de consultation si OK.
voici le script utilisé (merci BBIL)
===================
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7 Option Compare Database Option Explicit Private Type sLoginPw Login As String PW As String End Type Dim LoginPw(100) As sLoginPw ' adapter la dimension au besoin
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
32
33 Private Sub cmdValid_Click() Dim i As Integer, ok As Boolean For i = 1 To 100 If Me!Login = LoginPw(i).Login And Me.PW = LoginPw(i).PW Then ok = True Exit For End If Next i If ok Then DoCmd.OpenForm "Consultation" DoCmd.Close acForm, Me.Name Else MsgBox "LOGIN OU PASSWORD ERRONE ! VEUILLEZ LES RESSAISIR", vbInformation DoCmd.Close acForm, Me.Name End If Erase LoginPw End Sub Private Sub Form_Load() Call Initialisation End Sub Sub Initialisation() Dim i As Integer For i = 1 To 100 LoginPw(1).Login = "patrick" LoginPw(1).PW = "3637" LoginPw(2).Login = "Philippe" LoginPw(2).PW = "2623" LoginPw(3).Login = "Didier" LoginPw(3).PW = "3420" Next i End Sub
===================
Vu le nombre d'utilisateurs, il me semblerait judicieux d'exploiter ma table personnel ou se trouve les noms et d'y rajouter une colonne "password" et de rassembler ces couples au moyen d'une requete ; plutot que de stocker 70 ou 80 ensembles Login/Password dans le script du formulaire de filtrage.
Pour cela j'ai besoin d'aide pour modifier ce fameux script ou bien faut il repartir de zero ?
Merci d'avance aux ames genereuses et surtout competentes du forum !
Balises de code mises. je te laisse y penser pour les prochaines fois Merci.Faw
Partager