Beregne antal medlemmer ml. 10 og 12 år ved hjælp af cpr. nr.

Du kan benytte UNION til flere forskellige kriterieudtræk fra samme tabel

Kan du komme med noget mere konkret, da jeg ikke er helt inde i access.

Ok, en UNION vil ser nogenlunde således ud :

SELECT Count(tblMedlemmer.ALDER) AS Antal
FROM tblMedlemmer
WHERE (((tblMedlemmer.ALDER)>18));
UNION
SELECT Count(tblMedlemmer.ALDER) AS Antal
FROM tblMedlemmer
WHERE (((tblMedlemmer.ALDER)Between 10 and 18));

Øh, havde nu håbet på en nemmere løsning:-) Noget i retning af en stump kode indtastet i forespørgslen under beregn alder fra cpr. nr.

Hvordan og hvor lægger jeg den union ind i databasen?

En nem løsning er der ikke ( hvis du skal have beregnet alderen korrekt ), men her er måske noget modulkode der kan hjælpe :

Først skal du have denne modulkode

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 tblMedlemmer.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 blMedlemmer
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))))))) > 18));

Tilsvarende

SELECT tblMedlemmer.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 blMedlemmer
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 10 And 18));

Jeg vil nok lave funktionen om til at bruge CPR som input

Public Function Alder(CPR As String) As Integer
    Dim Dato As Date
    Dato = CDate(Mid(CPR, 1, 2) & "/" & Mid(CPR, 3, 2) & "/" & Mid(CPR, 5, 2))
    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å kunne  en SQL se sådan ud

SELECT Medlemmer.Navn, Medlemmer.CPR, alder([CPR]) AS År
FROM Medlemmer
WHERE (((alder([CPR]))<18));

SQL for at finde dem mellem 10 og 18 er sådan

SELECT Medlemmer.Navn, Medlemmer.CPR, alder([CPR]) AS År
FROM Medlemmer
WHERE (((alder([CPR])) Between 10 And 18));

Hej Jensen363 & kabbak
Takker for begge jeres forslag, som jeg desværre ikke kaster mig ud i på nuværende tidspunkt grundet tidspres. Jeg havde håbet på en nem og ikke tidskrævende løsning, men det var nok naivt. Jeg gemmer forslagene til et senere tidspunkt, og skal nok få det til at funke. Hvis det er ok med jer, deler jeg pointene mellem jer? Men det kræver vist et svar?

Det er ok med mig :-)

ok

Takker

tak

Og tak herfra