Pytanie : dlaczego pole przypadkowo.

Cześć EE
I mieć pytanie który i cant znalezisko odpowiedź:
I mieć sprzedaż forma che nagrywać wezwanie status gdy sprzedaż osoba próbować wezwanie. I chcieć the forma po tym jak ono nagrywać 12 "Brak Odpowiedzi" the sprzedaż osoba kto posiadać ten lead.

This kawałek być łatwy pozwalać i hav 6 sprzedaż ludzie, jeżeli sprzedaż osoba (1) posiadać prowadzenie i po tym jak 12 atempts ono zmieniać właściciel sprzedaż osoba 2 2 pracować ale jeżeli i mieć 6 ludzie jak i dostawać sprzedaż osoba 6 (1)?
if i właśnie używać formuła który być +1 który pracować dla który ale the last

also ono być nawet jeżeli i móc ono przypadkowo ono the następny więc EG.
sales osoba móc następny przypadkowo etc etc


SO:
I już mieć zapytanie który liczyć status więc the forma znać kiedy ono dostawać the 12 number.#
How i dostawać the forma the pole który zawierać the właściciel imię

Sales ludzie imię utrzymywać w oddzielny table.

Odpowiedź : dlaczego pole przypadkowo.

Z tylko 5 inny możliwość, ono być nieco nieco szczerze przypadkowy rzecz, ale ty móc use the Rnd i Funkcja pokazywać pokazywać "rozkaz" chwilowy stół w przypadkowy rozkaz. I miewać stół wymieniać "tCustomers", i budować zapytanie mój nowy przypadkowo rozkazywać dane.

Widzieć ten miejsce, dokąd I bezwstydnie kopiować the sedno pomysł dla ten metoda: http://www.fontstuff.com/vba/vbatut02.htm

Zauważać że I dodawać zapytanie wymieniać "qryRandomRecords". The SQL dla ten zapytanie być:

WYBRANY WIERZCHOŁEK 25 tmpCustomers.sName, tmpCustomers.sStreet, tmpCustomers.RandomNumber
OD tmpCustomers
ROZKAZ TmpCustomers.RandomNumber;

Ty móc móc zastępca stół dla twój salespeople, then właśnie chwytać the pierwszy rejestr wracać ten zapytanie:

Ciemnawy rst Jako DAO.Recordset
Ustalony rst = Currentdb.OpenRecords ("WYBRANY WIERZCHOŁEK (1) OD qryRandomRecords")

Msgbox rst. Pole ((0))
(1):
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

Funkcja GetRandomValues ()

Ciemnawy rst Jako DAO.Recordset

DoCmd.DeleteObject tmpCustomers, "tmpCustomers"

CurrentDb.Execute "WYBRANY sName, sStreet W tmpCustomers OD tCustomers"
CurrentDb.Execute "ZMIENIAĆ STOŁOWY tmpCustomers DODAWAĆ SZPALTOWY Szpaltowy KOPIA"

Ustalony rst = CurrentDb.OpenRecordset ("WYBIÓRKA * OD tmpCustomers")

Do rst.EOF
  Randomizować
  rst. Redagować
  rst ("Rnd") = Rnd
  rst. Aktualizacja
  rst.MoveNext
Pętla

DoCmd.OpenQuery "qryRandomRecords"

Końcówka Funkcja
Inne rozwiązania  
 
programming4us programming4us