Et løsningsforslag i VBA
HejHvordan gøres dette ?
Jeg har en access DB med 3 tabeller:
tblMedarbejder, som indeholder følgende:
MedarbejderID autonum Primær nøgle
Navn Tekst 50
Brugernavn Tekst 8 Indexeret
Aktiv Ja/Nej
121,"Test Testesen","AFD1TT",(Aktiv)
211,"Ole Olesen","AFD1OO",(Aktiv)
253,"Per Pedersen","AFD1PP",(Aktiv)
300,"Tim Tomme","AFD1TT",(Inaktiv)
401,"Kaj Kasket","AFD1KK",(Aktiv)
tblPluk, som indeholder følgende:
PlukID autonum Primær nøgle
Brugernavn Tekst 8 Indexeret
Dato Kort dato
Omraade Heltal
antalColli Heltal
112,"AFD1TT",10-11-2007,1000,187
122,"AFD1TT",12-11-2007,1000,122
132,"AFD1TT",12-11-2007,2120,90
142,"AFD1TT",13-11-2007,1110,215
152,"AFD1TT",14-11-2007,1130,133
156,"AFD1TT",14-11-2007,1150,5
211,"AFD1TT",21-11-2007,1240,33
343,"AFD1OO",12-11-2007,1000,109
366,"AFD1OO",12-11-2007,2120,10
367,"AFD1OO",13-11-2007,1150,100
389,"AFD1OO",13-11-2007,1240,55
409,"AFD1OO",14-11-2007,1240,100
455,"AFD1OO",14-11-2007,1000,191
500,"AFD1OO",15-11-2007,1000,100
560,"AFD1OO",15,11,2007,1130,200
670,"AFD1OO",16-11-2007,1150,400
800,"AFD1OO",16,11,2007,1130,100
900,"AFD1PP",12-11-2007,1240,60
910,"AFD1PP",13-11-2007,1000,55
922,"AFD1PP",14-11-2007,1240,60
923,"AFD1PP",15-11-2007,1000,50
955,"AFD1PP",16-11-2007,1000,50
tblTimer, som indeholder følgende:
TimerID autonum Primær nøgle
Brugernavn Tekst 8 Indexeret
Dato Kort dato
Type Heltal
Timer Kort klokkeslæt
12,"AFD1TT",10-11-2007,11,6:55
14,"AFD1TT",12-11-2007,11,7:25
15,"AFD1TT",13-11-2007,11,6:55
17,"AFD1TT",14-11-2007,12,8:25
19,"AFD1TT",21-11-2007,11,7:25
33,"AFD1PP",12-11-2007,12,6:55
34,"AFD1PP",13-11-2007,12,7:25
35,"AFD1PP",14-11-2077,12,6:55
37,"AFD1PP",15-11-2007,12,8:20
38,"AFD1PP",16-11-2007,12,7:25
43,"AFD1OO",12-11-2007,11,6:55
44,"AFD1OO",13-11-2007,11,7:25
45,"AFD1OO",14-11-2077,11,6:55
47,"AFD1OO",15-11-2007,11,8:20
48,"AFD1OO",16-11-2007,11,7:25
553,"AFD1KK",12-11-2007,21,6:55
554,"AFD1KK",13-11-2007,21,7:25
555,"AFD1KK",14-11-2077,21,6:55
557,"AFD1KK",15-11-2007,21,8:20
558,"AFD1KK",16-11-2007,21,7:25
TblMedarbejder.Brugernavn har relation til både tblTimer.Brugernavn og tblPluk.Brugernavn som en-til-mange relation.
Nu vil jeg gerne have lavet noget VBA kode, der kan optælle den enkelte aktive medarbejders tblTimer.Timer sorteret på tblTimer.Type (11, 12 og 13) samt medarbejderens tblPluk.antalColli sorteret på tblPluk.Omraade (enten 1000 eller 1240 eller 2120 eller resten), det hele skal findes frem, ud fra en indtastet dato periode (f.eks. fra 12-11-2007 til 18-11-2007) og samles i en ny tabel tblResultat
Et resultat der minder om dette:
ID autonum
Navn Tekst 50
Type_11 Kort Klokkeslæt
Type_12 Kort Klokkeslæt
Type_13 Kort Klokkeslæt
Omraade_1000 Heltal
Omraade_1240 Heltal
Omraade_2120 Heltal
Omraade_Resten Heltal
1,"Kaj Kasket",NULL,NULL,NULL,NULL,NULL,NULL,NULL
2,"Ole Olsen",37:00,NULL,NULL,NULL,400,155,10,800
3,"Per Pedersen",NULL,37:00,NULL,155,120,NULL,NULL
4,"Test Testesen",14:20,8:25,NULL,122,NULL,90,353
Type: Område:
Navn: 11 12 13 1000 1240 2120 Resten
-------------- ------ ------ ------ ----- ----- ----- ------
Kaj Kasket
Ole Olsen 37:00 400 155 10 800
Per Pedersen 37:00 155 120
Test Testesen 14:20 8:25 122 90 353