MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    Função aleatório entre

    Compartilhe

    allexxnunes
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 32
    Registrado : 11/03/2013

    Função aleatório entre

    Mensagem  allexxnunes em Ter 07 Jan 2014, 23:03

    Tenho um campo numérico e preciso que seja gerado numeração aleatória entre 1 e 9999. Também preciso que NÃo se repita.
    Já procurei aqui no fórum e no Google e não achei nada.
    E em qual evento devo colocar essa função?
    Valeu pessoal
    avatar
    Leandro
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1578
    Registrado : 12/11/2009

    Re: Função aleatório entre

    Mensagem  Leandro em Qua 08 Jan 2014, 13:55

    Bom dia!

    Veja esse artigo do Avelino Sampaio: [Você precisa estar registrado e conectado para ver este link.]

    Tem exatamente o que você precisa.

    []s


    .................................................................................




    Algumas soluções em access



    [Você precisa estar registrado e conectado para ver este link.]

    [Você precisa estar registrado e conectado para ver este link.]

    [Você precisa estar registrado e conectado para ver este link.]

    [Você precisa estar registrado e conectado para ver este link.]



    allexxnunes
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 32
    Registrado : 11/03/2013

    Re: Função aleatório entre

    Mensagem  allexxnunes em Qua 08 Jan 2014, 14:46

    Criei um botão e coloquei no evento ao clicar. O campo não acoplado que receberia o nº e chama "tx".
    Tentei adaptar do exemplo informado,mas não está funcionando.
    Vou colocar abaixo o código:
    ------------------------------------------------------
    Private Sub Comando131_Click()
    Dim intRnd As Integer
    Dim booRepete As Boolean
    booRepete = True
    Do While booRepete
    'Randomize força a função Rnd() a sortear um novo número
    Randomize
    'Sortear um número de 1 a 10.000
    intRnd = Int(Rnd * 10000) + 1
    'verifica se já foi sorteado. Se sim, continua no loop, gerando novo número.
    'Só sairá do loop quando o valor for diferente do já sorteado.
    'para isso, basta verificar se a campo que recebe o número está ou não preenchido.
    If IsNull(Me("tx")) Then booRepete = False
    Loop
    End Sub
    --------------------------------------------------------
    Alguma coisa de errado?

      Data/hora atual: Ter 21 Nov 2017, 04:34