ник: ГлазастыйМышь
for k=1 to 1000000
currentDb.Execute "INSERT INTO [твоя таблица]( [твое поле] ) SELECT " &
CHR(Int((25 * Rnd) + 65)) & CHR(Int((25 * Rnd) + 65)) & CHR(Int((25 * Rnd) + 65)) & CHR(Int((25 * Rnd) + 65)) & CHR(Int((25 * Rnd) + 65)) & CHR(Int((25 * Rnd) + 65))
next k
|
будет записано 6 буквенное слово из случайных букв английского алфавита. 26 в 6 степени дает 308915776 вариантов, по идее перекрывают 1000000, но возможны и частные совпадения.