Fødselsdag ud fra CPR-Nummer

En CPR nummer har format
ddmmyycccc

cccc=Kontrol cifer!

Jeg går ud fra at dit cprnummerfelt er et almindeliogt datofelt, som du selv skriver, og at det hedder CPR. Så kan du bruge følgende metode:

Opret et nyt modul eller brug et, du allerede har, og kopier følgende kode til modulet:

Function FindFod(cpr As Date) As String
    fMaan = DatePart("m", cpr)
    fDat = DatePart("d", cpr)
    NuMaan = DatePart("m", Date)
    nudat = DatePart("d", Date)
    If fMaan = NuMaan And fDat = nudat Then
        FindFod = "Hurra"
    Else
        FindFod = ""
    End If
End Function

Gem modulet.

I en forespørgsel henter du nu de relevante felter til din liste. I et "nyt tomt" felt i gitteret skriver du fx Fødselsdag: FindFod([CPR])

Så laver du din rapport baseret på forespørgslen. Så vil den skrive Hurra ud for de, der har fødselsdag. Du kan selv finde på en mere kreativ tekst.

Du kan også finde et billede af et flag på nettet. I rapportens designvisning indsætter du så et billedfelt, med dit billed i i detaljesektionen ud for den enkelte række. Giv feltet et relevant navn.

Dernæst kan du gå i egenskbaer for detaljesektionen og vælge Hændelsen VedFormatering. Her indsætter du så denne kode:

Private Sub Detaljesektion_Format(Cancel As Integer, FormatCount As Integer)
If Me!Fødselsdag = "Hurra" Then
Me!Feltnavn.Visible = True
Else
Me!Feltnavn.Visible = False
End If
End Sub

Hvor feltnavn skal erstatted med navnet på dit felt.

CPR-Nummeret indeholder selvfølgelig også kontrolcifrene - MEN er oprettet som tekstfelt.....Hvordan så ??

Prøv at skifte den første kode i modulet ud med følgende:

Function FindFod(CPR As String) As String
    fmaan = Mid(CPR, 3, 2)
    fdat = Left(CPR, 2)
    numaan = Mid(Date, 4, 2)
    nudat = Left(Date, 2)
    Debug.Print fmaan & " " & numaan
    Debug.Print fdat & " " & nudat
    If fmaan = numaan And fdat = nudat Then
        FindFod = "Hurra"
    Else
        FindFod = ""
    End If
End Function

Ovenstående forudsætter at et CPR-nummer ser uf som følger:

121212-4567

skriver du 12-12-12-4567 skal du ændre første linje til
fmaan = Mid(CPR, 4, 2)

Perfekt - tak for hjælpen (og en besparelse på 8-9 timers læsning.....)

Velbekomme :-)

Jeg kan forresten se, at du har hjulpet andre omkring problemer med by+postnummer.....jeg fanger bare ikke helt pointen. Kan du med få ord forklare hvordan jeg når jeg i en form taster postnummer i ét felt automatisk får hentet bynavn i "by"-feltet. Jeg har allerede tabellen med postnr+by og kan nemt lave foresp. som henter når jeg beder om prompt på postnummer

Jeg hælder selvfølgelig nogle point efter det hér

Lige et tillægsspm. til det oprindelige: Jeg bruger funktionen med fødselsdag i en forespørgsel med flere tbl. hvor CPR er i begge : Hvor skal jeg angive hvilket CPR-felt der skal læses i ???

Sidstnævnte er "nemt". skriv bare FindFod([Tabelnavn].[CPR]) i stedet.

Det med post/By vender jeg tilbage med lidt senere.

Så får jeg en err.-msg. om at navnet er tvetydigt (når jeg bruger ovenstående)

Du skal skrive navnet på den tabel, hvor feltet skal tages frat kommer fra i den første parentes.

Det gør jeg faktisk min syntax er :

FindFod([t_borgerstamdata].[CPR]), men fejlen kommer alligevel???

Bruger du to cpr-felter i forespørgslen?

Nej dvs. at CPR slet ikke er med i forespørgslen, men eksisterer i begge tabeller

Prøv at tage det med i forespørgslen fra den ene tabel (den rigtige), og undlad evt. at vise feltet.

Mener du, at jeg bare skal tage feltet med -og samtidig lave det fiktive felt "Fødselsdag" ?

Jeps! Men fjern fluebenet i Vis for CPR i gitteret.

Hmmmmmm...... samme fejl, kan jeg evt. maile dig forespørgslen

Helt i orden. Send den til jkr@lyngby.nu

Jeg har modtaget din fil og ser på den lidt senere

Du har lagt funktionen ind i to forskellige moduler, men med samme navn. Både i "Fødselsdag i dag" og i "Fødselsdag i dag Tester". Omdøb eller slet en af funktionerne til at hedde noget andet end FindFod, så kører det.-

Omkring postnummer/by problematikken er der flere måder at løse det på. Hvis du bare skal kunne finde bynavn på grund af postnummer er her en måde:

I et modul (fx samme som du før har brugt) indlægger du følgende kode:

Function FindBy(pn As Long) As String
    FindBy = DLookup("[by]", "t_postnumre", "[postnummer] = " & pn)
End Function

I den formular hvor bynavnet skal findes på grundlag af postnummeret lægger du følgende kode ind i By-tekstboksens kontrolelementkilde =FindBy([Postnummer])

Hvis du så låser Bynavnsfeltet vil bynavnet automatisk blive vist når du indtaster postnummeret, og man kan ikke ved en fejltagelse komme til at overskrive det med noget andet.

Jeg returnerer din database, så kan du se i formularen F_StamdataBorger, hvordan jeg har gjort.

Jeg vil iøvrigt anbefale dig at se på din tabulatorrækkefølge i formularerne :-)

OK jeg har slettet "test modulet", men bliver promptet for t_borgerstamdata.CPR uden at jeg har angivet det som kriterie, koden er som du har beskrevet i FELT og total står til GRUPPÈR EFTER.....

Fjern totalen helt. Den har ingen betydning her. Slet feltet med CPR. Det har du alligevel ikke brug for.

Prøv at se på databasen. Jeg har sendt den tilbage, så den må være på trapperne.

terry> Er du begyndt på danski? :o)

Fik du det hele til at virke?

Nej ikke fødselsdag, når der er de 2 berømte tabeller

Fik du min mail omkring det forkerte tabelnavn?

Ja den fik jeg rettet - jeg har mailet dig et skærmdump af indholdet af "Felt" samt fejlen, men du har ret det må være et krav at kende sine tablenames :-|