OVH Cloud OVH Cloud

Equivalent "Recordset" sous VBA

2 réponses
Avatar
Twitzig
Bonjour,

Habitué de la programmation en VB, je dois réaliser une petite routine en
VBA (Access 2000), qui dans la théorie est tout bête (compter des
enregistrements, et mettre un champ à 1 ou 0 suivant le compte en cours)
seulement, comment faire en VBA l'équivalent d'un "Recordset" en VB, pour
balayer ma table????

Cette question peut sembler "béotienne", mais bon... si quelqu'un peut
m'aider....

Cordialement

2 réponses

Avatar
ze Titi
Salut Twitzig !

En utilisant un .... Recordset... Eh oui !

Pour créer et parcourir un recordset:

Dim rs As DAO.RecordSet
set rs=CurrentDb.OpenRecordset("taTable",dbOpenDynaset)
rs.MoveLast
rs.MoveFirst
While Not rs.EOF
...
rs.MoveNext
Wend
rs.Close
set rs=Nothing



En ce jour exceptionnel du lundi 05/02/2007, tu nous as très
généreusement gratifié du message suivant:

Bonjour,

Habitué de la programmation en VB, je dois réaliser une petite routine en
VBA (Access 2000), qui dans la théorie est tout bête (compter des
enregistrements, et mettre un champ à 1 ou 0 suivant le compte en cours)
seulement, comment faire en VBA l'équivalent d'un "Recordset" en VB, pour
balayer ma table????

Cette question peut sembler "béotienne", mais bon... si quelqu'un peut
m'aider....

Cordialement


--
Voilou !
Cordialement,

Ze Titi

Avatar
Jessy Sempere
Bonjour

Et biensûr, si tu es sur Access 2000 ou plus, il te faudra rajouter la
référence :
Microsoft DAO x.xx Object Library

@+
Jessy Sempere

------------------------------------
Site @ccess : http://access.fr.free.fr/
Pour l'efficacité de tous :
http://www.mpfa.info/
------------------------------------
"ze Titi" a écrit dans le message de news:

Salut Twitzig !

En utilisant un .... Recordset... Eh oui !

Pour créer et parcourir un recordset:

Dim rs As DAO.RecordSet
set rs=CurrentDb.OpenRecordset("taTable",dbOpenDynaset)
rs.MoveLast
rs.MoveFirst
While Not rs.EOF
...
rs.MoveNext
Wend
rs.Close
set rs=Nothing



En ce jour exceptionnel du lundi 05/02/2007, tu nous as très généreusement
gratifié du message suivant:

Bonjour,

Habitué de la programmation en VB, je dois réaliser une petite routine en
VBA (Access 2000), qui dans la théorie est tout bête (compter des
enregistrements, et mettre un champ à 1 ou 0 suivant le compte en cours)
seulement, comment faire en VBA l'équivalent d'un "Recordset" en VB, pour
balayer ma table????

Cette question peut sembler "béotienne", mais bon... si quelqu'un peut
m'aider....

Cordialement


--
Voilou !
Cordialement,

Ze Titi