IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VBA Access Discussion :

probleme contenu recordset


Sujet :

VBA Access

  1. #1
    Membre confirmé
    Profil pro
    Chef de Projet
    Inscrit en
    Décembre 2004
    Messages
    166
    Détails du profil
    Informations personnelles :
    Localisation : France, Val d'Oise (Île de France)

    Informations professionnelles :
    Activité : Chef de Projet

    Informations forums :
    Inscription : Décembre 2004
    Messages : 166
    Par défaut probleme contenu recordset
    bonjour,

    J'ai créé un recordset afin d'effectuer la mise à jour de ma base de données.
    Avant cette mise à jour je vérifie le nombre d'enregistrement de mon recordset grâce à la fonction recordcount. Cette fonction me renvoie la valeur "1" alors que ma requête SQL me renvoie plus de résultats.
    Voici mon code :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    rqtSelectProdClause = " SELECT Produits_Champs.No_produits_Champs " _
                            & "FROM ((Produits_Champs INNER JOIN Produits_Champs_Valeurs ON " _
                            & "Produits_Champs.No_produits_Champs = Produits_Champs_Valeurs.No_produits_Champs) " _
                            & "INNER JOIN Produits_Champs_Valeurs_gestion ON " _
                            & "Produits_Champs_Valeurs.No_produits_Champs_Valeur = Produits_Champs_Valeurs_gestion.No_produits_Champs_Valeur) " _
                            & "INNER Join types_Nom_champ On " _
                            & "Produits_Champs.No_Champ = Types_Nom_Champ.No_champ " _
                            & "WHERE Types_Nom_Champ.No_Champ = 83;"
     
    Set rstSelectProdClause = db.OpenRecordset(rqtSelectProdClause, dbOpenDynaset, dbSeeChanges)
     
    MsgBox rstSelectProdClause.RecordCount()
    Pouvez vous m'aider svp?

  2. #2
    Membre Expert
    Avatar de mout1234
    Profil pro
    Inscrit en
    Novembre 2006
    Messages
    2 210
    Détails du profil
    Informations personnelles :
    Âge : 56
    Localisation : France, Paris (Île de France)

    Informations forums :
    Inscription : Novembre 2006
    Messages : 2 210
    Par défaut
    Bonjour,

    Comportement classique du recordset: la propriété RecordCount n'est correctement établie que lorsque le recordset a été complètement parcouru.

    donc ajoute qq chose du genre:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    with rqtSelectProdClause 
         If not .EOF THEN
               .movelast
                     ' à ce moment, la propriété Recordcount est correcte
                     msgbox .Recordcount
               .movefirst 
         end if
    end with

  3. #3
    Invité
    Invité(e)
    Par défaut
    Bonjour

    Essayes de faire un
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    rstSelectProdClause.MoveLast
    avant ton MsgBox

  4. #4
    Membre confirmé
    Profil pro
    Chef de Projet
    Inscrit en
    Décembre 2004
    Messages
    166
    Détails du profil
    Informations personnelles :
    Localisation : France, Val d'Oise (Île de France)

    Informations professionnelles :
    Activité : Chef de Projet

    Informations forums :
    Inscription : Décembre 2004
    Messages : 166
    Par défaut
    Merci ça fonction avec recordset.movelast

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Probleme variable Recordset
    Par amoiraud dans le forum VB 6 et antérieur
    Réponses: 1
    Dernier message: 12/10/2006, 18h57
  2. Probleme creation recordset
    Par stan314 dans le forum Access
    Réponses: 1
    Dernier message: 14/05/2006, 16h13
  3. Pb Affiche contenu Recordset dans zone de liste
    Par stan314 dans le forum Access
    Réponses: 5
    Dernier message: 11/05/2006, 16h53
  4. Probleme de recordset parcourant excel
    Par ironik dans le forum Macros et VBA Excel
    Réponses: 9
    Dernier message: 07/04/2006, 12h00
  5. probleme de recordset dans une boucle do while
    Par Shoryu dans le forum ASP
    Réponses: 18
    Dernier message: 05/07/2004, 15h30

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo