Discussion :

[Rock01]

J'utilise Access 2003, et je veux executer les codes ci-dessous mais a chaque fois le contenu du recordset est vide aide moi svp

Code :

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

1
2
3
4
5
Dim STR As String
    Dim x As Recordset
    Set db = CurrentDb
    STR = "SELECT Montant FROM vouchComptes "
    Set x = db.OpenRecordset(STR)

[Jean-Philippe André]

bonjour Rock01,
bienvenue sur DVP

comment testes-tu le contenu de ton recordset derrière ? comment sais-tu que le recordset est vide ?

[francishop]

Bonjour,

Pour s'amuser, on va faire un exemple.
La table vouchComptes (Qu'il faudrait préfixer tblvouchComptes)
Montant..Id_Compte...Titulaire.....Adresse.............Ville
..10.............1.............Moi.....20 rue droite.....Tartempion
..12.............2.............Toi....10 rue gauche....ChouxenBraise

Un formulaire. Sur ce dernier un bouton-->btnTestDao
Un peu de code pour justifier cette présence :

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 btnTestDao_Click()
Dim db As DAO.Database
Dim rst As DAO.Recordset
 
' Ouvrir la table vouchComptes
Set db = CurrentDb
Set rst = db.OpenRecordset("vouchComptes", dbOpenTable)
 
' Choix de l'index de recherche
' (ne fonctione que sur un Recordset de type Table (dbOpenTable)
rst.Index = "PrimaryKey"
rst.Seek "=", 2
 
' Afficher le compte répondant aux critères
MsgBox ("Numéro = ") & rst("Id_Compte") & _
    vbCrLf & rst("Titulaire") & _
    vbCrLf & rst("Adresse") & _
    vbCrLf & rst("Ville")
 
' Libérer les objets
rst.Close
Set rst = Nothing
Set db = Nothing
End Sub

Il peut être utile de voir : http://access.developpez.com/faq/?page=SQL#Recordset

Cordialement.