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 :

vba fonction split dans une boucle


Sujet :

VBA Access

  1. #1
    Membre averti
    Profil pro
    Inscrit en
    Novembre 2003
    Messages
    10
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Novembre 2003
    Messages : 10
    Par défaut vba fonction split dans une boucle
    Bonjour à tous,

    Et merci de votre aide,

    j'ai une table "Loisir" :

    Num, Nom, prénom, DNN , Equipe
    1 XX Y 22/23/1970 FM|RG|DR|TR|S|FR...
    2 G E 23/01/1960 FM|RF|TR

    Je souhaite transformer ces données d'un une autre table "Loisirtest" sous le format suivant:

    Num, nom, prénom, DNN, eq1, eq2, eq3, eq4, eq5, eq6, eq7, eq8
    1 XX Y 22/23/1970 FM RG DR TR S FR
    2 G E 23/01/1070 FM RF TR

    voila mon p'tit bout de code.

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    Set db = currentdb
    set ReqLoisir = db.openrecordset ("loisir")
    set RReqTest = db.openrecordeset (loisirtest")
    do until Rs.EOF
    if not is null (reqloisir)then
    tableau 1= split(Reqloisir!equipe,"|")
    For IN= Lbound(tableau) to Unbound(tableau)
    if tableau(IN) <> " " then
     
    reqloisir.addnew
    ReqLoisir.num =RReqTest.num
    ReqLoisir.nom=RReqTest.nom
    ReqLoisir.prenom=RReqTest.prenom
    ReqLoisir.dnn=RReqTest.dnn
    je bloque a ce niveau là
     
    next IN
    Merci de votre aide

  2. #2
    Rédacteur/Modérateur

    Avatar de User
    Homme Profil pro
    Développeur informatique
    Inscrit en
    Août 2004
    Messages
    8 605
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 55
    Localisation : France, Ain (Rhône Alpes)

    Informations professionnelles :
    Activité : Développeur informatique

    Informations forums :
    Inscription : Août 2004
    Messages : 8 605
    Billets dans le blog
    67
    Par défaut
    Salut,

    Tout d'abord ton code comporte des incohérences..

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
     
    Dim ReqLoisir As DAO.Recordset
    Dim RReqTest As DAO.Recordset
     
    Set db = CurrentDb
    Set ReqLoisir = db.OpenRecordset("loisir", dbOpenSnapshot)
    Set RReqTest = db.OpenRecordset("loisirtest", dbOpenDynaset)
     
    Do Until ReqLoisir.EOF
     
    RReqTest.AddNew
    RReqTest!num = ReqLoisir!num
    RReqTest!Nom = ReqLoisir!Nom
    RReqTest!Prenom = ReqLoisir!Prenom
    RReqTest!dnn = ReqLoisir!dnn
    ' On va essayer de débloquer a ce niveau là
     
       If Not IsNull(ReqLoisir!equipe) Then
       tableau = Split(ReqLoisir!equipe, "|")
     
       For I = LBound(tableau) To UBound(tableau)
     
          If tableau(I) <> " " Then
             RReqTest.Fields("Eq" & (I + 1)) = tableau(I)
          End If
     
       Next I
     
       End If
     
    RReqTest.Update
     
    ReqLoisir.MoveNext
     
    Loop
     
    ' fermeture des variables
    RReqTest.Close
    ReqLoisir.Close
    J'ai trouvé beaucoup d'erreurs dans ton code, je te conseil donc d'aller voir ce lien:
    http://warin.developpez.com/access/dao/

    Si tu veux comprendre la manipulation des données en DAO.


    Bonne continuation ...(c'est jamais évident au début )

    A+
    Vous trouverez dans la FAQ, les sources ou les tutoriels, de l'information accessible au plus grand nombre, plein de bonnes choses à consulter sans modération

    Des tutoriels pour apprendre à créer des formulaires de planning dans vos applications Access :
    Gestion sur un planning des présences et des absences des employés
    Gestion des rendez-vous sur un calendrier mensuel


    Importer un fichier JSON dans une base de données Access :
    Import Fichier JSON

  3. #3
    Membre averti
    Profil pro
    Inscrit en
    Novembre 2003
    Messages
    10
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Novembre 2003
    Messages : 10
    Par défaut
    Merci de ton aide,

    mais j'ai toujours le meme pb,

    il prend toujours la première valeur du champ Equipe, qu'il affiche dans les champs eq1, eq2, eq3....

  4. #4
    Rédacteur/Modérateur

    Avatar de User
    Homme Profil pro
    Développeur informatique
    Inscrit en
    Août 2004
    Messages
    8 605
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 55
    Localisation : France, Ain (Rhône Alpes)

    Informations professionnelles :
    Activité : Développeur informatique

    Informations forums :
    Inscription : Août 2004
    Messages : 8 605
    Billets dans le blog
    67
    Par défaut
    j'ai mis à jour mon code la dernière fois à 18h18:

    si tu as copié mon code avant 18h18 recopie le une nouvelle fois

    A+
    Vous trouverez dans la FAQ, les sources ou les tutoriels, de l'information accessible au plus grand nombre, plein de bonnes choses à consulter sans modération

    Des tutoriels pour apprendre à créer des formulaires de planning dans vos applications Access :
    Gestion sur un planning des présences et des absences des employés
    Gestion des rendez-vous sur un calendrier mensuel


    Importer un fichier JSON dans une base de données Access :
    Import Fichier JSON

  5. #5
    Membre averti
    Profil pro
    Inscrit en
    Novembre 2003
    Messages
    10
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Novembre 2003
    Messages : 10
    Par défaut
    je viens de le refaire 19h10 meme pb.

    Merci

  6. #6
    Rédacteur/Modérateur

    Avatar de User
    Homme Profil pro
    Développeur informatique
    Inscrit en
    Août 2004
    Messages
    8 605
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 55
    Localisation : France, Ain (Rhône Alpes)

    Informations professionnelles :
    Activité : Développeur informatique

    Informations forums :
    Inscription : Août 2004
    Messages : 8 605
    Billets dans le blog
    67
    Par défaut
    dernière mis à jour à 19h26.

    cette fois j'ai testé le code.

    VERIFIE TON SEPARATEUR
    Vous trouverez dans la FAQ, les sources ou les tutoriels, de l'information accessible au plus grand nombre, plein de bonnes choses à consulter sans modération

    Des tutoriels pour apprendre à créer des formulaires de planning dans vos applications Access :
    Gestion sur un planning des présences et des absences des employés
    Gestion des rendez-vous sur un calendrier mensuel


    Importer un fichier JSON dans une base de données Access :
    Import Fichier JSON

  7. #7
    Membre averti
    Profil pro
    Inscrit en
    Novembre 2003
    Messages
    10
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Novembre 2003
    Messages : 10
    Par défaut
    Citation Envoyé par User Voir le message
    dernière mis à jour à 19h26.

    cette fois j'ai testé le code.

    VERIFIE TON SEPARATEUR
    ça marche.
    Merci de ton aide.

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

Discussions similaires

  1. [MySQL] Fonction récursive dans une boucle
    Par renaud26 dans le forum PHP & Base de données
    Réponses: 6
    Dernier message: 21/02/2008, 12h18
  2. la fonction SOMMEPROD dans une boucle dynamique
    Par Mounamidou dans le forum Macros et VBA Excel
    Réponses: 8
    Dernier message: 15/10/2007, 16h32
  3. Fonction system() dans une boucle for
    Par banban56 dans le forum C
    Réponses: 3
    Dernier message: 16/06/2007, 18h48
  4. [VBA-E] checkbox dans une boucle
    Par richou dans le forum Macros et VBA Excel
    Réponses: 6
    Dernier message: 10/05/2006, 14h59
  5. [VBA-E] QueryTables dans une boucle
    Par canorra dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 03/05/2006, 19h27

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