Fazer uma consulta devolver cada enésimo registro

Como monto uma consulta que devolva apenas cada quinto registro de uma tabela?

Autor: Erika Yoxall

Esta é uma forma geral para criar uma consulta que devolva cada enésimo registro de uma tabela. Ela vai selecionar registros igualmente espaçados mas não começando em um ponto particular, ou seja, ela pode devolver o primeiro, quinto, nono ou segundo, sexto e décimo registros se for passado um espaçamento igual a quatro. Primeiro crie a função:

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

 

Depois crie sua consulta. Arraste para a grade todos os campos que você deseja ver na saida. Acrescente mais uma coluna à consulta, com as seguintes propriedades:

Campo Expr1: MaisUm([MeuCampo]) Mod 5
Mostrar No
Criteria 0

Você pode usar qualquer campo da saida no lugar de MeuCampo - não importa o campo usado. Se você desja cada sétimo registro, use Mod 7, se cada décimo, use Mod 10 e assim por diante.