Clunietp
Jan 8th, 2000, 12:13 AM
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
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