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

    [Resolvido]Numero aleatório

    Compartilhe
    avatar
    toyebom
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 1073
    Registrado : 18/07/2012

    [Resolvido]Numero aleatório

    Mensagem  toyebom em 22/11/2018, 21:16

    Necessitava de gerar um numero aleatório em dois campos do formulário entre 1 e 10
    Queria que após criar registo novo, a fazer clique num botão gerasse números aleatórios em dois campos sem serem idênticos os seja por exemplo

    Campo 1 = 2
    Campo 2 = 7

    Vi este exemplo mas não sei aplicar

    Dim MyValue
    ' Generate random value between 1 and 6.
    MyValue = Int((6 * Rnd) + 1)


    support.office.com/pt-pt/article/fun%C3%A7%C3%A3o-aleat%C3%B3rio-503cd2e4-3949-413f-980a-ed8fb35c1d80


    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5619
    Registrado : 15/03/2013

    Re: [Resolvido]Numero aleatório

    Mensagem  ahteixeira em 22/11/2018, 22:37

    Ola Nuno,

    Cole num Modulo e teste a funcao:
    Código:
    Function fncAleatorio1a10() As Integer
        fncAleatorio1a10 = Int((10 * Rnd) + 1)
    End Function

    Abraco
    avatar
    toyebom
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 1073
    Registrado : 18/07/2012

    Numero aleatório

    Mensagem  toyebom em 29/11/2018, 21:45

    Uma ajudinha, não consigo aplicar.
    Se pudesses agradeço exemplo para eu estudar.


    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.
    avatar
    toyebom
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 1073
    Registrado : 18/07/2012

    Numero aleatório

    Mensagem  toyebom em 29/11/2018, 23:16

    Ok resolvi

    Private Sub Comando2_Click()
    Me.Texto0 = Int((10 - 1 + 1) * Rnd + 1)
    Me.Texto7 = Me.Texto0 * 2
    Me.Texto5 = Int((10 - 1 + 1) * Rnd + 1)
    End Sub


    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5619
    Registrado : 15/03/2013

    Re: [Resolvido]Numero aleatório

    Mensagem  ahteixeira em 30/11/2018, 09:47

    Ola Nuno,

    Pelo código que apresenta, usando a função ficaria assim:

    Código:
    Private Sub Comando2_Click()
    Me.Texto0 = fncAleatorio1a10
    Me.Texto7 = Me.Texto0 * 2
    Me.Texto5 = fncAleatorio1a10
    End Sub

    Abraço

      Data/hora atual: 16/12/2018, 11:23