løbe alle poster igennem og ret data på baggrund af alder

Prøv at se vedr. beregning af alder:

http://www.eksperten.dk/spm/114681

Beregningen af gruppen kan du indsætte i formularens OnCurrent event som en Select Case.

hmm, jeg kan ikke få det til at virke.

Har lavet et modul Beregnalder, med funktionen alder:

Public Function Alder(Dato1 As Date, Dato2 As Date) As Integer
    If DateSerial(Year(Dato2), Day(Dato1), Month(Dato1)) > Date Then
        Alder = DateDiff(\"yyyy\", Dato1, Dato2) - 1
    Else
        Alder = DateDiff(\"yyyy\", Dato1, Dato2)
    End If
End Function

men hvordan kalder jeg modulet, er det sådan her:

Call Beregnalder.Alder(fødselsdato, "31-12-2002")

eller hvordan gør jeg?

Jeg kan heller ikke få det til at virke. Må jeg sende dig et eksempel på kald af et modul?

Den er i Access97, men skal også virke i 2000 og XP. Blot læg din e-mail.

Tak

kl@densortejakke.dk

Sendt.

I would also concider making a query which calculates the age and also which group each person is in then you will ALWAYS be able to see th einformation without having to update your tables.

mugs > har kigget på den, og har delvis fået det til at virke

Terry > how do I do that?

You make a query and from this query you can call the function that mugs has sent you to calculate age, then you can use the IIF function to calculate gruppefeltet.

jeg vil gerne have dato2 til at være "fast", den skal være 01.01.næste år, dvs. i år skal det være 2003, men til næste år skal det være 2004.

Hvordan får jeg det?

dsjk

En meget klodset løsning er, at du har et datofelt samt et år-felt, og laver en Select Case struktur på dette. Lidt i stil med dette:
 
Select Case Dato
Case #1/1/1997# To #12/31/1997#
År = 1998
Case #1/1/1998# To #12/31/1999#
År = 2000
End Select

Men det absolut ikke en løsning jer er stolt over - men er for træt til andet.

hmm, jeg behøver det ikke lige nu, så når du er frisk ... :o)

så har jeg delvis fået lavet et forespørgsel, der viser det rigtige:

SELECT Alder([fødselsdato]) AS Alder, *
FROM persondata;

og i kolonnen alder stå nu personens alder, hvordan bruger jeg så IIF functionen?
Hvis alder 9 eller 10 så skal gruppefeltet være U11
Hvis alder 11 eller 12 så skal gruppefeltet være U13
Hvis alder 13 eller 14 så skal gruppefeltet være U15
Hvis alder 15 eller 16 så skal gruppefeltet være U17
Hvis alder 17 eller 18 så skal gruppefeltet være Senior

dsjk

and?

how do I finish the query, to update the field "gruppe" useing the query, and IIF?

I have not used IIF before, and are a bit lost.

Well you could make another function so you dont use IIF.

In the function where you calculate ALDER you can return the "Gruppefelt" instead.

Function Alder(inDate as date) as integer


Alder = .....


'Now you could alter the function to return a string instaed which contains ""Gruppefelt"
'You will need an integer to hold the alder you calculate

DIM age as integer



    SELECT CASE age
        Case 9, 10
            Alder = "U11"
        Case 11, 12
            Alder = "U13"

        ..
        Case else
            Alder = "Senior"           

    End SELECT

End function


Now you can make an update query

UPDATE persondata SET gruppefelt = alder([fødselsdato]);


or something like that!

ok, I will try when I get home tonight

OK, if you have any problems then you can contact me at terry@santhell.dk

Flg. Select Case er indsat i en Access97 db og fungerer. Indsat i Formularens VedAktuel (OnCurrent). Nyt eksempel er sendt:

Select Case Alder
Case 9 To 10
gruppe = "U9"
rettet = Date
Case 11 To 12
gruppe = "U13"
rettet = Date
Case 13 To 14
gruppe = "U15"
rettet = Date
Case 15 To 16
gruppe = "U17"
rettet = Date
Case 17 To 18
gruppe = "Senior"
rettet = Date
Case Else
gruppe = Null
rettet = Null
End Select

da jeg desværre har haft travt, og ikke rigtig har været hjemme, har jeg ikke fået kigget på det endnu.
Og får muligvis først kigget på det i starten af næste uge

OK

ok, så har jeg endelig fået kigget på det.

mugs > har ikke prøvet din løsning da det skal være en knap man trykker på for at starte en ny sæson, og opdateringerne skal kun køres en gang om året.

terry > Har fået dit forslag til at virke, og gruppefeltet opdateres fint, men kan jeg få opdateret "rettet" - feltet med dd, såfremt et medlem er rykket over i en anden gruppe?

dsjk

Hvis du ser på mit forslag bliver feltet "rettet" opdateret med dd når koden eksekveres når formularen opnår status som OnCurrent. du kan blot flytte koden til en kommandoknap, så skulle det fungere efter hensigten.

dsjk this question has been open almost a month now, are you going to close it?

jeg skal nok lukke det når jeg har fået det hele til at virke.

Problemet er at jeg har lidt travlt for tiden, og har derfor ikke fået lavet det færdig.

dsjk

jeg har denne kode i et modul:
Public Function Alder(Dato As Date) As Integer
Dim Dato2 As Date
Dim Age As Integer

Dato2 = Date
Select Case Dato2
Case #1/1/2002# To #12/31/2002#
Dato2 = #1/1/2003#
Case #1/1/2003# To #12/31/2003#
Dato2 = #1/1/2004#
Case #1/1/2004# To #12/31/2004#
Dato2 = #1/1/2005#
Case #1/1/2005# To #12/31/2005#
Dato2 = #1/1/2006#
Case #1/1/2006# To #12/31/2006#
Dato2 = #1/1/2007#
End Select


    If DateSerial(Year(Dato2), Month(Dato), Day(Dato)) > Dato2 Then
        Age = DateDiff("yyyy", Dato, Dato2) - 1
    Else
        Age = DateDiff("yyyy", Dato, Dato2)
    End If
   
Select Case Age
Case 7 To 8
    Alder = "3"
Case 9 To 10
    Alder = "4"
Case 11 To 12
    Alder = "5"
Case 13 To 14
    Alder = "6"
Case 15 To 16
    Alder = "7"
Case 17 To 18
    Alder = "2"
Case Else
    Alder = "1"
End Select

End Function

og bruger denne forespørgsel til at kører det med:
UPDATE persondata SET gruppe = alder([fødselsdato]);

Hvordan flytter jeg koden til en kommandoknap? og hvor skal den stå?

dsjk

Du kopierer simpelthen koden og indsætter den i knappens OnClick event. Efter Ens Select tilføjer du flg.:

DoCmd.OpenQuery "Forespørgslens Navn"

hvilket åbner din opdateringsforespørgsel.

når du kører en opdateringsdforespørgsel får du en advarsel fra Access der siger, at du er ved at ændre data i tabellen. Hvis du vil være fri for den, kan du indsætte flg. i starten af din kode:

DoCmd.SetWarnings False

Men husk at indsætte denne i slutningen:

Docmd.SetWarnings True

Hvis du du bruger False, forbliver systemadvarslerne frakoblede i hele applikationen, derfor altid True til sidst.

ok, har nu prøvet at tilføje dato i rettet, men det virker ikke helt, hvordan skal forespørgslen lyde når den både skal rette gruppe og rettet?
nu:
UPDATE persondata SET gruppe = alder([fødselsdato]);


dsjk

Du trækker simpelthen feltet "rettet" ned i opdateringsforespørgslens designgitter på samme måde som feltet "gruppe", og i feltet Opdateres til indtaster du datoen.

Noget i stil mede dette:

UPDATE Tabel1 SET Tabel1.gruppe = 9, Tabel1.rettet = Date()+2;

som opdaterer tabel1 felterne gruppe til 9 og rettet til dags dato + 2, altså 2002-11-12.

ok, det er jo klart, tænkte mig ikke helt om det :O)

Så er der kun en lille fejl:
Feltet rettet skal kun have Date() hvis gruppe feltet rettes, kan man gøre det?

dsjk

så er problemet løst:

jeg har lavet et ekstra felt i tabellen: oldgruppe.
Jeg starter med at flytte nuværende gruppe over i old gruppe.
så kører jeg opdateringen der skal bestemme om nogle spillere skal i en ny gruppe.
til sidst flytter jeg date() ind i rettet i de tilfælde gruppe er forskellig for oldgruppe.

Tak for hjælpen.

dsjk

tak :o)