Optimiser code VBA

**willytito** · 13/11/2007, 17h12

Bonjour à tous,

Je travail avec access 2003
J'utilise des boucles pour effectuer une tâche, mais ce processus est très longue.

Voici l'énoncé du problème :
J'ai une table (Table_1) de la forme
Table_1 (Idt, Date1, Lbl1, Date2, Lbl2)
Lbl1 peut prendre les valeurs (A ou B) et Date1 (la date à laquelle la valeur Lbl1 a été affectée)
Lbl2 peut prendre les valeurs (C ou D) et Date2 (la date à laquelle la valeur Lbl2 a été affectée)

le but est de créer une nouvelle table (Table_2)
Table_2 (Idt, Date_A, Date_B, Date_C, Date_D)

Idt de la table(Table_2) est identique à Idt de la table (Table_1)
Date_A est égale à la valeur de Date1 si Lbl1 est égale à "A"
Date_B "" "" "" "" "" "B"
Date_C est égla à la valeur de Date2 si Lbl2 est égale à "C"
Date_D "" "" "" "" "" "D"

J'ai procédé de la façon suivante :

J'ai utilisé un recordset pour avoir la liste des identifiants (select distinct Idt from Table_1)

J'ouvre le recordset
Je le parcours aved la méthoe

do
J'Ouvre d'autres recordset

select Date1 from Table_1 where Lbl1 = "A"

Idem pour "B", "C" et "D"

Les valeurs sont stokées dans des variables

Et j'utilise la méthode Insert into pour renseiger la talbe Table_2

loop while rs.eof = false

En espérant que j'ai été suffisament clair
Si quelqu'un a un autre moyen pour arriver à ce résultat (Méthode permettant d'accelérer le processus) !

Merci
Willy

**random** · 13/11/2007, 17h39

pas besoin de boucle

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Select idt, iif(lb1="A",date1,null) as dat1, iif(lb1="B",date1,null) as dat2, iif(lb2="C",date2,null) as dat3, iif(lb2="D",date2,null) as dat4
 
From table1;

**willytito** · 14/11/2007, 09h58

Merci,

Je vais essayer de réadapter mon code

Willy

**willytito** · 14/11/2007, 12h21

Bonjour,

Tout d'abord merci pour la fonction (iif), c'est génial
Mon problème s'est en parti résolu
Existe-t-il une solution aussi simple pour résoudre la suite de mon problème
Suite à l'utilisation de la fonction précédente, j'ai le résultat suivant :

Pour un identifiant identiqaue, j'ai plusieur lignes par exemple :
Idt = 1, Date_1 = Date, Date_2 = null
Idt = 1, Date_1 = null, Date_2 = Date

Je voudrais obtenir le résultat suivant :
Idt = 1, Date_1 = Date, Date_2 = Date
C'est-à-dire, regrouper les lignes ayant le même identifiant
Je pourrais le faire avec des boucles, mais si vous avez une autre idée, je suis prenant

Y a-t-il un moyen d'enrichir la requête qui m'a été proposée
Est-t-il possible de détecter les valeurs des identifiants avec et sans doublon
Je voudrais traîter séparemment les doublons, car je pourrais insérer dans la nouvelle table les lignes qui ne sont pas en doublon (Pour limiter le temp de traitement)

Merci
Willy