[Resolvido]Sorteio Aleatório de Registros dependendo do Tipo

Bom dia, sou novo aqui no fórum e creio estar colocando essa dúvida na área correta, até porque creio precisar de códigos para fazer o que pretendo, porém, se não, me desculpem.
Bom, o caso é o seguinte:
Estou construindo um sistema para gerar uma escala de plantão dos funcionários, onde esses plantões ocorrem nos finais de semana e feriados, ou dias facultados, ou seja, todos os dias em que não haja o dia normal de trabalho.
Os funcionários escalados para o plantão dividem-se por áreas, sendo as mesmas:
1 - Quadro Técnico-Jurídico;
2 - Equipe Multidisciplinar;
3 -  Apoio Administrativo;
4 - Oficial;
5 - Auxiliar de Manutenção;
6 - Auxiliar de Serv. Gerais; e
7 - Motorista.
Ocorre que, dentre algumas dessas áreas, uns funcionários tem algum tipo de gratificação e outros não.
Outrossim, algumas áreas terão 02 funcionários selecionados e outras 03.
Pois bem, já criei as tabelas Funcionários, Área e Data (não sei se essa seria necessária, pois eu iria cadastrar todas as datas dos plantões).
Na tabela Funcionários, já coloquei os campos Nome, Divisão (puxa os valores da tabela Área) e Gratificação (com Caixa de Combinação, digitando os valores SIM / NÃO).
Também já criei as consultas com as devidas filtragens (funcionários por área e por recebimento ou não de gratificação).

O que estou precisando é gerar um SORTEIO ALEATÓRIO dos funcionários por Área e por Gratificação.
Por exemplo: Na área de Apoio Administrativo, preciso de 02 funcionários por dia de plantão, sendo que, primeiro devo pegar todos os que recebem Gratificação e sorteá-los até a data em que terminem os mesmos e, depois, pegar todos os que não recebem gratificação e sorteá-los também, e assim sucessivamente.

Se puderem me ajudar com alguma dica ou exemplo específico, agradeceria muito.
Fico no aguardo e desde já agradeço.

Roderick.

Boa noite, procure por Randomize ja vi coisas do tipo aqui no forum.

Então Fernando,
Já procurei nos tópicos e no repositório, e achei algumas coisas interessantes, mas não que atendam especificamente o que quero, entende?
Encontro muito exemplo de sorteio aleatório de um registro, e coisa do tipo, porém eu preciso de um sorteio dependendo do tipo de área do funcionário.
Já até criei as consultas que filtram os funcionários por área, porém não sei se dá pra fazer escolha aleatória de registros a partir da consulta. Se desse era mais fácil, pois a consulta já filtra os registros da tabela, e aí seria só implementar o sorteio.
Mas se o sorteio tiver de ser direto no formulário, ou nos registros da tabela, não sei como filtrar por área, entende?
Se puderem me ajudar, agradeço muito.

Roderick.

Um pitaco;

A função interna Random, funciona deste jeito;

Exemplo da tabela "SuaTabelaFuncionarios", campo "Funcionario"

SELECT TOP 1 Funcionario FROM SuaTabelaFuncionarios ORDER BY Rnd(Len(Funcionario));

Desta forma a consulta irá mostrar um Funcionario aleatório;

Olá JPaulo,

Entendi o que vc disse, porém isso só vai me gerar um funcionário de forma aleatória, dos vários cadastrados, certo?
Porém, o que preciso é de uma sequência com todos os funcionários, dependendo da área e gratificação.
Veja abaixo um exemplo do que digo, pra ver se me faço mais claro:
Digamos que eu tenha cadastrado os seguintes funcionários, da seguinte maneira, na tabela Funcionários:

NOME ÁREA GRATIFICAÇÃO
José Silva Motorista SIM
Adriano Soares Apoio Adm. NÃO
Helen Souza Apoio Adm. SIM
Maria Joaquina Serv. Gerais NÃO
Antônio da Silva Motorista NÃO
Ana Nunes Apoio Adm. SIM
Leide Maria Téc. Jurid. SIM
Hugo Sanches Manutenção NÃO
Carlos Mota Manutenção NÃO

Então, o que preciso é de um sorteio entre os funcionários, de forma que me retorne, por exemplo, todos os "Apoio Adm." com gratificação, então eu teria como resultado:

