Execution REquete en VBA

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:

---

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)

---

bonjour Rock01,
bienvenue sur DVP :king::salut::yaisse2:

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

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:

---

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.