MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

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

    Leandro
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1574
    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



    Menu Treeview

    Restringir valores já lançados em caixa de combinação - Texto

    Restringir valores já lançados em caixa de combinação - Valores numéricos



    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: Qua 07 Dez 2016, 20:08