Bonjour, j'utilise actuellement un formulaire de saisie de login et de mot de passe afin de sécuriser(plutot donné l'impression d'etre sécurisé) un formulaire. j'ai rajouté un champ domaine qui est soit a admin, invité, refusé. j'aimerais donc qu'au clic sur le bouton de validation je controle également le domaine et par ainsi ouvrir un formulaire différent , par exemple l'admin aura tous les acces, l'invité pourra consulter , le refusé sera invité a demander l'acces à l'admin.

j'ai egalement vu les options de sécurité d'access mais ce n'est pas ce qui m'interesse. Je veux surtout que cela soit ecrit en vba.

actuellement j'utilise le code suivant:
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 bouton_valider_Click()
    Dim Ssql As String
    Dim rst As DAO.Recordset
    Dim stDocName As String
    Dim stLinkCriteria As String
    Static i As Byte
 
 
    Ssql = "SELECT Passwords FROM Identifiants WHERE Utilisateurs Like """ & Me.Login & """"
    Set rst = CurrentDb.OpenRecordset(Ssql)
    If (rst.BOF And rst.EOF) = False Then
         If rst![Passwords] = Me.Pass Then
                 MsgBox "Connexion", vbInformation
                 i = 0
                 stDocName = "MODELE"
                 DoCmd.OpenForm stDocName, , , stLinkCriteria
                 'action si validation
         Else
                MsgBox "Password invalide", vbExclamation
                i = i + 1
         End If
    Else
        MsgBox "Utilisateur invalide", vbExclamation
        i = i + 1
    End If
    rst.Close
If i = 3 Then
MsgBox "Vous avez dépassé le nombre de tentatives autorisées", vbCritical
DoCmd.Quit
End If
End Sub
comment le modifié pour gérer le domaine? je ne connais pas vraiment le code vba. j'ai un peu de mal a comprendre comment récuperer les informations des tables et les tester!
pour tester, je pensais utiliser des msgbox