Bonjour,
Pour le moment et cela fonctionne très bien, j'ai un formulaire (A) qui lors de son ouverture ouvre un autre formulaire (B) qui me demande un login et un mot de passe. Si login et mot de passe erroné, alors pas d'ouverture du formulaire (A)
Les logins et mots de passe sont renseignés dans du code VBA du formulaire (B).
Ce que j'aimerais, c'est :
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
34 Private Sub btnOK_Click() If IsNull(Me.txtMotDePasse) Then MsgBox "Login !", vbInformation Me.txtMotDePasse.SetFocus Exit Sub End If ' D CEDRIC If Me.txtUser = "cedric" And Me.txtMotDePasse = "1234" Then ' Fermer la boîte de dialogue "Identification" Application.TempVars.Add "Ma Variable", "Cédric D" DoCmd.Close blnPasswordOK = True Else ' S STEPHANIE If Me.txtUser = "stephanie" And Me.txtMotDePasse = "4321" Then ' Fermer la boîte de dialogue "Identification" Application.TempVars.Add "Ma Variable", "Stéphanie S" DoCmd.Close blnPasswordOK = True Else ' MARC D If Me.txtUser = "marc" And Me.txtMotDePasse = "987!a" Then ' Fermer la boîte de dialogue "Identification" Application.TempVars.Add "Ma Variable", "Marc D" DoCmd.Close blnPasswordOK = True Else MsgBox "User ou mot de passe incorrect.", vbExclamation Me.txtMotDePasse.SetFocus End If: End If: End If End Sub
- Transformer le code VBA du formulaire (B) pour qu'il puisse aller chercher les login et mots de passe dans une table
Exemple de table :
ID | LOGIN | MOT DE PASSE | NOM
=============================
1 | cedric | 1234 | D Cédric
2 | stephanie | 4321 | S Stéphanie
3 | marc | 987!a | D Marc
4...
5
6
...
Merci d'avance pour votre aide :-)
Partager