[Resolvido]Ordenação de dados de sorteio diferente em consulta e relatório

Olá amigos do fórum,
Já postei um tópico anteriormente para saber como efetuar sorteio num BD.
Pois bem, já fui orientado e deu certo. Inclusive já fechei o tópico com o Resolvido.
Ocorre que, na consulta funciona. Já no relatório, depende de como está configurado o SQL da consulta. Senão vejamos:

Tenho um BD para plantão de funcionários.
Faço o sorteio (escolha aleatória do funcionário) para os dias de plantão.
Na consulta do sorteio, tenho o seguinte:

SELECT TOP 5 Servidores.Codigo, Servidores.Nome, Servidores.Cargo, Servidores.Divisao, Servidores.Gratificacao
FROM Servidores
WHERE (((Servidores.Divisao)=3) AND ((Servidores.Gratificacao)="SIM"))
ORDER BY Rnd(Len(Nome));

obs: o WHERE é porque preciso somente de servidores da Divisão 3 e que possuam algum tipo de Gratificação.

Se o código estiver dessa maneira, com o TOP, funciona na consulta e no relatório (puxa os nomes na ordem em que a consulta organiza).
Ocorre que não tenho apenas 5 ou 8 ou 20 servidores. Isso pode aumentar ou diminuir.
Então tentei as duas formas seguintes:

SELECT *
FROM Servidores
WHERE (((Servidores.Divisao)=3) AND ((Servidores.Gratificacao)="SIM"))
ORDER BY Rnd(Len(Nome));

SELECT Servidores.Codigo, Servidores.Nome, Servidores.Cargo, Servidores.Divisao, Servidores.Gratificacao
FROM Servidores
WHERE (((Servidores.Divisao)=3) AND ((Servidores.Gratificacao)="SIM"))
ORDER BY Rnd(Len(Nome));

Para selecionar todos os registros da tabela.
A consulta continua funcionando do mesmo modo, porém o relatório me traz os nomes sempre na mesma ordem e não de forma aleatória, como a consulta está gerando.
Alguém sabe o que poderia ser?
Desde já agradeço.

Boa noite,
Reveja a opção de OrdenarEAgrupar

Olá Alexandre,
Mas isso na consulta ou relatório?
Não captei a mensagem.

Você diz o Agrupar e Classificar do Relatório?

Boa tarde,
isso mesmo.

Bom, aparentemente está tudo OK.
O relatório só tem o campo Nome, o qual está na aba Detalhe do relatório.
Como eu disse, com o TOP na consulta funciona o relatório. Sem o TOP, o relatório organiza sempre na mesma ordem os nomes.
Sinceramente, já fucei, mas não sei qual o problema.

Disponibilize a bd para alguém o tentar ajudar

Olá Alexandre,
Segue o BD para avaliação.
Observer a Consulta "CServidores - ApoioAdm - ComGrat - sorteio" e o relatório.

Boa tarde,
A consulta tem a função Aleatório imbutida. esta função devolve um número aleatório sempre que é chamada; assim, gera aleatório quando a consulta é aberta e também quando a consulta é chamada pelo relatório. E os números gerados podem não corresponder; se corresponderem é por coincidência
Para ultrapassar, tenha código de criação de tabela com recurso à função aleatório. Assim, os números aleatórios ficam gravados na tabela que servirá de origem do relatório e esses números gerados manter-se-ão

Olá Alexandre,
Você sugere que eu crie uma consulta créscimo para inserir em uma tabela os registros escolhidos aleatoriamente e depois baseie o relatório nessa tabela?
Vou tentar e dou o retorno.
Valeu.

Olá Alexandre,
Não consegui através da consulta-acréscimo.
Os nomes são inseridos na tabela sempre na mesma ordem.

Boa tarde,
O campo Gratificacao deve ser Sim/Não e não texto.
Veja o que adaptei
Adaptei a tabela tblSelecaoAleatorio para receber o resultado da geração de dados aleatórios. A geração dos dados é feita pelo procedimento CriaAleatorio
O relatório ficou com a origem na tabela tblSelecaoAleatorio. Assim, a tabela e o relatório mantêm a mesma ordem de dados

Olá Alexandre,
Então você criou um módulo para fazer o sorteio, certo?
Não está nem usando a consulta, certo?
Bom, só fiz a seguinte mudança para atender ao que eu queria:

Sub CriaAleatorio()
CurrentDb.Execute "DELETE * FROM tblSelecaoAleatorio"
'CurrentDb.Execute "SELECT TOP 5 Codigo, Nome, Cargo, Divisao, Gratificacao FROM Servidores WHERE Divisao = 3 And Gratificacao = 'SIM' ORDER BY Rnd(Len(Nome)) INTO tblSelecaoAleatorio;"
CurrentDb.Execute "INSERT INTO tblSelecaoAleatorio SELECT * FROM Servidores WHERE Divisao = 3 And Gratificacao = 'SIM' ORDER BY Rnd(Len(Nome));"
End Sub

Ou seja, troquei TOP 5 e os campos pelo *, pois não terei apenas 05 nomes, mas podem aumentar ou diminuir. Então quero todos os registros existentes.
Funcionou perfeitamente.
Agradeço sua atenção e paciência.
Vou dar o tópico como resolvido.
Valeu.