RECORDSET VBA Code dynamique

Bonjour,

Meilleurs voeux 2012

J'ai une Base de données (Access) qui contient les champs suivants, il y a :

PAYS
REGION
DEPARTEMENT
DEVISE
CLIENT


Ma problématique est la suivante :

Je voudrais constituer autant de tables qu'il y a de combinaison (PAYS - REGION - VILLE - DEVISE - CLIENT)

Exemple :

Citation:

---

PAYS.............REGION...........DEPARTEMENT..........DEVISE.......CLIENT
FRANCE..........CORSE............CORSE DU SUD...........EUR............TATA
FRANCE..........AQUITAINE.......GIRONDE..................CAD............TETE
FRANCE..........CORSE............CORSE DU SUD............EUR............TATA
FRANCE..........AQUITAINE.......DORDOGNE................PLN............TOTO

---

Ainsi pour cet exemple succint, je dois constituer 3 tables :

Premiere Table qui contient :

Citation:

---

PAYS.............REGION...........DEPARTEMENT..........DEVISE.......CLIENT
FRANCE..........CORSE............CORSE DU SUD............EUR............TATA
FRANCE..........CORSE............CORSE DU SUD...........EUR............TATA

---

Deuxième Table :

Citation:

---

PAYS.............REGION...........DEPARTEMENT..........DEVISE.......CLIENT
FRANCE..........AQUITAINE.......DORDOGNE................PLN............TOTO

---

Troisième Table :

Citation:

---

PAYS.............REGION...........DEPARTEMENT..........DEVISE.......CLIENT
FRANCE..........AQUITAINE.......GIRONDE..................CAD............TETE

---

Auriez-vous une idée de comment le code doit-il être construit, sachant que ce code doit-être flexible càd si je rajoute un critère (par exemple : PAYS - REGION - VILLE - DEVISE - VILLE - CLIENT )
celà n'entraîne pas des modifications lourdes dans le code.


D'avance merci pour vos propositions

Bonjour casavba,

Plusieurs questions :
1.

Citation:

---

J'ai une Base de données (Access) qui contient les champs suivants

---

Il s'agit bien d'une table et non d'une base, ou alors est-ce que ce sont plusieurs tables ?

2. comment comptes-tu appeler chaque table créée ?

Ensuite, la solution que j'envisagerais, à chaud.
1er étape: créer une requête dynamique, basée sur une requête de regroupement dont la syntaxe serait :

Code:

---

select 'select (PAYS,REGION,DEPARTEMENT,DEVISE,CLIENT) from ma_table_source into table_' & departement AS req from ma_table_source GROUP BY DEPARTEMENT

---

2e étape : créer une requête de suppression des données insérées dans ma requête de création de table

Code:

---

select 'delete * from table_' & departement & ';' AS req from ma_table_source GROUP BY DEPARTEMENT

---

3e étape créer une requête d'insertion des données dans ces tables, à présent vides:

Code:

---

1 2 3 4 5 6

select 'INSERT INTO table_' & departement & ( PAYS,REGION,DEPARTEMENT,DEVISE,CLIENT ) SELECT PAYS,REGION,DEPARTEMENT,DEVISE,CLIENT FROM ma_table_source where PAYS = '' & PAYS & ''' &_ ' and REGION = '' & REGION & ''' &_ and DEPARTEMENT = '' & DEPARTEMENT & ''' &_  and DEVISE = '' & DEVISE & ''' &_ and CLIENT = '' & CLIENT & '';' as REQ FROM ma_table_source

---

Pour chaque étape tu exécute dans le code VBA :

1. ouverture d'un recordset à partir de la requête
2. dans la boucle de parcours de chaque enregistrement du recordset
   - docmd.runSQL & 'recordset

Merci dumas.blf

Ton aide m'était précieuse.

En fait, je suis passé par une table intermédiaire qui repertorie mes critères (Select distinct Champs from matableglobale)

Après je parcours la table avec un Recordset

en exécutant pour chaque ligne docmd.runSQL & 'recordset



Merci