Vraag : hoe te om een gebied ertoe te brengen om willekeurig te veranderen.

Hallo heeft EE
I een vraag dat ik vondst een antwoord afschuin:
I heeft een verkoopvorm die elke status registreert wanneer een verkooppersoon probeert om te telefoneren. Ik wil de vorm nadat het 12 „Geen Antwoorden“ heeft geregistreerd om de verkooppersoon te veranderen die bezit dat het beetje lead.

This nochtans laat I zeggen hav 6 verkoopmensen gemakkelijk is, als verkooppersoon 1 een lood bezit en na 12 atempts het eigenaar in verkooppersoon verandert 2 dit zou werken maar als ik 6 mensen heb hoe ik verkooppersoon 6 om naar 1 ertoe breng te gaan?
if ik gebruikte enkel een formule die +1 dit zou werken voor alles was behalve zou last

also het nog beter zijn als ik het kon ertoe brengen om het aan volgende zo willekeurig te geven B.V. de persoon
sales tot iedereen enz. etc


SO kon willekeurig overgaan:
I heeft reeds een vraag die status telt zodat weet de vorm wanneer het aan 12 number.#
How do I ertoe brengt de vorm krijgt om het gebied te veranderen dat de eigenaarnaam in het wilde weg aan iedereen bevat?

Sales de mensennamen worden gehouden in een afzonderlijke table.

Antwoord : hoe te om een gebied ertoe te brengen om willekeurig te veranderen.

Met slechts 5 andere mogelijkheden, zou het enigszins iffy zijn om een echt willekeurig punt te krijgen, maar u kunt doen Rnd gebruiken en functie willekeurig verdelen zoals die hieronder wordt getoond om „“ tot een tijdelijke lijst in willekeurige orde opdracht geven. Ik had een lijst genoemd „tCustomers“, en bouwde een vraag om mijn nieuwe willekeurig bevolen gegevens te tonen.

Zie deze plaats, waar ik shamelessly de kernideeën voor deze methode kopi�ërde: http://www.fontstuff.com/vba/vbatut02.htm

Merk op dat ik een vraag genoemd „qryRandomRecords“ toevoegde. SQL voor die vraag is:

SELECTEER BOVENKANT 25 tmpCustomers.sName, tmpCustomers.sStreet, tmpCustomers.RandomNumber
VAN tmpCustomers
ORDE DOOR tmpCustomers.RandomNumber;

U kon dit gebruiken om een temperaturenlijst voor uw verkopers te bouwen, dan die enkel het eerste verslag grijpen door die vraag is teruggekeerd:

Schemerige rst als DAO.Recordset
Reeks rst = Currentdb.OpenRecords („UITGEZOCHTE BOVENKANT 1 VAN qryRandomRecords“)

Msgbox rst. Gebieden (0)

1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22:

Functie GetRandomValues () Schemerige rst als DAO.Recordset acTable DoCmd.DeleteObject, „tmpCustomers“ CurrentDb.Execute „SELECTEER sName, sStreet IN tmpCustomers VAN tCustomers“ CurrentDb.Execute „VERANDER tmpCustomers van de LIJST TOEVOEGEN het DUBBEL van RandomNumber van de KOLOM“ Plaats rst = CurrentDb.OpenRecordset („SELECTEER * UIT tmpCustomers“) Doe tot rst.EOF Verdeel willekeurig rst. Geef uit rst („RandomNumber“) = Rnd rst. Update rst.MoveNext Lijn DoCmd.OpenQuery „qryRandomRecords“ De Functie van het eind