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 :

Impression Etat enregistrement par enregistrement avec VB [AC-2003]


Sujet :

VBA Access

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Profil pro
    Inscrit en
    Avril 2008
    Messages
    26
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Avril 2008
    Messages : 26
    Par défaut Impression Etat enregistrement par enregistrement avec VB
    Bonjour à tous, voila mon petit souci.

    Access 2003

    J'ai un état basé sur un formulaire (Etat.code = Formulaire.code) qui lui ai basé sur une requête retournant plusieurs enregistrement. Je souhaite que pour chaque enregistrement, l'etat se lance, s'imprime et se ferme (ou s'imprime directement).
    Je suis donc passé par un code vb qui parcours les enregistrement, le parcours marche (puisque les msgbox fonctionnent), mais il ne m'imprime que le premier enregistrement jusqu'au EOF.

    Voila mon code :

    sur activation du formulaire :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    Dim db As Database
    Dim rs As Recordset
     
    Set db = CurrentDb
    Set rs = db.OpenRecordset("R_test")
     
    rs.MoveFirst
    While Not rs.EOF
      MsgBox rs("code_rep")
      DoCmd.OpenReport "Etat", acViewNormal, , " [Code_rep] = " & rs("Code_rep")
      rs.MoveNext
    Wend
    rs.Close
    Peut etre le souci viendrait de l'emplacement de ce code

    Si vous voyer quelque chose, merci d'avance !

  2. #2
    Membre averti
    Profil pro
    Inscrit en
    Avril 2008
    Messages
    26
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Avril 2008
    Messages : 26
    Par défaut
    Ok j'ai réussi à repérer le problème, il venait du type de mon champs "code_rep" qui était du texte (j'ai pris un numérique):

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    Dim db As Database
    Dim rs As Recordset
     
    Set db = CurrentDb
    Set rs = db.OpenRecordset("R_test")
     
    rs.MoveFirst
    While Not rs.EOF
      MsgBox rs("code_rep")
      DoCmd.OpenReport "Etat", acViewNormal, , " [num_auto] = " & rs("num_auto")
      rs.MoveNext
    Wend
    rs.Close

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

Discussions similaires

  1. Réponses: 3
    Dernier message: 03/12/2013, 19h07
  2. [AC-2010] Filtrer les enregistrements par date avec une liste déroulante
    Par sardaucar dans le forum IHM
    Réponses: 7
    Dernier message: 19/11/2013, 19h13
  3. [AC-2003] Imprimer un état enregistrement par enregistrement
    Par Bqrt37 dans le forum IHM
    Réponses: 5
    Dernier message: 28/05/2009, 14h59
  4. [Etat]Imprimer un enregistrement par page
    Par The_Super_Steph dans le forum IHM
    Réponses: 6
    Dernier message: 24/05/2007, 08h59
  5. Réponses: 4
    Dernier message: 28/04/2006, 23h21

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