MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


3 participantes

    [Resolvido]Sistema de Sorteio

    avatar
    GilliamGatto
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 16
    Registrado : 01/04/2013

    [Resolvido]Sistema de Sorteio Empty [Resolvido]Sistema de Sorteio

    Mensagem  GilliamGatto 2/12/2013, 14:13

    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.
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3900
    Registrado : 04/04/2010

    [Resolvido]Sistema de Sorteio Empty Re: [Resolvido]Sistema de Sorteio

    Mensagem  Avelino Sampaio 2/12/2013, 14:27

    Olá!

    Estude sobre a função rnd(). Veja neste meu artigo um exemplo de sorteio.

    http://www.usandoaccess.com.br/tutoriais/tuto41.asp?id=1#inicio

    Aguardamos


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso vitalício ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009

    [Resolvido]Sistema de Sorteio Empty Re: [Resolvido]Sistema de Sorteio

    Mensagem  JPaulo 2/12/2013, 14:37

    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



    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Sistema de Sorteio Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Sistema de Sorteio Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Sistema de Sorteio Folder_announce_new Instruções SQL como utilizar...
    avatar
    GilliamGatto
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 16
    Registrado : 01/04/2013

    [Resolvido]Sistema de Sorteio Empty Re: [Resolvido]Sistema de Sorteio

    Mensagem  GilliamGatto 2/12/2013, 19:15

    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 Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3900
    Registrado : 04/04/2010

    [Resolvido]Sistema de Sorteio Empty Re: [Resolvido]Sistema de Sorteio

    Mensagem  Avelino Sampaio 2/12/2013, 19:29

    Gilliam, em vez de sortear a pessoa faz o sorteio pelo número exclusivo usado na tabela.

    Use no evento ao clicar do botão, algo assim:

    randomize
    msgbox dlookup("nomeparticipante","NomeDatabela","id = " & int(rnd() * dmax("id","Nomedatabela"))+1)


    Aguardamos




    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso vitalício ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    avatar
    GilliamGatto
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 16
    Registrado : 01/04/2013

    [Resolvido]Sistema de Sorteio Empty Re: [Resolvido]Sistema de Sorteio

    Mensagem  GilliamGatto 2/12/2013, 20:32

    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?
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3900
    Registrado : 04/04/2010

    [Resolvido]Sistema de Sorteio Empty Re: [Resolvido]Sistema de Sorteio

    Mensagem  Avelino Sampaio 3/12/2013, 09:27

    Gilliam,  vai ficar difícil montar uma estrutura já que exige um pouco de programação para isso

    Segue um exemplo que fiz para vc estudar.

    Bom estudo!
    Anexos
    [Resolvido]Sistema de Sorteio Attachmentgilliam.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (53 Kb) Baixado 146 vez(es)


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso vitalício ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    avatar
    GilliamGatto
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 16
    Registrado : 01/04/2013

    [Resolvido]Sistema de Sorteio Empty Re: [Resolvido]Sistema de Sorteio

    Mensagem  GilliamGatto 3/12/2013, 11:57

    Muito show Avelino, vou estudar esse exemplo.

    Muito obrigado Deus te abençoe.

    Conteúdo patrocinado


    [Resolvido]Sistema de Sorteio Empty Re: [Resolvido]Sistema de Sorteio

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 8/11/2024, 06:14