Discussion :

[greg64]

je suis en train de bouquiné la FAQ de Access on explique comment construire un recordset, comment le parcourir mais il me manque comment afficher les résultats de la requêtes.

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
 
    Dim db As DAO.Database, rst As DAO.Recordset, fld As DAO.Field
    Dim sSQL As String
    Dim reponse As String
    ' Ouverture de la base de données
    Set db = CurrentDb
    sSQL = "Select * From utilisateurs;"
    ' Ouverture du recordset
    Set rst = db.OpenRecordset(sSQL, dbOpenForwardOnly, dbReadOnly)
    rst.MoveFirst
    Do Until rst.EOF
        code
        reponse = rst.MoveNext
        MsgBox reponse
    Loop
    ' Fermeture du Recordset
    rst.Close

merci de votre aide

[cafeine]

Hello

L'idéal pour afficher un recordset, c'est un formulaire
et pour l'imprimer, un état.

Tu peux parfaitement afficher les données de la table Utilisateurs ou de n'importe quelle requête en créant un formulaire via l'assistant.

[greg64]

je sais mais mon but est de créer un formulaire pour la saisie d'un mot de passe donc de comparer les champs de mon formulaire (nom et mot de passe) avec les résultats obtenus dans ma requete.

[cafeine]

pourquoi réinventer la roue ?

la FAQ est là :
http://access.developpez.com/faq/?re...e+mot+de+passe

[greg64]

c'est sur avec des formulaires dèjà fait c'est plus facil encore faut-il les comprendre entièrement.

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
 
Private Sub Commande5_Click()
Me.Requery
Dim sql, User_id, User_groupe As String
Dim rs As DAO.Recordset
Static i As Byte
sql = "SELECT * FROM utilisateurs WHERE loggin = '" & Me.nom_passe & "' AND PASSWD ='" & mot_passe & "';"
Set rs = CurrentDb.OpenRecordset(sql)
If Not rs.EOF Then
  DoCmd.OpenForm "Switchboard", acNormal, , , , acWindowNormal
  DoCmd.Close acForm, "saisie_passe"
  User_id = rs("loggin").Value
  User_groupe = rs("droit").Value
Else
  MsgBox "(Identifiant, Mot de Passe) incorrect ", vbInformation, "Connexion"
  i = i + 1
End If
If i = 3 Then
MsgBox "Vous avez dépassé le nombre de tentatives autorisés", vbCritical
DoCmd.Quit
End If
 
 
End Sub

j'ai une erreure à cette ligne

Code :

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

1
2
 
Set rs = CurrentDb.OpenRecordset(sql)

[greg64]

merci de ton aide pb résolu