Access 2007-2019 Access 2000-2003 Access Seminars TechHelp Support Tips & Tricks Access Forum Course Index Topic Glossary Insider Circle

 Home   News   Courses   Seminars   Templates   Help   TechHelp   Forums   Order   Contact   Logon More... What's New? Tips & Tricks Access Index Access Tips Excel Index Excel Tips Waiting List

 Access    Excel    Word    Windows    HTML

Rnd

Using the Rnd Function

In this tutorial you will learn how to use the Rnd Function.

The Rnd function returns a Single containing a random number.

=Rnd[( number )]

number any valid number expression

Return Values
If number isRnd generates
Less than zero (<0)The same number every time, using number as the seed.
Greater than zero (>0)The next random number in the sequence.
Equal to zero (=0)The most recently generated number.
Not suppliedThe next random number in the sequence.

The Rnd function returns a value less than 1 but greater than or equal to zero.

The value of number determines how Rnd generates a random number:

For any given initial seed, the same number sequence is generated because each successive call to the Rnd function uses the previous number as a seed for the next number in the sequence.

Before calling Rnd, use the Randomize statement without an argument to initialize the random-number generator with a seed based on the system timer.

To produce random integers in a given range, use this formula:

`Int((upperbound - lowerbound + 1) * Rnd + lowerbound)`

Here, upperbound is the highest number in the range, and lowerbound is the lowest number in the range.

To repeat sequences of random numbers, call Rnd with a negative argument immediately before using Randomize with a numeric argument. Using Randomize with the same value for number does not repeat the previous sequence.

In this example we won't pass a value.

The result is a random number.

Query

The results using a Query would be

```	SELECT Rnd();
```

FORM

In a Form you could set the Default Value of a Textbox to

```	=Rnd()
```
VBA

In a Form add a TEXTBOX control and rename it "txtRnd", then you could add the following in the Load Event.

```	Private Sub Form_Load()
txtRnd = Rnd()
End Sub
```

Courses Tips

See this FREE Tip on Rnd.

Search