[Resolvido]Sistema de Sorteio

Olá pessoa gostaria de fazer se tem como fazer um sistema para sorteio entre participante.

Tipo criar um cadastro dos participantes daquele dia, e gerar um sorteio entre eles.

Alguém pode me dar algum ajuda, acredito que seja simples mas não tenho ideia.

Este exemplo usa a função que o Avelino lhe passou, também serve de estudo;

http://maximoaccess.forumeiros.com/t193-gerador-de-cartoes-de-bingo

Sistemas são show mas para mim que estou iniciando achei meio complexo, eu queria algo bem simples


Um form com um botão sortear, e buscasse os nomes das pessoas que estão participando naquele dia.

Avelino fiz assim

Private Sub btsortear_Click()
Randomize
MsgBox DLookup("nome", "tbParticipantes", "id = " & Int(Rnd() * DMax("id", "tbParticipantes")) + 1)
End Sub

Deu Certinho muito obrigado.


Mas sem querer abusar de sua vontade, pensei em uma questão agora.

Cada semana tem pessoas diferentes, então toda semana teria que apagar todos os registro da tabela e cadastrar os daquele dia.

teria como eu por no formulário a data atual (do dia em questão) e ele pegasse os registros só daquele dia, assim os demais ficaria armazenados também.

Queria digitar só uma vez as datas e já servir para os demais registro.


outra coisa a nível de conhecimento se ao inves do nome aparecer na tela como mensagem eu quisesse que ela aparece no próprio form?

Muito show Avelino, vou estudar esse exemplo.

Muito obrigado Deus te abençoe.