Com somente outras 5 possibilidades, seria um tanto duvidoso começ um artigo verdadeiramente aleatório, mas você pode fazer o uso o Rnd e Randomize a função como mostrado abaixo à “ordem” uma tabela provisória na ordem aleatória. Eu tive uma tabela nomeada “tCustomers”, e construí uma pergunta para mostrar meus dados aleatòria requisitados novos.
Ver este local, onde eu copiei shamelessly as idéias do núcleo para este método:
http://www.fontstuff.com/vba/vbatut02.htmAnotar que eu adicionei uma pergunta nomeada “qryRandomRecords”. O SQL para essa pergunta é:
SELECIONAR A PARTE SUPERIOR 25 tmpCustomers.sName, tmpCustomers.sStreet, tmpCustomers.RandomNumber
Dos tmpCustomers
ORDEM por tmpCustomers.RandomNumber;
Você poderia usar este para construir uma tabela do temp para seus salespeople, a seguir apenas agarra o primeiro registro retornado por essa pergunta:
Rst não ofuscante como DAO.Recordset
Ajustar o rst = o Currentdb.OpenRecords (“PARTE SUPERIOR
SELETA 1 dos qryRandomRecords”)
Rst de Msgbox. Campos (0)