bir yerde hata yapıyor olmalısınız
Undefined function 'xRnd' in expression. hatasının olabilmesi için sizin önerdiğimiz kodu çalışmanıza eklememiş olmanız gerek
önerdiğimiz kodun çalışabilmesi için
1 - projenize 1 modül ekleyin
2 - eklediğiniz yeni modüle önerilen kodu ekleyin
3 - sorgu için öerilen kodu kullanın

isterseniz Access dosyanızın son halini ekleyin nerede hata var inceleyelim