[AC-2003] Incrément d'après liste incomplète

[brankorri]

Bonjour à Tous,

Un petit retour sur un problème non résolu. J'ai fouiné mais rouillé que je suis, je ne trouve pas le truc qui muche.

* Etabli : une Table A avec champ CPO (clef prim), Objet, NumInv
-> les valeurs dans NumInv sont numériques, mais ne suivent pas l'ordre de saisie CPO.

* Souhaité 1 : à l'ajout d'une nouvelle entrée CPO, il faut que NumInv 'n' = le plus grand NumInv de la table entière +1.

* Souhaité 2 : toutes les entrées déjà existantes ne comportent pas une valeur en NumInv ; il faut que NumInv 'x' = le plus grand NumInv de la table entière +1.


=> Ce que je comprends : il faut que ma requête porte sur la liste entière des NumInv déjà existants.

J'avais essayé cela, mais à la réflexion et à l'expérience ,c'est absurde puisque cela ne répond pas à l'objectif "Souhaité 2" :

Code :

1
2
3
SELECT A.CPO, A.NumInv, 0+Nz(COUNT(B.CPO),0) AS Test
FROM A INNER JOIN A AS B ON A.CPO>=B.CPO
GROUP BU A.CPO, A.NumINV

Comment faire svp ? Par un Select Count ? Par un modèle d'équation ?
Merci beaucoup !

Problématiquement vôtre,
BK

[marot_r]

Personnellement j'utiliserai DMax()+1 avec un petit bout de VBA bien qu'on doive pouvoir le faire avec une requête d'insertion.

Voici le code que je ferai :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
dim db as dao.database:set db=currentdb
dim r as dao.recordset:set r=db.openRecordset("nomTaTable")
 
do while not r.eof
 
   if isnull(r![NumInv]) then
      r.edit
      r![NumInv]=dmax("NumInv","NomTaTable")+1
      r.update
   end if
 
   r.movenext
loop
 
r.close:set r=nothing
set db=nothing

A+