[Resolvido]Critérios de Sorteio

Bom dia pessoal, eu estou criando um bd que realiza sorteios aleatórios de peças uma vez ao mês, porém estou com um problema para inserir alguns critérios neste sorteio. O sorteio funcionara da seguinte maneira: serão 100 peças sorteadas ao mês sendo estas peças separadas em diferentes classes: A,B,C,D e E. Dentre estas peças serão sorteadas 9 do tipo A, 43 do tipo B, 29 do tipo C, 10 do tipo D e 9 do tipo E.  O outro critério é, por exemplo, eu tenho 27 peças A, então terei sorteios sem números repetidos durante 3 meses, e depois que estes 3 meses acabassem teria que voltar a repetir os números. Alguém consegue me ajudar ? Obrigada.

Comece a Pesquisar pela função Randon

Já pesquisei, não achei nada parecido.

Leia este artigo usandoaccess.com.br/tutoriais/sons-no-access-bingo.asp?id=1

Obrigada mas meu problema não é com a função rnd, e sim com os critérios que eu descrevi, acredito que voce não entendeu meu problema.

Item Nº 14 violado;
Deve remover o "http://www."

REGRAS DO FÓRUM

1. Tenha paciência com quem coloca aqui as suas duvidas.
2. Clareza nos títulos dos tópicos e duvidas, evite a linguagem MSN.
3. Não colocar diversas vezes a mesma dúvida.
4. Explicar detalhadamente o problema e informar a versão do seu Office + Sistema Operativo.
5. Retorne sempre se deu certo, esse retorno é muito importante.
6. Respeite toda a equipe Staff e demais membros deste fórum.
7. Use sempre o botão Busca, sempre que tiver uma dúvida e antes de abrir tópicos.
8. Não usar palavras como "Urgente". O fórum é livre e ninguém é obrigado a responder com urgência.
9. A publicidade é proíbida e só pode ser feita pelo Administrador ou depois de aprovada pelo Administrador.
10. Se o seu tópico não for respondido, tem o direito de fazer um Up ao final de 24horas!
11. A colocação de Códigos ou Exemplos, devem constar sempre os créditos de quem o elaborou.
12. Fale, não GRITE!   Só letras Maiúsculas, na Internet é o mesmo que gritar!
13. É proibido tirar duvidas nas Salas de Repositório, devem abrir um novo tópico nas salas de duvidas, relacionando o Exemplo em causa.
14. É proibido adicionar links externos nos tópicos, que redirecionem para outros sites ("backlinks").
15. É permitido adicionar links externos, nos códigos VBA dentro das Base de Dados.

OK Meu caro.

eu vou para de participar deste forum, valeu.

Não necessita de parar, apenas tem de compreender que se todos os 51 mil usuários registrados postassem links externos, o sistema de monitorização da Google fazia com que este fórum encerra-se as portas.

São apenas regras do fórum, que minimamente devem ser cumpridas.

Você já se imaginou no meio de uma festa com 51 mil pessoas ? Quem dá pela sua presença ?
Aqui fazemos de tudo para sermos uma comunidade e concerteza que você faz falta.
Ajudar e ser ajudados é o lema deste fórum.

"Eu não procuro saber as respostas, procuro compreender as perguntas."
Confúcio

Em uma festa de 51 mil passo despercebido, mas do todo só uma pequena parte esta disponível a ajudar ai faço a diferença.

apenas usei ctrl + c ctrl + v daqui: maximoaccess.com/t28289-randomize-com-quantidades da uma olhada la que tambem ta fora do padrao.



Minha sugestão a pergunta da colega é que utilize a função randomize para sortear e que faça grosseiramente dizendo (clusters) tabelas / formulários dos grupos para sorteio e a cada sorteio faça a baixa do resultado para não se repetir e seus respectivos relatorios.

Obrigada pela resposta, eu já estou usando o randomize para sortear, porém preciso inserir estes critérios junto a ele, minha duvida é apenas esta.

a tarefa exige muito raciocionio, muito trabalho e estou a cegas por nao ter postado nada do que ja tem.

vou te dar algumas sugestoes

crie consultas separadas pelas classes que precisa filtrada por algum campo data que te retorne apenas o mes vigente

faço o sorteio como falei pelo grupo e ao dar a Baixa va abatendo na consulta de referencia

utilize dcount para contar a quantidade de registros baixados

imagine em um formulario com um subformulario voce selecionar o grupo e carrega a consulta da classe algo assim

e ao final uma caixa de texto soma os itens baixados.

no evento de um botão do sorteio faz a seguinte verificação

Código:

if me.suaCaixaTxt = "A" then

   if dcount("*","minha_consultaA")<9 then

      'faz o sorteio      
      'faz a baixa
      

   Else

      exit sub

   end if

elseif me.suaCaixaTxt = "b" then

   if dcount("*","minha_consultaA")<43 then

      'faz o sorteio
      'faz a baixa

   Else

      exit sub

   end if

'e assim sucessivamente....


Obrigada pela resposta, porém deste modo não deu certo.