Adding random numbers to a field

code for random, 1 - 2 digit whole numbers:

Code:

---

    Dim tmp As Long
   
    Randomize
   
    tmp = Rnd() * 100
   
    Debug.Print tmp

---

just take tmp, and add it to a field in a current recordset (RS)

rs.fields("MyField").value = rs.fields("MyField").value & tmp


HTH

Tom

Is it possible to add a random number to the end of a field? If so what is the easiest way?

John