---Soumis par Erika Yoxall---

Retourner un enregistrement à tous les n enregistrements

(Q)    Comment retourner un enregistrement à tous les cinq enregistrements d'une table?

(A)     Voici une façon générale de retourner un enregistrement à tous les n enregistremenst d'une table. Le choix est effectué régulièrement à tous les n enregistrements, mais on peut partir à n'importe quel. Ainsi, cinq par cinq, on peut retourner le premier, le sixième, le onzième,... ou encore le seconde, le septième, le douzième,... Tout d'abord, créer la fonction suivante:

Function PlusOne (var As Variant)
Static i As Integer
    i = i + 1
    PlusOne = i
End Function

Ensuite, créer votre requête. Amener les champs désirés dans la grille. Ajouter une colonne, avec ces propriétés:

Field Expr1: PlusOne([MyField]) Mod 5
Show No
Criteria 0

Vous pouvez utiliser n'importe quel champ en lieu et place de MyField -- c'est irrelevant. Si vous désirez chaque septième enregistrement, utiliser Mod 7; Mod 10 pour chaque dixième enregistrement, et ainsi de suite.