Helen Souza
Ana Nunes

Pois as duas são "Apoio Adm." e tem gratificação.
Entende? Preciso de todos os funcionários que estão numa área e que possuam ou não gratificação.
Se puder me ajudar, desde já agradeço.

Roderick.

Ola;

Nesse exemplo que você passou, não vejo nada de Sorteio aleatório,

O resultado final foram so dois com "Apoio Adm." e com gratificação = SIM.

Olá JPaulo,

Bom, isso foi só um exemplo que lhe dei pra vc entender o que estou querendo. Na verdade vou ter uma tabela com mais de 500 funcionários, distribuidos entre várias áreas, sendo que, uns tem gratificação e outros não. Entende?
É muita gente, e preciso de uma escolha aleatória, para que não seja alegado que houve beneficiamento de alguns em algumas datas.
Naquele exemplo, só citei 02 funcionários da área "Apoio Adm." e com gratificação, mas, na verdade, é muita gente.
Se puder me ajudar, agradeço.

Roderick.

E entao, pessoal, será que alguém pode me ajudar com esse tópico?

Olá rd,

Tente assim, coloque esse código em um botão:

POR ÁREA:

Private Sub cmdAleatorio_Click()
Dim k As Long
Dim rs As DAO.Recordset
Dim sCod As Long

Set rs = CurrentDb.OpenRecordset("tblClientes", dbOpenTable)

k = rs.RecordCount

Dim LRandomNumber As Integer

LRandomNumber = Int((k - 1 + 1) * Rnd + 1)           'k é o número máximo de registros e 1 é o primeiro registro
 
MsgBox "Registro: " & LRandomNumber, vbExclamation, "Aleatorio"

End Sub


POR GRATIFICAÇÃO:

Private Sub cmdAleatorio_Click()
Dim k As Long
Dim rs As DAO.Recordset
Dim sCod As Long

Set rs = CurrentDb.OpenRecordset("tblClientes", dbOpenTable) 'Substitua a tabela por uma consulta filtrada de funcionários que receberam gratificação

k = rs.RecordCount

Dim LRandomNumber As Integer

LRandomNumber = Int((k - 1 + 1) * Rnd + 1) 'k é o número máximo de registros e 1 é o primeiro registro

MsgBox "Registro: " & LRandomNumber, vbExclamation, "Aleatorio"

End Sub

Olá Guy,

Deixa eu só tirar uma dúvida: Esse código irá me gerar a escolha de um funcionário e me mostrar em uma caixa de mensagem esse escolhido?

Não sei se é assim que vc quer, mas pode surgir em uma caixa de texto também. A tabela "tblClientes" é só um exemplo. Você pode para cada formulário de funcionários colocar um botão com um código aleatório igual, mudando somente o nome da tabela. Por exemplo: tblQuadroJuridico, tblApoioAdministrativo, etc.

Na verdade, o problema é que não estou querendo 01 registro específico, dentre os vários existentes, entende?
Queria, na verdade, um relatório com todos os funcionários cadastrados, mas de forma a me gerar uma listagem aleatória, cada vez em uma ordem diferente, entende?
E isso tem que levar em consideração a ÁREA e se recebe ou não GRATIFICAÇÃO.

Nesse caso, crie um botão com este mesmo código mudando somente a fonte, em vez da tabela uma consulta filtrada dos funcionários com gratificações. (Veja na minha primeira postagem) Por exemplo, você pode colocar uma checkbox em suas tabelas e filtrar através de uma consulta quais os funcionários com gratificação pela seleção de registro com o checkbox = True ou -1.

Para gerar os relatórios, crie uma tabela ou duas tabelas que recebam através de um caixa de texto com o número aleatório, exemplo:

Private Sub cmdAleatorio_Click()
Dim k As Long
Dim rs As DAO.Recordset
Dim sCod As Long
Dim strSQL As String
Dim sNome As String

Set rs = CurrentDb.OpenRecordset("tblClientes", dbOpenTable)

k = rs.RecordCount

Dim LRandomNumber As Integer

LRandomNumber = Int((k - 1 + 1) * Rnd + 1)          'k é o número máximo de registros e 1 é o primeiro registro

txtAleatorio= LRandomNumber

sCod = txtAleatorio
sNome = Dlookup("Nome","tblClientes","Codigo = " & sCod)

