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

    [Resolvido]Numero aleatório

    toyebom
    toyebom
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Numero aleatório Empty [Resolvido]Numero aleatório

    Mensagem  toyebom 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.
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Numero aleatório Empty Re: [Resolvido]Numero aleatório

    Mensagem  ahteixeira 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
    toyebom
    toyebom
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Numero aleatório Empty Numero aleatório

    Mensagem  toyebom 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.
    toyebom
    toyebom
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Numero aleatório Empty Numero aleatório

    Mensagem  toyebom 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.
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Numero aleatório Empty Re: [Resolvido]Numero aleatório

    Mensagem  ahteixeira 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: 25/7/2021, 04:26