Avatar billede coolkey Nybegynder
11. december 2007 - 20:53 Der er 2 kommentarer og
1 løsning

Et løsningsforslag i VBA

Hej

Hvordan 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
Avatar billede japping Nybegynder
13. december 2007 - 00:57 #1
Det lyder som en arbejdsopgave du bør betale for.
Avatar billede mikker Nybegynder
19. december 2007 - 13:36 #2
uden at grave dybere, kan du så ikke lave en forespørgsel i Excel og trække ud til pivottabel?
Avatar billede coolkey Nybegynder
27. december 2007 - 20:24 #3
Har selv fundet en løsning i VBA.
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester