Fråga : hur man får en sätta in på måfå för att ändra.

Hi EE
I har en ifrågasätta som jag cant fynd ett svar:
I har reor att bilda som antecknar varje status när försök för en reaperson att göra en appell. Jag önskar bilda, efter den har antecknat 12 ”inga svar” för att ändra reapersonen som äger den lead.

This bet är lätt låter emellertid folk för reor för hav 6 för något att säga i, om reaperson 1 äger ett bly-, och efter 12 atempts det ändrar ägaren till reaperson 2 detta skulle arbete, men om jag har 6 folk hur jag får reaperson 6 att gå till 1?
if i använde precis en formel som var +1 detta skulle arbete för alla, men last
also som den skulle, är även bättre, om jag kunde få den på måfå för att ge den till det nästa, så EG. personen för
sales kunde passera till någon på måfå etc.-etc


SO:
I har redan en query som räknar status, så bilda vet när den får till de 12 number.#How mig får bilda för att ändra sätta in som innehåller ägaren som är känd till någon slumpvis? folket för

Sales namnger hålls i en separat table.
" klar "

Svar : hur man får en sätta in på måfå för att ändra.

Med endast 5 andra möjligheter det skulle är något osäkert att få ett riktigt slumpmässigt objekt, men du kan göra bruk Rnden, och att randomize fungera, som visat nedanfört ”beställer” ett tillfälligt bordlägger i slumpmässigt beställer. Jag hade en bordlägga som namngavs ”tCustomers” och byggde en query för att visa min nya på måfå beställde data.

Se denna plats, var jag kopierade shamelessly kärna uridéerna för denna metod: http://www.fontstuff.com/vba/vbatut02.htm

Notera att jag tillfogade en query som namngavs ”qryRandomRecords”. Sqlen för den query är:

VÄLJ BÄSTA 25 tmpCustomers.sName, tmpCustomers.sStreet, tmpCustomers.RandomNumber
FRÅN tmpCustomers
BESTÄLLA VID tmpCustomers.RandomNumber;

Du kunde använda denna för att bygga en vikarie bordlägger för dina salespeople, då precis hastigt grepp som det första rekordet gick tillbaka förbi den query:

Dunkel rst som DAO.Recordset
Fastställd rst = Currentdb.OpenRecords (”VÄLJ BÄSTA 1 FRÅN qryRandomRecords”),

Msgbox rst. Sätter in (0)

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

Fungera GetRandomValues () Dunkel rst som DAO.Recordset acTable DoCmd.DeleteObject, ”tmpCustomers”, CurrentDb.Execute ”VALD sName, sStreet IN I tmpCustomers FRÅN tCustomers”, CurrentDb.Execute ”FÖRÄNDRAR SIG BORDLÄGGER tmpCustomers TILLFOGAR RandomNumber DUBBLETT för KOLONNEN”, Fastställd rst = CurrentDb.OpenRecordset (”VÄLJ * FRÅN tmpCustomers”), Gör till rst.EOF Randomize rst. Redigera rst (”RandomNumber”) = Rnd rst. Uppdatering rst.MoveNext Kretsa DoCmd.OpenQuery ”qryRandomRecords”, Avsluta fungerar