Discussion :

[rossy]

Bonjour,

J'ai un formulaire avec deux controles : nom et mot de passe.
J'aimerais effectuer une vérification de ces noms et mdp qui sont situés dans une table appellée "ids". Seulement je travaille en code VBA et je bloque un peu...

Voici mon code :

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
 
Private Sub Commande6_Click()
 
 
Dim conn As ADODB.Connection
Set conn = CurrentProject.Connection
 
nom = Me.User
mdp = Me.Pass
Dim ssql As String
 
ssql = "select pass from ids where id = '" & nom & "';"
conn.Execute ssql
If ssql = mdp Then
DoCmd.OpenForm "Admin"
Else
MsgBox ("Mauvais mdp")
End If
conn.Close
Set conn = Nothing
 
End Sub

Si l'utilisateur existe et que le mot de passe est bon, cela ouvre un formulaire (Admin).

La table des utilisateurs est 'ids" et comporte deux champs : id et pass

Quelqu'un aurait il une idee ?

[Frank]

User et Pass sont des zones de texte ?

[rossy]

oui oui ce sont les deux zones de textes qui sont sur mon formulaire où je demande l'id et le pass... [User] = le nom de la personne et [Pass] = son mot de passe...

[Frank]

Peux tu préciser ton problème, s'il te plait.

Vu comme cela ton code semble correct

[rossy]

en fait quand je teste la valeur de ssql, ca me renvoie toute la chaine de caractères "Select...." . Je voudrais savoir comment faire pour que l'utilisateur présent dans la table 'ids' puisse accéder au formulaire, et s'il n'est pas dans la table, ou que le mot de passe est erronné, il ne puisse pas y accéder.

Avec mon code, une erreur est renvoyée puisque ssql est toute la chaine de caractères "Select....", et non pas le paramètre du mot de passe. En fait j'aimerais savoir comment utiliser le RESULTAT de la requete SQL passée sous le nom de ssql (que j'execute par la suite....)

J'espere avoir été un peu plus clair... Merci d'avance !

[b_steph_2]

j'ai la solution si tu peux attendre à demain je t'enverrai ça j'ai le code en vb

[b_steph_2]

ça te permettra d'avoir une idée de comment faire cette gestion

[keita]

salut
Essai ça:

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
Private Sub Commande6_Click() 
Dim pwd As String 
nom = Me.User 
mdp = Me.Pass 
If IsNull(DLookup("pass","ids","id = " & Nom)) Then
  msgbox "La correspondance " & Nom & "  " & mdp & "n'est pas valide",vbexclamation,"Accès refusé"
exit sub
End
pwd = DLookup("pass","ids","id = " & Nom)
If pwd = mdp Then 
DoCmd.OpenForm "Admin" 
Else 
MsgBox "Mauvais mdp"
End If 
 
End Sub

@+

[rossy]

merci , c'est gentil... Si quelqu'un a une idée en attendant je suis prenneur, sinon je serais patient jusqu'a demain
Merci encore !

[Frank]

Il te faut déclarer un recordset.

ce recordset récupère la valeur de pass qui est ramenée par ta requête.

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
Dim rstPublishers As ADODB.Recordset
    Dim strCnn As String
 
    ' Open recordset with data from Publishers table.
    strCnn = "Provider=sqloledb;" & _
        "Data Source=srv;Initial Catalog=Pubs;User Id=sa;Password=; "
    Set rstPublishers = New ADODB.Recordset
    rstPublishers.CursorType = adOpenStatic
    rstPublishers.Open "SELECT * FROM publishers " & _
        "WHERE Country = 'USA'", strCnn, , , adCmdText
 
    ' Print current data in recordset.
    rstPublishers.MoveFirst
    Do While Not rstPublishers.EOF
        Debug.Print rstPublishers!pub_name & ", " & _
            rstPublishers!country
        rstPublishers.MoveNext
    Loop
 
    rstPublishers.Close
 
End Sub

Etudies cet exemple de l'aide Access.

[keita]

As tu essayé ma solution? elle ne passe pas?
@+

[Frank]

As tu essayé ma solution? elle ne passe pas?
@+

je l'avais pas vu.

c'est plus simple, sans aucun doute.

[rossy]

ben ca marche pas... j'ai une erreur au niveau de la formule DLOOKUP, il me dit 'L'objet ne contient pas d'automatisation 'nom'' ... ?

[keita]

Pardon

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
Private Sub Commande6_Click() 
Dim pwd As String, nom as string,mdp as string
nom = Me.User 
mdp = Me.Pass 
If IsNull(DLookup("pass","ids","id = " & Nom)) Then 
  msgbox "La correspondance " & Nom & "  " & mdp & "n'est pas valide",vbexclamation,"Accès refusé" 
exit sub 
End 
pwd = DLookup("pass","ids","id = " & Nom) 
If pwd = mdp Then 
DoCmd.OpenForm "Admin" 
Else 
MsgBox "Mauvais mdp" 
End If 
 
End Sub

j'avais omis les declarations de nom et mdp
@+

[rossy]

toujours pareil en fait... si je met rien, il me dit "mauvaise utilisation de Null" et si je met qqch (un utilisateur que j'ai rentré dans ma base qui s'appelle Henri) J'obtien :

L'objet n'obtient pas d'objet d'automatisation 'henri'

... Je vois pas ce qui gêne...

[keita]

Essai ça:

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
Private Sub Commande6_Click() 
Dim pwd As variant, nom as string, mdp as string 
nom = Me!User 
mdp = Me!Pass 
pwd = DLookup("pass","ids","id = " & Nom)
If IsNull(pwd) Then 
  msgbox "La correspondance " & Nom & "  " & mdp & "n'est pas valide",vbexclamation,"Accès refusé" 
exit sub 
End 
pwd = DLookup("pass","ids","id = " & Nom) 
If pwd = mdp Then 
DoCmd.OpenForm "Admin" 
Else 
MsgBox "Mauvais mdp" 
End If 
 
End Sub

[rossy]

toujours pareil... meme erreur que précédemment... pourtant ca me semble bien c'est ca que je comprends pas...

[keita]

c'est ici:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

pwd = DLookup("pass","ids","id = " & " ' " & Nom " ' ")

les quotes et double quotes

Edit1
ou comme ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

pwd = DLookup("pass","ids","id = " &  "'" & me!User & "'")

@+

[rossy]

ca marche très bien !!!!! merci !!!!
il faut juste enlever les espaces dans " ' " sinon ca marche pas !

MERCIIIIII bcp bcp !!

[b_steph_2]

ah bah tu ne vas plus avoir besoin de moi lol! contente pour toi