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


5 participantes

    [Resolvidos]Bingo no Access, função randomize (rnd) para gerar sequências numéricas

    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    bingo - [Resolvidos]Bingo no Access, função randomize (rnd) para gerar sequências numéricas Empty [Resolvidos]Bingo no Access, função randomize (rnd) para gerar sequências numéricas

    Mensagem  criquio 12/2/2010, 19:37

    bingo - [Resolvidos]Bingo no Access, função randomize (rnd) para gerar sequências numéricas Icon_cheers Salve salve!

    Alguem já fez ou pensou em fazer um gerenciador de bingo no Access? É uma proposta interessante. Um sistema aonde a gente possa escolher um número de cartelas a imprimir, cartelas essas enumeradas de 1 a n com a possibilidade de escolher a sequência de números a ser levada em consideração, tipo de 1 a 50 ou de 1 a 70, etc. E que possa ser feito o sorteio no próprio bd, com a possibilidade dele falar os números sorteados através de arquivos wav armazenados na pasta do sistema e que quando ele detectar que uma cartela impressa tenha completado os números, soe um som dizendo Bingo e então apareça o número da cartela vencedora.
    Teoricamente, para o sorteio dos números, poderia-se cadastrar esses números em uma tabela aonde ele os buscaria de forma aleatória e marcando os números já cantados para que não se repitam, ou então, criar um evento no qual a gente forneça o número máximo a ser considerado, como por exemplo 60 e o sistema emita o número de cartelas que a gente pedir, cada uma com seus números aleatórios e não repetidos e então a gente possa fazer o sorteio tendo como base as cartelas impressas para que quando uma seja completada, o sistema avisar.
    O que acham da ideia? bingo - [Resolvidos]Bingo no Access, função randomize (rnd) para gerar sequências numéricas Icon_biggrin


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    avatar
    marsolim
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 44
    Registrado : 05/02/2010

    bingo - [Resolvidos]Bingo no Access, função randomize (rnd) para gerar sequências numéricas Empty Re: [Resolvidos]Bingo no Access, função randomize (rnd) para gerar sequências numéricas

    Mensagem  marsolim 15/2/2010, 13:20

    tá aí um uma coisa que eu queria ver tambem. será que dá para fazer isso no access?
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8443
    Registrado : 05/11/2009

    bingo - [Resolvidos]Bingo no Access, função randomize (rnd) para gerar sequências numéricas Empty Re: [Resolvidos]Bingo no Access, função randomize (rnd) para gerar sequências numéricas

    Mensagem  Alexandre Neves 15/2/2010, 16:31

    Dá para fazer mas como não se trata de tirar dúvida mas de um programa, tem o fazer por si próprio e ir tirando as dúvidas caso surjam
    avatar
    marsolim
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 44
    Registrado : 05/02/2010

    bingo - [Resolvidos]Bingo no Access, função randomize (rnd) para gerar sequências numéricas Empty Re: [Resolvidos]Bingo no Access, função randomize (rnd) para gerar sequências numéricas

    Mensagem  marsolim 15/2/2010, 19:14

    como que eu faço para o access pegar os numeros aleatoriamente de 1 a 60 por exemplo para fazer esse sorteio? acho que vou tentar aprender a fazer esse bingo.
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8443
    Registrado : 05/11/2009

    bingo - [Resolvidos]Bingo no Access, função randomize (rnd) para gerar sequências numéricas Empty Re: [Resolvidos]Bingo no Access, função randomize (rnd) para gerar sequências numéricas

    Mensagem  Alexandre Neves 15/2/2010, 22:35

    Utilize a função rnd
    avatar
    marsolim
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 44
    Registrado : 05/02/2010

    bingo - [Resolvidos]Bingo no Access, função randomize (rnd) para gerar sequências numéricas Empty Re: [Resolvidos]Bingo no Access, função randomize (rnd) para gerar sequências numéricas

    Mensagem  marsolim 16/2/2010, 14:17

    eu não to conseguindo usar esse rnd alguem podeira me dar uma luz? aonde e como eu uso isso? só esse rnd é capaz de fazer a contagem randômica de uma sequência de números?
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    bingo - [Resolvidos]Bingo no Access, função randomize (rnd) para gerar sequências numéricas Empty Re: [Resolvidos]Bingo no Access, função randomize (rnd) para gerar sequências numéricas

    Mensagem  JPaulo 16/2/2010, 16:41

    Boa tarde amigos;

    Se eu tivesse tempo, ajudaria na construção dos cartões de Bingo (cartelas).

    A função Rnd funciona assim e nem necessita de tabela alguma.

    Int((LimiteMaximo - LimiteMinimo + 1) * Rnd + LimiteMinimo)

    Numa consulta nova, coloque esta instrução num campo:


    NumeroRandomico:Int((6 - 1 + 1) * Rnd + 1) Numeros aleatórios entre 1 e 6.
    Ou
    NumeroRandomico:Int((60 - 1 + 1) * Rnd + 1) Numeros aleatórios entre 1 e 60
    Ou
    NumeroRandomico:Int((600 - 100 + 1) * Rnd + 100) Numeros aleatórios entre 100 e 600


    Perdoem a minha ignorancia, mas o bindo não é de 75 ou 90 numeros ?


    Última edição por JPaulo em 16/2/2010, 17:12, editado 2 vez(es)


    .................................................................................
    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

    bingo - [Resolvidos]Bingo no Access, função randomize (rnd) para gerar sequências numéricas Folder_announce_new Utilize o Sistema de Busca do Fórum...
    bingo - [Resolvidos]Bingo no Access, função randomize (rnd) para gerar sequências numéricas Folder_announce_new 102 Códigos VBA Gratuitos...
    bingo - [Resolvidos]Bingo no Access, função randomize (rnd) para gerar sequências numéricas Folder_announce_new Instruções SQL como utilizar...
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    bingo - [Resolvidos]Bingo no Access, função randomize (rnd) para gerar sequências numéricas Empty Re: [Resolvidos]Bingo no Access, função randomize (rnd) para gerar sequências numéricas

    Mensagem  criquio 16/2/2010, 17:10

    Definição wikipedia para bingo:

    O Bingo é um jogo de azar, onde bolas numeradas são colocadas dentro de um globo, e sorteadas uma a uma. O jogo é comum em cassinos, casas de bingo, festas juninas (no Brasil) e como diversão caseira entre famíliares e amigos.
    Os números devem ser marcados em cartelas aleatórias, geralmente com 24 números, dispostos no formato de 5 colunas por 5 linhas, para facilitar a localização dos mesmos, quando sorteados.
    Uma coluna para os números de 1 a 9, uma outra para os números de 10 a 19, outra para os números de 20 a 29, e dai por diante, até o número 99, na maioria dos bingos.
    Tradicionalmente, os vencedores são aqueles que completam primeiramente uma linha ou uma coluna ou aquele que fechar (ou seja, completar todos os números) a cartela.
    Em algumas casas de bingo, a cada rodada são acertadas as regras, podendo assim, valer as 3 linhas, também as colunas.
    Os ganhadores devem alertar que ganharam, gritando a palavra "Bingo!". Assim o sorteio é parado e o chefe de mesa vem conferir a cartela.
    Outra modalidade muito semelhante ao bingo comum é o Keno, jogado em cassinos. Neste tipo de jogo as regras são basicamente as mesmas, mas - ao contrário de ter os número pré-definidos na cartela - é o jogado quem escolhe os número com os quais jogar.
    Fonte: Wikipedia
    Alem desse bingo de 99 números, eu já vi tambem cartelas de 60 e de 70 números.


    Última edição por criquio em 16/2/2010, 17:11, editado 1 vez(es)


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    bingo - [Resolvidos]Bingo no Access, função randomize (rnd) para gerar sequências numéricas Empty Re: [Resolvidos]Bingo no Access, função randomize (rnd) para gerar sequências numéricas

    Mensagem  JPaulo 16/2/2010, 17:11

    Se prefererirem em função, esta funciona com as horas e randomiza entre dois valores, por exemplo (1, 60)

    Num modulo novo, colem sem alterar nada:

    Public LançarAleatorio As Variant
    Public NumAleatorio As Variant

    Public Function GeradorNumerosRandomicos(X As Long, Y As Long) As Variant
    'JPaulo ®️ Maximo Access
    On Error GoTo ErroLinha
    Dim LNumAleatorio As Integer
    Dim Llançar As Variant

    LançarAleatorio = Format(Now(), "mm:ss")
    LançarAleatorio = Replace(LançarAleatorio, ":", "")
    Randomize (CInt(LançarAleatorio))
    LNumAleatorio = Int((X - Y) * Rnd + Y)
    GeradorNumerosRandomicos = LNumAleatorio

    SaírLinha:
    Exit Function
    ErroLinha:
    Select Case Err.Number
    Case Else
    MsgBox "Erro: " & Err.Number & " " & Err.Description, vbCritical, ""
    GoTo SaírLinha
    End Select
    End Function


    Esta função pode ser chamada na origem dos campos ou onde quiserem;

    =GeradorNumerosRandomicos(1, 60)


    .................................................................................
    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

    bingo - [Resolvidos]Bingo no Access, função randomize (rnd) para gerar sequências numéricas Folder_announce_new Utilize o Sistema de Busca do Fórum...
    bingo - [Resolvidos]Bingo no Access, função randomize (rnd) para gerar sequências numéricas Folder_announce_new 102 Códigos VBA Gratuitos...
    bingo - [Resolvidos]Bingo no Access, função randomize (rnd) para gerar sequências numéricas Folder_announce_new Instruções SQL como utilizar...
    avatar
    marsolim
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 44
    Registrado : 05/02/2010

    bingo - [Resolvidos]Bingo no Access, função randomize (rnd) para gerar sequências numéricas Empty Re: [Resolvidos]Bingo no Access, função randomize (rnd) para gerar sequências numéricas

    Mensagem  marsolim 16/2/2010, 17:14

    grandejpaulo sempre com grandes ideias, só uma duvida com essa função dá para sortear sem repetir número?
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    bingo - [Resolvidos]Bingo no Access, função randomize (rnd) para gerar sequências numéricas Empty Re: [Resolvidos]Bingo no Access, função randomize (rnd) para gerar sequências numéricas

    Mensagem  JPaulo 16/2/2010, 17:23

    Não testei, mas se não der, alteramos para guardar em variaveis e não repetir.


    .................................................................................
    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

    bingo - [Resolvidos]Bingo no Access, função randomize (rnd) para gerar sequências numéricas Folder_announce_new Utilize o Sistema de Busca do Fórum...
    bingo - [Resolvidos]Bingo no Access, função randomize (rnd) para gerar sequências numéricas Folder_announce_new 102 Códigos VBA Gratuitos...
    bingo - [Resolvidos]Bingo no Access, função randomize (rnd) para gerar sequências numéricas Folder_announce_new Instruções SQL como utilizar...
    avatar
    marsolim
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 44
    Registrado : 05/02/2010

    bingo - [Resolvidos]Bingo no Access, função randomize (rnd) para gerar sequências numéricas Empty Re: [Resolvidos]Bingo no Access, função randomize (rnd) para gerar sequências numéricas

    Mensagem  marsolim 16/2/2010, 17:27

    não estou conseguindo fazer funcionar, será que estou colocando no lugar errado? a minha ideia é chamar a função com um clique em um botão de um formulário e queria fazer os números sorteados aparecerem em um quadro. queria tambem a opção de fornecer um tempo em segundos para fazer sorteio automático sem precisar clicar no botão.
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    bingo - [Resolvidos]Bingo no Access, função randomize (rnd) para gerar sequências numéricas Empty Re: [Resolvidos]Bingo no Access, função randomize (rnd) para gerar sequências numéricas

    Mensagem  criquio 16/2/2010, 17:32

    Seria interessante criar uma tabela para armazenar os sorteios realizados, tabela essa contendo uma PK, os números sorteados e o número da cartela vencedora. Tudo isso registrado automaticamente ao fim do sorteio. E para que o ganhador não precise gritar bingoooo fazer a função gritar Bingo quando detectar que uma cartela completou a numeração.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    disapd
    disapd
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 41
    Registrado : 11/02/2010

    bingo - [Resolvidos]Bingo no Access, função randomize (rnd) para gerar sequências numéricas Empty Re: [Resolvidos]Bingo no Access, função randomize (rnd) para gerar sequências numéricas

    Mensagem  disapd 16/2/2010, 17:49

    olha oq eu axei





    la no forum julio battisti.[url=http://www.esnips.com/doc/b1008439-f431-4938-adc1-ac70a13a242a/Sistema-bingo ]http://www.esnips.com/doc/b1008439-f431-4938-adc1-ac70a13a242a/Sistema-bingo [/url]
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    bingo - [Resolvidos]Bingo no Access, função randomize (rnd) para gerar sequências numéricas Empty Re: [Resolvidos]Bingo no Access, função randomize (rnd) para gerar sequências numéricas

    Mensagem  JPaulo 16/2/2010, 18:01

    Marsolin todo o código acima é colocado num Modulo e salve com o nome que quiser.

    Já no form, no evento ao pressionar do seu botão, é colocar:

    Me.SeuCampo1.Value=GeradorNumerosRandomicos(1, 60)
    Me.SeuCampo2.Value=GeradorNumerosRandomicos(1, 60)
    Me.SeuCampo3.Value=GeradorNumerosRandomicos(1, 60)

    etc.............


    .................................................................................
    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

    bingo - [Resolvidos]Bingo no Access, função randomize (rnd) para gerar sequências numéricas Folder_announce_new Utilize o Sistema de Busca do Fórum...
    bingo - [Resolvidos]Bingo no Access, função randomize (rnd) para gerar sequências numéricas Folder_announce_new 102 Códigos VBA Gratuitos...
    bingo - [Resolvidos]Bingo no Access, função randomize (rnd) para gerar sequências numéricas Folder_announce_new Instruções SQL como utilizar...
    avatar
    marsolim
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 44
    Registrado : 05/02/2010

    bingo - [Resolvidos]Bingo no Access, função randomize (rnd) para gerar sequências numéricas Empty Re: [Resolvidos]Bingo no Access, função randomize (rnd) para gerar sequências numéricas

    Mensagem  marsolim 16/2/2010, 18:18

    está dando um erro aqui

    Erro de compilação:
    Era esperado: =

    eu criei umas caixas de texto e nomeei como 01, 02, 03, 04... e tentei escever os códigos assim:

    Private Sub Comando0_Click()
    Me.01.Value = GeradorNumerosRandomicos(1, 60)
    Me.02.Value = GeradorNumerosRandomicos(1, 60)
    Me.03.Value = GeradorNumerosRandomicos(1, 60)

    ...
    End Sub


    mas a cada vez que dou enter para passar para a próxima linha acusa esse erro.
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    bingo - [Resolvidos]Bingo no Access, função randomize (rnd) para gerar sequências numéricas Empty Re: [Resolvidos]Bingo no Access, função randomize (rnd) para gerar sequências numéricas

    Mensagem  criquio 16/2/2010, 20:08

    Tente mudar o nome desses textboxes colocando um nome alfa ao invés de numérico.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    avatar
    marsolim
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 44
    Registrado : 05/02/2010

    bingo - [Resolvidos]Bingo no Access, função randomize (rnd) para gerar sequências numéricas Empty Re: [Resolvidos]Bingo no Access, função randomize (rnd) para gerar sequências numéricas

    Mensagem  marsolim 16/2/2010, 20:30

    troquei os nomes e deu certo só que tem um problema, eu coloquei 24 caixa texto para simular a geração de uma cartela com números de 1 a 60 e fiz de maneira a ficar de 1 a 12 na primeira coluna, de 13 a 24 na segunda coluna, de 25 a 36 na terceira coluna e etc, o problema é que ele está gerando muito número repetido e algumas vezes repete número em mais de uma coluna. como fazer para não repetir número? E tem como pedir para ele gerar um deteminado número de cartelas enumeradas para impressão? tipo de 1 a 100 por exemplo e como que faço para não ter cartela repetida?
    agradeço muito pela ajuda estou aprendendo muita coisa com vocês.
    avatar
    marsolim
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 44
    Registrado : 05/02/2010

    bingo - [Resolvidos]Bingo no Access, função randomize (rnd) para gerar sequências numéricas Empty Re: [Resolvidos]Bingo no Access, função randomize (rnd) para gerar sequências numéricas

    Mensagem  marsolim 17/2/2010, 12:01

    estou progredindo no trem aqui, até já consegui fazer o sistema jogar os números sorteados em uma tabela do formulário que criei com 60 caixa de texto e a cada número sorteado ele é jogado na sua devida posição.
    mas não consigo fazer ele parar de repetir número de jeito nenhum.
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    bingo - [Resolvidos]Bingo no Access, função randomize (rnd) para gerar sequências numéricas Empty Re: [Resolvidos]Bingo no Access, função randomize (rnd) para gerar sequências numéricas

    Mensagem  JPaulo 17/2/2010, 17:02

    Laughing

    Amigos, a minha contribuíção termina aqui.

    Podem alterar o que quiserem, mas por favor mantenham os créditos.

    Versão final:
    Download


    .................................................................................
    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

    bingo - [Resolvidos]Bingo no Access, função randomize (rnd) para gerar sequências numéricas Folder_announce_new Utilize o Sistema de Busca do Fórum...
    bingo - [Resolvidos]Bingo no Access, função randomize (rnd) para gerar sequências numéricas Folder_announce_new 102 Códigos VBA Gratuitos...
    bingo - [Resolvidos]Bingo no Access, função randomize (rnd) para gerar sequências numéricas Folder_announce_new Instruções SQL como utilizar...
    avatar
    marsolim
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 44
    Registrado : 05/02/2010

    bingo - [Resolvidos]Bingo no Access, função randomize (rnd) para gerar sequências numéricas Empty Re: [Resolvidos]Bingo no Access, função randomize (rnd) para gerar sequências numéricas

    Mensagem  marsolim 17/2/2010, 17:48

    Grande jpaulo muito bom. agora vou tentar fazer minhas implementações aqui. só ainda não sei como vou fazer para ele alertar quando a cartela de número tal ganhar. quero guardar os sorteios realizados em uma tabela que constará a data, a hora, o número do sorteio (pk), a cartela vencedora e os números sorteados. acho que eu já sei como vou fazer para gravar os números sorteados a partir da tabela dos números que irão aparecendo assim que forem saindo.
    agora essa de avisar na hora que a cartela ou as cartelas ganharem informando o número é que ainda estou empacato aqui sem saber como fazer, hehehe.
    avatar
    marsolim
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 44
    Registrado : 05/02/2010

    bingo - [Resolvidos]Bingo no Access, função randomize (rnd) para gerar sequências numéricas Empty Re: [Resolvidos]Bingo no Access, função randomize (rnd) para gerar sequências numéricas

    Mensagem  marsolim 17/2/2010, 19:55

    Amigo jpaulo desculpe eu voltar a falar do assunto mas é que eu tinha feito um form para sortear as pedras uma a uma. nesse form eu tenho uma textbox maior que é aonde os números sorteados deverão ir aparecendo um a um a cada vez que eu clicar no botão e tenho 60 textbox nomeadas de um a sessenta que deverão ir pegando o número sorteado através do código abaixo:

    If Me.Text0 = 1 Then
    Me.um = 1
    End If


    If Me.Text0 = 2 Then
    Me.dois = 2
    End If


    If Me.Text0 = 3 Then
    Me.tres = 3
    End If

    ...

    Text0 é a caixa de texto que deve aparecer cada número sorteado.
    pois bem com o código que você passou primeiro eu consegui fazer essa implementação mas com esse eu não estou conseguindo.
    o que você fez até aqui é exclusivo para gerar as cartelas? ou seja, não tem como fazer que apareça só um número em uma textbox por vez até rodar os 60 sem repetir?
    desculpe por estar enchendo as paciências e obrigado pelo empenho.
    avatar
    marsolim
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 44
    Registrado : 05/02/2010

    bingo - [Resolvidos]Bingo no Access, função randomize (rnd) para gerar sequências numéricas Empty Re: [Resolvidos]Bingo no Access, função randomize (rnd) para gerar sequências numéricas

    Mensagem  marsolim 18/2/2010, 17:51

    ola tudo bem? eu estou com um probleminha aqui que não consigo resolver eu consegui fazer o sistema sortear os números um a um fazendo cada número sorteado aparecer no seu devido lugar na lista de números sorteados. fiz isso alterando um pouco o código só que agora está repetindo números de novo e não consigo resolver. a parte de geração de cartela está funcionando perfeitamente mas o principal do sistema para mim seria fazer o sorteio dos números e nessa hora ele repete ou seja se clico 60 vezes no botão ele deveria sortear os 60 números mas como está repetindo fica entre 10 e 20 números sem ser sorteados em 60 cliques. olha uma imagem da tela de sorteio:
    bingo - [Resolvidos]Bingo no Access, função randomize (rnd) para gerar sequências numéricas Bingos.th
    aqui as alterações que fiz no código:

    Private Sub Sortear_Click()
    'By JPaulo ®️ Maximo Access
    Dim arr1(1 To 1) 'para aparecer o número em apenas uma caixa de texto
    'sorteia os numeros de A a Z e coloca-os numa array
    PreencheArray arr1(), 1, 60 'Faz o sorteio de 1 a 60

    'preencher as caixas de texto com os valores sorteados, sem os repetir
    PreencheCaixas arr1(), 1, 60

    If Me.Text0 = 1 Then
    Me.um = 1
    End If

    If Me.Text0 = 2 Then
    Me.dois = 2
    End If

    If Me.Text0 = 3 Then
    Me.tres = 3
    End If

    If Me.Text0 = 4 Then
    Me.quatro = 4
    End If

    If Me.Text0 = 5 Then
    Me.cinco = 5
    End If

    If Me.Text0 = 6 Then
    Me.seis = 6
    End If

    If Me.Text0 = 7 Then
    Me.sete = 7
    End If

    If Me.Text0 = 8 Then
    Me.oito = 8
    End If

    ...
    End Sub

    Text0 é a textbox grande aonde aparece os números sorteados e as textbox um, dois, três, quatro até sessenta é aonde cada número sorteado aparecerão. já tentei de vários jeito e não consigo fazer ele parar de repetir números.
    Se puder me ajudar em mais essa eu ficaria muito grato.
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    bingo - [Resolvidos]Bingo no Access, função randomize (rnd) para gerar sequências numéricas Empty Re: [Resolvidos]Bingo no Access, função randomize (rnd) para gerar sequências numéricas

    Mensagem  JPaulo 18/2/2010, 18:06

    http://dl.dropbox.com/u/771097/teste_B.mdb


    .................................................................................
    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

    bingo - [Resolvidos]Bingo no Access, função randomize (rnd) para gerar sequências numéricas Folder_announce_new Utilize o Sistema de Busca do Fórum...
    bingo - [Resolvidos]Bingo no Access, função randomize (rnd) para gerar sequências numéricas Folder_announce_new 102 Códigos VBA Gratuitos...
    bingo - [Resolvidos]Bingo no Access, função randomize (rnd) para gerar sequências numéricas Folder_announce_new Instruções SQL como utilizar...
    avatar
    marsolim
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 44
    Registrado : 05/02/2010

    bingo - [Resolvidos]Bingo no Access, função randomize (rnd) para gerar sequências numéricas Empty Re: [Resolvidos]Bingo no Access, função randomize (rnd) para gerar sequências numéricas

    Mensagem  marsolim 18/2/2010, 18:58

    É amigo a coisa está complicada, rsrsrs. Alguma coisa está nos passando desapercebida. Fiz um teste com 30 cliques aqui e o resultado foi o seguinte, sendo os números da esquerda os números sorteados e os da direita a quatidade de vezes que cada número apareceu nesses 30 cliques:

    2 --- 1
    4 --- 3
    17 - 2
    18 - 1
    19 - 2
    22 - 1
    23 - 1
    25 - 1
    29 - 1
    32 - 2
    35 - 1
    36 - 1
    38 - 1
    39 - 1
    43 - 2
    46 - 2
    47 - 1
    48 - 1
    49 - 1
    52 - 2
    57 - 1
    58 - 1


    O que será que estamos deixando de perceber?
    avatar
    marsolim
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 44
    Registrado : 05/02/2010

    bingo - [Resolvidos]Bingo no Access, função randomize (rnd) para gerar sequências numéricas Empty Re: [Resolvidos]Bingo no Access, função randomize (rnd) para gerar sequências numéricas

    Mensagem  marsolim 18/2/2010, 19:55

    amigo jpaulo, estive pensando aqui que se tiver como fazer a função pesquisar na lista de números sorteados,talvez possa fazer com que pule para o próximo número caso ele já esteja na lista, algo do tipo:

    If txt0 = um Then pula para o próximo número
    If txt0 = dois Then pula para o próximo número
    If txt0 = três Then
    pula para o próximo número

    Sendo txt0 a caixa do número que está sendo sorteado e as caixas um, dois, três... sessenta, as caixas de números que já foram sorteados, como na figura da mensagem anterior.
    o que você acha? pensei nessa solução mas não sei como fazer...
    avatar
    marsolim
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 44
    Registrado : 05/02/2010

    bingo - [Resolvidos]Bingo no Access, função randomize (rnd) para gerar sequências numéricas Empty Re: [Resolvidos]Bingo no Access, função randomize (rnd) para gerar sequências numéricas

    Mensagem  marsolim 19/2/2010, 14:47

    estou quebrando a cabeça aqui e não chegou a lugar nenhum, hehehe. tentei um monte de coisa aqui e até agora não andei nenhum centímetro. coisa complicada, hehehe. esses números insistem em se repetir...
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    bingo - [Resolvidos]Bingo no Access, função randomize (rnd) para gerar sequências numéricas Empty Re: [Resolvidos]Bingo no Access, função randomize (rnd) para gerar sequências numéricas

    Mensagem  JPaulo 19/2/2010, 18:23

    Amigão não tenho tido tempo de ver isso, porque estou a fazer testes no Access 2010.

    Mas vamos lá à questão.

    Para esse passo que você quer dar, a minha ideia será esta.

    1º Esqueça o código que lhe passei, ele é bom sim, mas para gerar cartões sem repetir os numeros.

    2º Colocar uma listbox oculta, com a linha de origem em "Lista de Valores" de 1 a 60.

    3º Sortear esse numeros e ir apagando um a um.

    Assim nunca mais se repetirá e tem o seu problema resolvido.


    .................................................................................
    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

    bingo - [Resolvidos]Bingo no Access, função randomize (rnd) para gerar sequências numéricas Folder_announce_new Utilize o Sistema de Busca do Fórum...
    bingo - [Resolvidos]Bingo no Access, função randomize (rnd) para gerar sequências numéricas Folder_announce_new 102 Códigos VBA Gratuitos...
    bingo - [Resolvidos]Bingo no Access, função randomize (rnd) para gerar sequências numéricas Folder_announce_new Instruções SQL como utilizar...
    avatar
    marsolim
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 44
    Registrado : 05/02/2010

    bingo - [Resolvidos]Bingo no Access, função randomize (rnd) para gerar sequências numéricas Empty Re: [Resolvidos]Bingo no Access, função randomize (rnd) para gerar sequências numéricas

    Mensagem  marsolim 19/2/2010, 22:00

    olá jpaulo, muito trabalho né? hehehe
    bem, e como seria essa ligação da listbox com o sorteio? eu teria que nomear ela com o nome da textbox que pega o número sorteado? e apagar os números à medida que forem sendo sorteados. isso quer dizer entrar no modo formulário,sorter um número, abrir no modo design, apagar o número sorteado da listbox e voltar no modo formulário de novo? isso vai dar um trabalhão danado, mas se for isso mesmo vou fazer para ver se dá certo, hehehe.
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    bingo - [Resolvidos]Bingo no Access, função randomize (rnd) para gerar sequências numéricas Empty Re: [Resolvidos]Bingo no Access, função randomize (rnd) para gerar sequências numéricas

    Mensagem  JPaulo 20/2/2010, 09:49

    Nada disso....rsrsrsrs

    Estou aos poucos a fazer um pequeno exemplo para lhe mostrar o caminho das pedras.

    Segunda-feira coloco aqui.


    .................................................................................
    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

    bingo - [Resolvidos]Bingo no Access, função randomize (rnd) para gerar sequências numéricas Folder_announce_new Utilize o Sistema de Busca do Fórum...
    bingo - [Resolvidos]Bingo no Access, função randomize (rnd) para gerar sequências numéricas Folder_announce_new 102 Códigos VBA Gratuitos...
    bingo - [Resolvidos]Bingo no Access, função randomize (rnd) para gerar sequências numéricas Folder_announce_new Instruções SQL como utilizar...
    avatar
    marsolim
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 44
    Registrado : 05/02/2010

    bingo - [Resolvidos]Bingo no Access, função randomize (rnd) para gerar sequências numéricas Empty Re: [Resolvidos]Bingo no Access, função randomize (rnd) para gerar sequências numéricas

    Mensagem  marsolim 20/2/2010, 13:48

    está certo amigo. desculpe pela trabalheira que estou dando, hehehe. eu arrumei uma solução provisória aqui mas ainda não é a ideal. criei uma caixa de texto oculta que recebe o número sorteado e se esse número já estiver na lista de números sorteados, a caixa de exibir o número sorteado não se atualiza. olha o código:

    Private Sub Sortear_Click()
    Dim i As Integer
    Dim strarray1(1 To 1)
    PreencheArray strarray1(), 1, 75
    PreencheCaixasSorteada strarray1(), 1, 1


    If Me.txt0 = Me.um Or Me.txt0 = Me.dois Or Me.txt0 = Me.tres Or Me.txt0 = Me.quatro Or Me.txt0 = Me.cinco Or Me.txt0 = Me.seis Or Me.txt0 = Me.sete Or Me.txt0 = Me.oito Or Me.txt0 = Me.nove Or Me.txt0 = Me.dez Or Me.txt0 = Me.onze Or Me.txt0 = Me.doze Or Me.txt0 = Me.treze Or Me.txt0 = Me.quatorze Or Me.txt0 = Me.quinze Or Me.txt0 = Me.dezesseis Or Me.txt0 = Me.dezessete Or Me.txt0 = Me.dezoito Or Me.txt0 = Me.dezenove Or Me.txt0 = Me.vinte Or Me.txt0 = Me.vinteum Or Me.txt0 = Me.vintedois Or Me.txt0 = Me.vintetres Or Me.txt0 = Me.vintequatro Or Me.txt0 = Me.vintecinco Or Me.txt0 = Me.vinteseis Or Me.txt0 = Me.vintesete Or Me.txt0 = Me.vinteoito Or Me.txt0 = Me.vintenove Or Me.txt0 = Me.trinta Or Me.txt0 = Me.trintaum Or Me.txt0 = Me.trintadois Or Me.txt0 = Me.trintatres Or Me.txt0 = Me.trintaquatro Or Me.txt0 = Me.trintacinco Or Me.txt0 = Me.trintaseis Or Me.txt0 = Me.trintasete Or Me.txt0 = Me.trintaoito Or Me.txt0 = Me.trintanove Or Me.txt0 = Me.quarenta _
    Or Me.txt0 = Me.quarentaum Or Me.txt0 = Me.quarentadois Or Me.txt0 = Me.quarentatres Or Me.txt0 = Me.quarentaquatro Or Me.txt0 = Me.quarentacinco Or Me.txt0 = Me.quarentaseis Or Me.txt0 = Me.quarentasete Or Me.txt0 = Me.quarentaoito Or Me.txt0 = Me.quarentanove Or Me.txt0 = Me.cinquenta Or Me.txt0 = Me.cinquentaum Or Me.txt0 = Me.cinquentadois Or Me.txt0 = Me.cinquentatres Or Me.txt0 = Me.cinquentaquatro Or Me.txt0 = Me.cinquentacinco Or Me.txt0 = Me.cinquentaseis Or Me.txt0 = Me.cinquentasete Or Me.txt0 = Me.cinquentaoito Or Me.txt0 = Me.cinquentanove Or Me.txt0 = Me.sescenta Then


    Me.Text1 = Me.Text1
    Else
    Me.Text1 = Me.txt0
    End If


    If Me.Text1 = 1 Then
    Me.um = 1
    End If

    If Me.Text1 = 2 Then
    Me.dois = 2
    End If

    If Me.Text1 = 3 Then
    Me.tres = 3
    End If

    If Me.Text1 = 4 Then
    Me.quatro = 4
    End If

    If Me.Text1 = 5 Then
    Me.cinco = 5
    End If

    If Me.Text1 = 6 Then
    Me.seis = 6
    End If

    ...

    End Sub

    txt0 é a caixa oculta, text1 é a caixa que vai mostrar o número sorteado na txt0 se ele já não tiver sido sorteado. O problema é que quando está chegando perto do fim do sorteio a gente clica dezenas de vezes e não aparece nada porque os números que vão sendo sorteados já estão todos na lista de números sorteados, mas pelo menos não fica repetindo o número na caixa de sorteio, hehehe. mas com o seu próximo codigo agora tenho certeza que vai dar certo, hehehe.
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    bingo - [Resolvidos]Bingo no Access, função randomize (rnd) para gerar sequências numéricas Empty Re: [Resolvidos]Bingo no Access, função randomize (rnd) para gerar sequências numéricas

    Mensagem  JPaulo 23/2/2010, 10:37

    Bom dia a todos;

    Demorou porque não foi fácil;

    Sorteia 60 numeros sem repetir:

    Download


    .................................................................................
    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

    bingo - [Resolvidos]Bingo no Access, função randomize (rnd) para gerar sequências numéricas Folder_announce_new Utilize o Sistema de Busca do Fórum...
    bingo - [Resolvidos]Bingo no Access, função randomize (rnd) para gerar sequências numéricas Folder_announce_new 102 Códigos VBA Gratuitos...
    bingo - [Resolvidos]Bingo no Access, função randomize (rnd) para gerar sequências numéricas Folder_announce_new Instruções SQL como utilizar...
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    bingo - [Resolvidos]Bingo no Access, função randomize (rnd) para gerar sequências numéricas Empty Re: [Resolvidos]Bingo no Access, função randomize (rnd) para gerar sequências numéricas

    Mensagem  criquio 23/2/2010, 13:43

    JPaulo, ficou chick o trabalho. Agora é só cada um adaptar ao próprio gosto.
    Parabens.
    Eu ainda vou incluir no tempo oportuno funcionalidades como sortear os números automaticamente em intervalos de alguns segundos e falar os números sorteados a partir de arquivos wav. Acho que pode ser interessante. Tambem penso criar uma tabela para armazenar os sorteios, para que os mesmos possam ser cadastrados afim de serem realizados posteriormente e guardar os números das cartelas criadas para que quando uma for contemplada, o sistema possa mostrar o número da cartela vencedora.
    São só ideias por enquanto que pretendo aplicar.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    avatar
    marsolim
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 44
    Registrado : 05/02/2010

    bingo - [Resolvidos]Bingo no Access, função randomize (rnd) para gerar sequências numéricas Empty Re: [Resolvidos]Bingo no Access, função randomize (rnd) para gerar sequências numéricas

    Mensagem  marsolim 24/2/2010, 23:54

    grande jpaulo muito obrigado pelo seu empenho e dedicação não só a mim mas a todos que precisam de uma forcinha. ficou muito bom de fato. para falar a verdade eu não fiz quase nada aqui, estou só aprendendo. esse cidadão que se intitula criquio aí é que está fazendo o trabalho pesado, mas como ele esteve uns dias sem poder me orientar, foi que eu te amolei mais ainda, mas é ele quem está fazendo tudo aqui eu fico só observando e aprendendo, ja aprendi muita coisa, hehehe.
    mto obrigado mais uma vez. o sistema vai
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    bingo - [Resolvidos]Bingo no Access, função randomize (rnd) para gerar sequências numéricas Empty Re: [Resolvidos]Bingo no Access, função randomize (rnd) para gerar sequências numéricas

    Mensagem  JPaulo 25/2/2010, 00:41

    Depois quero ver esse final.


    .................................................................................
    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

    bingo - [Resolvidos]Bingo no Access, função randomize (rnd) para gerar sequências numéricas Folder_announce_new Utilize o Sistema de Busca do Fórum...
    bingo - [Resolvidos]Bingo no Access, função randomize (rnd) para gerar sequências numéricas Folder_announce_new 102 Códigos VBA Gratuitos...
    bingo - [Resolvidos]Bingo no Access, função randomize (rnd) para gerar sequências numéricas Folder_announce_new Instruções SQL como utilizar...
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    bingo - [Resolvidos]Bingo no Access, função randomize (rnd) para gerar sequências numéricas Empty Re: [Resolvidos]Bingo no Access, função randomize (rnd) para gerar sequências numéricas

    Mensagem  criquio 1/3/2010, 15:39

    JPaulo, como você faria para não precisar passar as cartelas geradas no relatório página por página para então poder cadastrá-las na tabela?


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.


    Conteúdo patrocinado


    bingo - [Resolvidos]Bingo no Access, função randomize (rnd) para gerar sequências numéricas Empty Re: [Resolvidos]Bingo no Access, função randomize (rnd) para gerar sequências numéricas

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 22:31