Avec seulement 5 autres possibilités, il serait quelque peu iffy pour obtenir un article véritablement aléatoire, mais vous pouvez faire l'utilisation le Rnd et randomiser la fonction comme montré ci-dessous au « ordre » une table provisoire dans l'ordre aléatoire. J'ai eu une table appelée des « tCustomers », et ai établi une question pour montrer mes nouvelles données aléatoirement commandées.
Voir le cet emplacement, où j'ai sans scrupule copié les idées de noyau pour cette méthode :
http://www.fontstuff.com/vba/vbatut02.htmNoter que j'ai ajouté une question appelée des « qryRandomRecords ». Le SQL pour cette question est :
CHOISIR LE PRINCIPAL 25 tmpCustomers.sName, tmpCustomers.sStreet, tmpCustomers.RandomNumber
Des tmpCustomers
ORDRE PAR tmpCustomers.RandomNumber ;
Vous pourriez employer ceci pour construire une table de temp pour vos vendeurs, puis saisissez juste le premier disque retourné par cette question :
Faible rst comme DAO.Recordset
Placer le rst = le Currentdb.OpenRecords (« PRINCIPAL
CHOISI 1 des qryRandomRecords »)
Rst de Msgbox. Champs (0)