Discussion :

[Nicola]

Bonjour,
cela a l'air simple comme cela, mais pourtant je n'arrive pas à trouver une manière de faire: je voudrais tout simplement faire une numérotation automatique sur mes résultats d'une requête sélection.
Que le premier résultat ait 1, le deuxième 2... Rien n'y fait je ne trouve pas

Merci d'avance

[anto]

va voir ici

http://www.developpez.net/forums/showthread.php?t=16872

a+

[pgz]

Bonjour,

Je connais un moyen, mais pas très simple Tu le veux quand même?

pgz

[Nicola]

Tout d'abord merci Anto, mais je patauge un peu avec les infos donnés sur le lien surtout que la fonction number n'a pas l'air de marcher.
Je suis preneur de toutes les solutions pgz

[pgz]

Re,

Je suis preneur de toutes les solutions pgz

Alors en voci une, mais cela tient plus de l'astuce que du travail propre...

Le principe : tu as une requête initiale qui fonctionne mais dont tu veux numéroter les lignes. On ne va pas touvher à la requête initiale(MaRequête), mais en créer une seconde.

D'abord créer deux fonctions

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim iCompt as Long
Public Function fctPlus(NomChamp As Variant, iCombien As Long) As Long
iCompt = iCompt + iCombien
fctPlus = iCompt
End Function
 
Public Function fctZéro(iCombien As Long) As Boolean
iCompt = iCombien
fctZéro = True
End Function

La première fonction va régler le pas du comptage. La deuxième va permettre de choisir la première valeur. Donc pour compter d'un en un à partir de un, ces 2 paramètres seront respectivement 1 et 0.

Ensuite tu crées la nouvelle requête

Code :

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

1
2
3
SELECT MaRequête.*, fctplus([NomDUnChampDeMaRequête],1) AS num
FROM MaRequête
WHERE (fctzéro(0));

Bon courage,

pgz

[Nicola]

Merci je suis sur le bon chemin, néanmoins il me reste un pb assez étrange...

Quand je lance ma requête j'ai bien ma numérotation, tout semble parfait mais l'incrémentation continue... C'est la première fois que je vois ça, c'est à dire que chaque fois que je rafraichis ma requête (tout simplement en faisant bouger la barre de défilement) j'ai les numéros qui continuent de s'incrémenter.
Qu'ai je mal fait? Les fonctions ont l'air de marcher, je ne comprends pas.

[pgz]

chaque fois que je rafraichis ma requête (tout simplement en faisant bouger la barre de défilement) j'ai les numéros qui continuent de s'incrémenter

C'est la limite de l'exercice.

Le rafraîchissement provoque un appel de fctPlus...

Si ton besoin final est de visualiser, tu devrais passer par un formulaire.

pgz

[philben]

Bonjour,

2 petites questions :

A) y'a t'il un <order by> dans la requête ou peut-il y en avoir un ?
B) chaque enregistrement est-il unique sur le champ ou les champs qui servent de tri ?

Philippe

[pgz]

Re,

Pour régler le pb, une petite amélioration.
Le 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
18
19
20
21
22
23
24
25
Dim iCompt As Long, Tablo() As Variant, DimTablo As Long
 
Public Function fctPlus(NomChamp As Variant, iCombien As Long) As Long
 
If DimTablo > 0 Then
    For i = 1 To DimTablo
        If Tablo(2, i) = NomChamp Then fctPlus = Tablo(1, i): Exit Function
    Next i
End If
 
DimTablo = DimTablo + 1
ReDim Preserve Tablo(2, DimTablo)
Tablo(2, DimTablo) = NomChamp
 
iCompt = iCompt + 1
Tablo(1, DimTablo) = iCompt
fctPlus = iCompt
 
End Function
 
 
Public Sub subZéro(iCombien As Long)
iCompt = iCombien
DimTablo = 0
End Sub

La requête

Code :

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

1
2
SELECT MaRequête.*, fctplus([NomDUnChampSansDoublonDeMaRequête],1) AS num
FROM MaRequête

Nécessite : un champ sans doublon et de faire

Call subZéro(0)

avant d'ouvrir la requête

pgz