Используя функцию mnesia:all_keys/1
(или грязный эквивалент) и модуль random
.
random_value(Table) ->
Keys = mnesia:dirty_all_keys(Table),
Key = lists:nth(random:uniform(length(Keys)), Keys),
[#record{x = X}] = mnesia:dirty_read({Table, Key}),
X.
Не забудьте инициализировать семена с помощью random:seed/3
.