Adding random numbers to a field

[Clunietp]

code for random, 1 - 2 digit whole numbers:

    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