Notifikationer

Markér alle som læst Log ud

geertf Nybegynder

01. marts 2004 - 14:54 Der er 2 kommentarer og
1 løsning

Udvælgelse på baggrund af CPR

Jeg ved godt at det er en klassisker efterhånden, men alligevel:
Jeg ønsker at lave et udtræk for de 30-39 årige på baggrund af CPR-nr. Jeg har forsøgt med følgende sætning men får en syntaksfejl:

SELECT Tbl_Brugere.*, Tbl_Brugere.CPR, CDate(IIf(CDate(Mid([CPR],1,2) & "/" & Mid([CPR],3,2) & "/" & Mid([CPR],5,2))<=Date(),CDate(Mid([CPR],1,2) & "/" & Mid([CPR],3,2) & "/" & Mid([CPR],5,2)),DateAdd("yyyy",-100,CDate(Mid([CPR],1,2) & "/" & Mid([CPR],3,2) & "/" & Mid([CPR],5,2))))) AS Dato
FROM Tbl_Brugere
WHERE (((CDate(IIf(CDate(Mid([CPR],1,2) & "/" & Mid([CPR],3,2) & "/" & Mid([CPR],5,2))<=Date(),CDate(Mid([CPR],1,2) & "/" & Mid([CPR],3,2) & "/" & Mid([CPR],5,2)),DateAdd("yyyy",-100,CDate(Mid([CPR],1,2) & "/" & Mid([CPR],3,2) & "/" & Mid([CPR],5,2)))))) BETWEEN DateAdd("yyyy",-30,Date() AND DateAdd("yyyy",-39,Date())));

Jeg ville sætte stor pris på hjælp.
På forhånd tak.
Geert

Synes godt om

Make IT Easy - Thomas Jepsen Praktikant

01. marts 2004 - 21:37 #1

Hvis du lægger denne kode i et modul:
Public Function Alder(Dato As Date) As Integer
If DateSerial(Year(Date), Month(Dato), Day(Dato)) > Date Then
Alder = DateDiff("yyyy", Dato, Date) - 1
Else
Alder = DateDiff("yyyy", Dato, Date)
End If
End Function

Så virker denne SQL:

SELECT Tbl_Brugere.CPR, alder(CDate(IIf(CDate(Mid([CPR],1,2) & "/" & Mid([CPR],3,2) & "/" & Mid([CPR],5,2))<=Date(),CDate(Mid([CPR],1,2) & "/" & Mid([CPR],3,2) & "/" & Mid([CPR],5,2)),DateAdd("yyyy",-100,CDate(Mid([CPR],1,2) & "/" & Mid([CPR],3,2) & "/" & Mid([CPR],5,2)))))) AS Alder
FROM Tbl_Brugere
WHERE (((alder(CDate(IIf(CDate(Mid([CPR],1,2) & "/" & Mid([CPR],3,2) & "/" & Mid([CPR],5,2))<=Date(),CDate(Mid([CPR],1,2) & "/" & Mid([CPR],3,2) & "/" & Mid([CPR],5,2)),DateAdd("yyyy",-100,CDate(Mid([CPR],1,2) & "/" & Mid([CPR],3,2) & "/" & Mid([CPR],5,2))))))) Between 30 And 39));

Synes godt om

geertf Nybegynder

02. marts 2004 - 14:07 #2

Hmm... det kan jeg godt nok ikke få til at virke, men det inspirerede mig til at gøre det på en anden måde - så jeg fik mit problem løst.

Synes godt om

geertf Nybegynder

02. marts 2004 - 14:08 #3

Men tak for forsøget og inspirationen ;-)
Geertf

Synes godt om

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.

Følg dette spørgsmål

Opret Preview

Access kurser

Dyk ned i databasernes verden på et af vores praksisnære Access-kurser

Se alle Access kurser

Flere spørgsmål fra Access kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
en word dotx fil stilles om til at blive gemt i skyen Af per2edb i Access	9	16/04/202620:11	21/04/202615:43
AI integreret i Access Af per2edb i Access	3	06/04/202610:42	06/04/202612:58
Autonummerering Af hlnviv i Access	2	06/03/202606:24	06/03/202607:48
stigende sortering på et Link felt Af hlnviv i Access	6	03/03/202613:18	04/03/202608:09
Access database udskriver ikke rammer korrekt Af Uvanga i Access	8	18/11/202500:24	18/11/202510:25

Se alle spørgsmål i kategorien Opret spørgsmål

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

Alle kategorier på Eksperten

Seneste artiklerRSS