Comment récupérer les résultats d'une requete.

bonjour.

tu bases ton formulaire sur la requête et dans ce cas tu auras tous les
champs à ta disposition pour les afficher sur le formulaire.
Si tu veux récupérer les résultats impérativement en vba, tu passes par un
recordset, que tu places sur l'événement click d'un bouton par exemple:
Dim Db As Dao.Database
Dim Rs As Dao.RecordSet
Dim strSql As String
strSql = "Select * from table1 where ......."
Set Db = Currentdb
Set Rs = Db.OpenRecordset(strSql)
If Rs.BOF Then GoTo Exit_Sub
Me.Lenom = Rs.Fields("Nom")
Me.Prenom= Rs.Fields("Prenom")
' et la suite .....
Exit_Sub:
Set Rs = Nothing
Set Db = Nothing

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"REYNAUD Guillaume" <special_foxfr@yahoo.fr> a écrit dans le message de
news:Usenet.hebsoimr@localhost...

Bonjour,

J'ai créer une requete qui me retourne l'adhérent le + vieux de mon
association.

Je voudrais maintenant mettre le résultat de cette requete dans un
formulaire (Nom, prenom, date naissance, age). Comment faire ?

Je n'arrive pas à récupérer les résultats en vba ?

Pouvez-vous m'aider.

Merci.

Guillaume.

Raymond [mvp] wrote:

bonjour.

tu bases ton formulaire sur la requête et dans ce cas tu auras tous
les champs à ta disposition pour les afficher sur le formulaire.
Si tu veux récupérer les résultats impérativement en vba, tu passes
par un recordset, que tu places sur l'événement click d'un bouton par
exemple:
Dim Db As Dao.Database
Dim Rs As Dao.RecordSet
Dim strSql As String
strSql = "Select * from table1 where ......."
Set Db = Currentdb
Set Rs = Db.OpenRecordset(strSql)
If Rs.BOF Then GoTo Exit_Sub
Me.Lenom = Rs.Fields("Nom")
Me.Prenom= Rs.Fields("Prenom")
' et la suite .....
Exit_Sub:
Set Rs = Nothing
Set Db = Nothing

Merci pour ton aide Raymond