Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Access Recordset et table attachée

Recordset et table attachée

2 réponses
Avatar
NetChris
Bonjour,

Comment utiliser une table attachée avec DAO ?

Ma table CHAMP_FUSION_BATCH contient 6215 enregs (donc varX = 6215) si la
table est locale,
or si ell est attachée (depuis un autre MDB), varX = 1 !!!

Dim Db As DAO.Database
Set Db = CurrentDb()
Dim RsCF As DAO.Recordset
Dim RsQRenf As DAO.Recordset


DoCmd.RunSQL "DELETE DISTINCTROW [CHAMP_FUSION_BATCH].* FROM
[CHAMP_FUSION_BATCH];" 'on vide la table Champ_Fusion_Batch

Set RsCF = Db.OpenRecordset("CHAMP_FUSION_BATCH") 'vue triée
CodeDevis sur ChampFusionEnAttente
Set RsQRenf = Db.OpenRecordset("R_BATCH_ENF_TOP2") 'Traitement
des enfants a mettre ds CFusion

VarX = RsCF.RecordCount


Merci
Chris
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
NetChris
Merci, cela fonctionne.

Je suis resté bloqué car si la table est locale, mon varx donnait bien la
bonne valeur.

Merci encore.
Chris

"Jessy SEMPERE" a écrit dans le message de
news:bjhsrg$14s$
Bonjour

Pour que ta variable contienne réellement le nombre d'enregistrement, tu
dois
parcourir entièrement le recordset avant
(en utilisant movelast par exemple)

RsCF.movelast
VarX = RsCF.RecordCount


@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"NetChris" a écrit dans le message
news:

bjhsb6$c2a$
Bonjour,

Comment utiliser une table attachée avec DAO ?

Ma table CHAMP_FUSION_BATCH contient 6215 enregs (donc varX = 6215) si
la


table est locale,
or si ell est attachée (depuis un autre MDB), varX = 1 !!!

Dim Db As DAO.Database
Set Db = CurrentDb()
Dim RsCF As DAO.Recordset
Dim RsQRenf As DAO.Recordset


DoCmd.RunSQL "DELETE DISTINCTROW [CHAMP_FUSION_BATCH].* FROM
[CHAMP_FUSION_BATCH];" 'on vide la table Champ_Fusion_Batch

Set RsCF = Db.OpenRecordset("CHAMP_FUSION_BATCH") 'vue
triée


CodeDevis sur ChampFusionEnAttente
Set RsQRenf = Db.OpenRecordset("R_BATCH_ENF_TOP2")
'Traitement


des enfants a mettre ds CFusion

VarX = RsCF.RecordCount


Merci
Chris








Avatar
Jessy SEMPERE
Bonjour

Pour que ta variable contienne réellement le nombre d'enregistrement, tu
dois
parcourir entièrement le recordset avant
(en utilisant movelast par exemple)

RsCF.movelast
VarX = RsCF.RecordCount


@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"NetChris" a écrit dans le message news:
bjhsb6$c2a$
Bonjour,

Comment utiliser une table attachée avec DAO ?

Ma table CHAMP_FUSION_BATCH contient 6215 enregs (donc varX = 6215) si la
table est locale,
or si ell est attachée (depuis un autre MDB), varX = 1 !!!

Dim Db As DAO.Database
Set Db = CurrentDb()
Dim RsCF As DAO.Recordset
Dim RsQRenf As DAO.Recordset


DoCmd.RunSQL "DELETE DISTINCTROW [CHAMP_FUSION_BATCH].* FROM
[CHAMP_FUSION_BATCH];" 'on vide la table Champ_Fusion_Batch

Set RsCF = Db.OpenRecordset("CHAMP_FUSION_BATCH") 'vue triée
CodeDevis sur ChampFusionEnAttente
Set RsQRenf = Db.OpenRecordset("R_BATCH_ENF_TOP2") 'Traitement
des enfants a mettre ds CFusion

VarX = RsCF.RecordCount


Merci
Chris