Comment ajouter par défaut une valeur dans un champ?

[zouloute]

Bonjour,
J'ai une requête tableau croisé dynamique qui me répartit par article (en tête de ligne) des quantités sur les semaines à venir (semaine 1, semaine 2... semaine 16 en tête de colonne).

Le problème est qu'il se peut qu'il n'y ait rien sur l'une des 16 prochaines semaines. (Ex: Aucune livraison prévue en semaine 8 donc le champ semaine8 n'existe même pas dans mon TCD)

J'effectue après une requête qui m'ajoute toutes les semaines 1, 2...16 dans une table comprenant déjà les 16 semaines (champ 01, 02...)

Comment est-ce que je dois écrire sous Access: Si le champ semaine8 n'existe pas dans mon TCD, ajoute 0 dans le champ 08 de ma table de destination.

Merci d'avance

[marot_r]

Si tu as déjà une table de résultat qui comporte toutes les semaines alors tu n'as pas besoin de les créer. ll te suffit de compléter celles que as déjà.

Avant de charger les données il faut s'assurer que la table 'Résultat' soit vide. Je fait cela avec une requete suppression. Il faut aussi que la valeur par défaut pour chacun des champs Senaine soit à 0, ça simplifie le code.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
dim db as database:set db=currentdb
 
db.QueryDef("rViderTableResultat").execute :'Vide la table de résulat.
 
dim rResult as recordset:set rResult=db.openRecordset("MaTableResultat")
dim rDonnees as recorset:set rDonnees=db.openRecordset("MaSourceDeDonnees")
 
dim f as field
 
do while not rDonnees.eof
   rResult.addnew
 
   for each f in rDonnees.fields
      rResult.fields(f.name)=f:'recopie les semaines existantes dans la table résultat.
   next f
 
   rResult.update
   rDonnees.movenext
loop
 
rDonnees.close:set rDonnees=nothing
rResult.close:set rResult=nothing
db.close:set db=nothing

A+

[Jeannot45]

Tu peux aussi indiquer les intitulés de tes colonnes qui apparaitront dans ton TCD. Celles-ci ne contiendront pas de valeur.

Pour faire cela, en mode création sur ta requete, affiche les propriétés de celle-ci par clique droit dans la zone de table.
Dans la propriété "Entete de colonnes", tu saisis les intitulés que tu souhaites

exemple :

Code :

"Semaine 1";"Semaine 2";....

Attention les intitulés doivent quand même correspondre aux valeurs contenues dans le champ.