смотрите есть запрос на генерацию случайных чисел в определенное поле
Sub Macro1()
[Visual Basic]
Dim LRandomNumber As Integer
Dim s$

Randomize
LRandomNumber = Int((300 - 200 + 1) * Rnd() + 200)

s = "UPDATE вычисляемые SET [пук]=" & LRandomNumber & " WHERE [крак]>=0"

CurrentDb.Execute s
End Sub
[Visual Basic/]
но проблема в том что , это генерирует на все поле,покажите как правильно написать цикл "While not" ,чтобы он не трогал уже заполненные ячейки?

http://www.sql.ru/forum/1253921/generaciya-sluchaynogo-chisla-dlya-kazhdoy-yacheyki