Função aleatório entre

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

Bom dia!

Veja esse artigo do Avelino Sampaio: http://www.usandoaccess.com.br/tutoriais/tuto41.asp?id=1

Tem exatamente o que você precisa.

[]s

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?