strSQL = "INSERT INTO tblSelecaoAleatorio(Codigo, Nome) VALUES('" & sCod & "','" & sNome & "')
Currentdb.Execute strSQL

End Sub


Depois que você completar o número de funcionários escolhidos aleatoriamente, gere um relatório a partir da tabela "tblSelecaoAleatorio". Valew?

Olá Guy,

Bom, usei o último código que vc me passou, tirando os dados diretamente da tabela de funcionários e não da consulta, e deu tudo certinho, porém ele só está me retornando um registro, ou seja, ele escolhe somente um funcionário e joga na tblSelecaoAleatoria. Na verdade eu precisaria de todos os funcionários, de forma aleatória, entende?
Desde já agradeço pela paciência até aqui e peço que, se vc puder me dar uma luz pra que seja gerado uma relação aleatória com todos os funcionários (lembrando, por área e gratificação), agradeceria muito.

Olá rd,

Tente assim:

Private Sub cmdAleatorio_Click()
Dim k As Long
Dim rs As DAO.Recordset
Dim sCod As Long
Dim strSQL As String
Dim sNome As String


Set rs = CurrentDb.OpenRecordset("tblNomes", dbOpenTable)

k = rs.RecordCount

Dim LRandomNumber As Integer

LRandomNumber = Int((k - 1 + 1) * Rnd + 1)          'k é o número máximo de registros e 1 é o primeiro registro

txtAleatorio = LRandomNumber

sCod = txtAleatorio


For i = 1 To k     'Quando chegar ao total de registros existentes o looping de inserção deve parar e você terá uma tabela só de nomes aleatórios

sNome = DLookup("Nome", "tblClientes", "Codigo = " & sCod)

strSQL = "INSERT INTO tblSelecaoAleatorio(Codigo, Nome) VALUES('" & sCod & "','" & sNome & "')"
CurrentDb.Execute strSQL

Next i


End Sub

Olá Guy,

Implementei o novo código, porém apareceu o seguinte erro: For sem Next.

Opa, não tinha colocado o Next.
Agora deu certo, porém continua sorteando apenas 01 registro.
Verifiquei tb que vc acrescentou uma variável sCount, porém não a vi em nenhuma linha do código.
Será que fiz algo errado?

Olá rd,

Esta variável está sobrando realmente. Troquei-a por "k". Não se esqueça de colocar "Next i". Agora quanto ao restante do código, como é que ficou? A cada clique no botão insere um registro aleatório ou o mesmo registro? Não entendi.

Olá Guy,

O sorteio está sendo feito normalmente, de forma aleatória, porém só escolhe um registro e joga na tabela.
Cada vez que clico no botão, ele escolhe um registro de forma aleatória e diferente, porém é só 01 e não todos.

Olá rd,

É, infelizmente, este meu código sorteia um por um mesmo. Mas existe uma solução que acredito que vc ainda não tentou que é o do João Paulo. Acredito que seu código pode resolver o seu problema.

Crie uma consulta com este código SQL. Troque o 1 por outro número, como o total de sorteados que vc deseja. Acho que é por aí.

SELECT TOP 1 Funcionario FROM SuaTabelaFuncionarios ORDER BY Rnd(Len(Funcionario));

Olá Guy,

E onde eu colocaria esse código na consulta?

Olá rd,

Crie uma consulta no modo Design(Estrutura). Na Barra de ferramentas, Página Inicial, Modo de Exibição, escolha Modo SQL. Neste ambiente coloque sua sintaxe SQL. Tenha o trabalho de colocar dados reais como nome de tabela e campos existentes ou objetos de sua consulta.

Olá Guy,
Implementei em uma das consultas e parece que funcionou.
Valeu mesmo, vai ser de grande ajuda.

Muito obrigado a todos que se disporam a me ajudar com esse tópico. Vou dá-lo por resolvido.
Obrigado!

Olá rd,

O fórum todo agradece.

Passe lá no Facebook e dê uma curtida na minha página e compartilhe com seus amigos.

https://www.facebook.com/EduardoMachado

Olá Guy,
Meu amigo, eu até faria isso, mas não tenho facebook.
Prefiro assim, senão a gente acaba ficando tempo demais vendo as postagens.
Mas obrigado pela contribuição.

Olá rd,

Meu site:

www.goodguyaccessvba.com.br

Beleza,
Vou dar uma olhada.