[Resolvido]Numero aleatório

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

Ola Nuno,

Cole num Modulo e teste a funcao:

Código:

Function fncAleatorio1a10() As Integer
    fncAleatorio1a10 = Int((10 * Rnd) + 1)
End Function

Abraco

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

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

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