How does Rnd() work? How to store a value.

Originally Posted by zaankanter

Problem1: trying Rnd() just gets me the same nummer over and over again. This is of course not wat random is supposed to be. Just wat need I to do to make Acces give me a realy random number?

Originally Posted by zaankanter

Problem2: how do I store (without intervention of the user) a number in a table (that is: in the one pre-existing record, not appending a record to the table).

Originally Posted by Zwoker

Before calling Rnd for the first time add a Randomize statement to your code. This uses the system time to create a semi-random starting point for your RND function.
<.......>
By the way, in case you don't realise, the Rnd function returns a value between 0 and 1. If you want an interger value, say a randon number between 1 and 10, then you would need to do something like :

Originally Posted by Zwoker

Before calling Rnd for the first time add a Randomize statement to your code. This uses the system time to create a semi-random starting point for your RND function.
<.......>
By the way, in case you don't realise, the Rnd function returns a value between 0 and 1. If you want an interger value, say a randon number between 1 and 10, then you would need to do something like :

Originally Posted by zaankanter

I'm just wondering, why the @@ are the clear and simple statements quoted above (thanks !) not to be found in any helpfunctions of Acces?

Originally Posted by zaankanter

You don't want to know what @@ means! And yes, its probably my own fault, that I don't know my way around in the helpfunction of Acces. I use 2003.

Although I think your program lines must be the right answer, it doesn't quite work with me yet. These are the lines I programmed (my table has a slightly different spelling, i.e. dutch)

Private Sub Form_Load()

If IsNull(DLookup("[res3]", "programmavariabelen")) Then
MsgBox "res3 is empty"
Randomize
MyTable.Open "programmavariabelen", CurrentProject.Connection, adOpenStatic, adLockOptimistic
MyTable.MoveFirst
MyTable![res3] = Rnd()
MyTable.Update
MyTable.Close

MsgBox (Me![res3])
End If
End Sub

It stops at My.table.open etc.
There I get "object required", but wich object would that be?

Rnd Function


Returns a Single containing a random number.

Syntax

Rnd[(number)]

The optional number argument is a Single or any valid numeric expression.

Return Values

If number is Rnd generates
Less than zero The same number every time, using number as the seed.
Greater than zero The next random number in the sequence.
Equal to zero The most recently generated number.
Not supplied The next random number in the sequence.



Remarks

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.

Note 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.