Discussion :

[lanfeust010]

Bonjour je viens encore vous demander votre aide j'ai du retravailler mon vba sur mon formulaire mot de passe ce formulaire ne prenant pas en compte le mot de passe mais uniquement le login je pense ne plus être loin de la solution le seul problème que je rencontre est au niveau de la première partie qui fonctionne normalement mais une fois le clic effectuer le formulaire mdp ne se ferme pas pourtant j'ai bien ma commande pour fermer le formulaire peut etre que je ne l'ai pas placer au bon endroit mais j'ai deja essayer de la changer de place et cela n'a rien changer si vous pouviez m'éclairer ca serait vraiment sympas merci

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
Option Compare Database
Option Explicit
 
Private Sub Boutonlogin_Click()
 
    Dim rs As Recordset
 
       Set rs = CurrentDb.OpenRecordset("Intervener", dbOpenSnapshot, dbReadOnly)
 
    rs.FindFirst "Username='" & Me.txtusername & "'"
 
    If rs!Username = Me.txtusername And rs!password = Me.txtpassword Then
 
        If rs!usertype = "User" Then
            DoCmd.OpenForm "Start2"
        DoCmd.Close acForm, Me.Name
        Exit Sub
        End If
        If rs!usertype <> "User" Then
            DoCmd.OpenForm "Start"
        Exit Sub
        End If
    DoCmd.Close acForm, Me.Name
    MsgBox "Wrong (user or password)", vbInformation, "Connexion"
    Exit Sub
    End If
End Sub

[lanfeust010]

pb resolu j'ai juste inversé une ligne délolé pour le dérangement