Discussion :

[Lenovice54]

Bonjour,
je viens de débuter sur Access et je voudrais mettre un login à l'ouverture d'access. mais une fois le login et le mot de passe entrés et que je mets OK, j'ai une erreur 2491 qui apparaît avec un problème UserLogin. lorsque je mets le débogage, j'ai une ligne qui apparaît en jaune (cf ligne en taille 5)
Quelqu'un pourrait-il m'aider SVP?
Merci par avance
Bien cordialement

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 Commande1_Click()
Dim UserLevel As Integer
Dim TempPass As String
Dim ID As Integer
If IsNull(Me.txtLoginID) Then
    MsgBox "entrez un Login", vbInformation, "Login nécessaire"
    Me.txtLoginID.SetFocus
ElseIf IsNull(Me.txtPassword) Then
    MsgBox "entrez un Mot de passe", vbInformation, "Mot de passe nécessaire"
    Me.txtPassword.SetFocus
Else
    'Mise en route
    If (IsNull(DLookup("UserLogin", "TblUser", "UserLogin ='" & Me.txtLoginID.Value & "'"))) Or _
    (IsNull(DLookup("Password", "TblUser", "Password ='" & Me.txtPassword.Value & "'"))) Then
        MsgBox "Login ou Mot de passe incorrect"
    Else
        UserLevel = DLookup("UserSecurity", "TblUser", "UserLogin ='" & Me.txtLoginID.Value & "'")
        TempPass = DLookup("password", "TblUser", "UserLogin = '" & Me.txtLoginID.Value & "'")  
        ID = DLookup("UserID", "TblUser", "UserLogin = '" & MeTxtLoginID.Value & "'")
        DoCmd.Close
        If (TempPass = "Password") Then
            MsgBox "Merci de changer de Mot de passe", vbInformation, "Nouveau Mot de passe nécessaire"
            DoCmd.OpenForm "UserInfo", , , "[UserID] = & ID"
        Else
            If UserLevel = 1 Then
        'MsgBox "Login et Mot de passe corrects"
                DoCmd.OpenForm "Menu Principal"
            Else
                DoCmd.OpenForm "Utilisateurs"
            End If
        End If
    End If
End If
End Sub

[marot_r]

Bonjour.

à part qu'on ne voit pas quel type est rst, le reste semble correct.

Il va falloir vérifier les élément 1 à 1.

met un point d'arrêt sur la ligne en erreur (en cliquant dans la marge à gauche cela va mettre un gros point marron).
Quand l'exécution s'arrête, va dans la fenêtre d'exécution immédiate (en appuyant sur les touches [Ctrl][g]).
Tapes :

• ? Me.txtLoginID.Value & "'" [enter]
  Est-ce que la valeur est correcte ?
• ? DLookup("UserSecurity", "TblUser", "UserLogin ='" & Me.txtLoginID.Value & "'") [Enter]
  Est-ce que la valeur est correcte ?

Le ? signifie "print" et va afficher la valeur dans la fenêtre d'exécution immédiate.

Note que le .value est optionnel, on peut écrire Me.txtLoginID.

A+

[monirr]

Ton code fonctionne bien chez moi!!!

mais ton Erreur 2491 a plusieurs facteurs par fois l’installation de Access

[Lenovice54]

Bonsoir Marot_r
je viens de faire le test. la première valeur est bonne mais pour la second, j'ai un message d'erreur qui m'indique : "L'objet ne contient pas d'objet d'automation "UserLogin""

Qu'est ce que cela signifie? Désolé je dois paraître vraiment nul mais je me penche sur ce problème et je ne vois pas pourquoi. PAr ailleurs, je ne peux pas accéder à l'icône "relation".... Bizarre tout cela.
j'espère que tu pourras m'apporter ta précieuse aide.
Excellent soirée à toi
Merci encore pour ta première réponse

[marot_r]

Bonjour.

UserLogin est peut-être un mot réservé du langage.

Essaye en le renommant MyUserLogin par exemple et refait le test.

Pour l'icône relations, aucune idée.

A+

[Lenovice54]

merci beaucoup marot!!