Discussion :

[Superpat9999]

Bonjour,
Je souhaite ajouter un champ qui incrémente ma requête.

Je ne sais pas quoi inscrire !
Merci de votre aide

[hyperion13]

Salut
Une solution parmi tant d'autres
A placer en tête de module

Code :

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

Global i As Long

Dans le module

Code :

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

1
2
3
4
Function monIncrement(UnChamp) As Long
  i = i + 1
  monIncrement = i
End Function

Dans la qry

Code :

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

1
2
SELECT *, monIncrement([ID_City_Fk]) AS Alias
FROM tCity

[Superpat9999]

Merci hiperion13,
J'ai rajouté, pour lancer la requête :

Code :

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

1
2
3
4
Sub ExecuterRequete()
i = -2
DoCmd.OpenQuery "t_City Requête", acNormal
End Sub

Pourquoi j'ai dû mettre -2 pour démarrer à 0 ?

Code :

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

1
2
3
SELECT monIncrement([ID_City_Fk]) AS Alias, t_City.CodePostal, t_City.Ville, *
FROM t_City
ORDER BY t_City.CodePostal, t_City.Ville;

Ta solution fonctionne très bien, mais je me demandais si on pouvait tout mettre dans la requête, et dans ce cas, la réponse serait-elle plus rapide que par une boucle extérieure à la requête.
La boucle est-elle extérieure réellement, ou incorporée, par "monIncrement", dès le début ?

[hyperion13]

Bonjour
Rappelez-moi à quel moment vous indiquez que votre chronologie démarre à zéro.
D'ailleurs démarrez une série par zéro, le symbole neutre en maths ...

Code :

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

1
2
SELECT *, monIncrement([ID_City_Fk]) - 1 AS Expr1
FROM tCity

[Superpat9999]

Merci hiperion13,
C'est parfait, je voulais m'en servir dans une liste déroulante, aussi partais-je de zéro (mais je me le gardais pour moi !).
Tout est OK