Beregn alder

Der var en lille fejl

Udtryk1 Alderberegning([Fødselsdag])

Udtryk1: Alderberegning([Fødselsdag])


Notice the : and [

You can also change Udtryk1 to

Alder:Alderberegning([Fødselsdag])

Har gjort som du skrev prøvet begge.

Får en fejlmelding

Der er en ikke-defineret funtion "Alderberegning" i udtrykket

any chance of seeing the dB?

ekspertenATsanthell.dk
AT = @

you have saved the module with the function in?

Sender den til dig

Problem isnt obvious but try renaming the module from Alderberegning to ModAlderberegning. Access isnt happy that the module and function have the same name :o)

Det virker, kan det laves så jeg kan se alder i formularen Personoplysning ??

Yes.
You could put a label on the form and on the forms On Current event make some code to set the labels caption

Me.NameOfLabel.Caption = Alderberegning([Fødselsdag])

Something I noticed.

You need to alter the SQL in the record source for the form so that th erelated tables are JOINed with an OUTER JOIN. Otherwise youwont see anything until data also exists in the related tables.



SELECT PERSONOPLYSNING.Medarbejder_id, TITEL.Vognnr, TITEL.Vogn_Nr, PERSONOPLYSNING.Fornavn, PERSONOPLYSNING.Efternavn, PERSONOPLYSNING.Adresse, PERSONOPLYSNING.Husnummer, PERSONOPLYSNING.Postnr, postnr.By, TITEL.Vognmand, TITEL.Chauffør, TITEL.Afløser, PERSONOPLYSNING.Telefon, PERSONOPLYSNING.Email, PERSONOPLYSNING.Fødselsdag, PERSONOPLYSNING.Bank, PERSONOPLYSNING.Reg_Nr, PERSONOPLYSNING.Konto_Nr, PERSONOPLYSNING.Noter, KURSER.Førstehjælp, KURSER.Førstehjælp_Udløber, KURSER.Kvalifikationsbevis, KURSER.Vognmandskursus, KURSER.Førerkort, KURSER.Apv, KURSER.Chaufførkontrak, KURSER.Kørekortnr, KURSER.Kørekort_Udløber, TITEL.Medarbejder_id AS Medarbejder_id_TITEL, KURSER.Medarbejder_id AS Medarbejder_id_KURSER
FROM ((postnr RIGHT JOIN PERSONOPLYSNING ON postnr.Postnr = PERSONOPLYSNING.Postnr) LEFT JOIN KURSER ON PERSONOPLYSNING.Medarbejder_id = KURSER.Medarbejder_id) LEFT JOIN TITEL ON PERSONOPLYSNING.Medarbejder_id = TITEL.Medarbejder_id;

Kan du lave det i min Db og så sende den retur, jeg lærer bedre ved at se det du har lavet.

Udtryk1: Year(Date())-Year([fødselsdag])
 
Tager året fra datoen i dag, og trækker året fra datoen som du har i kollonnen fødselsdag..

men hvis du skal have dit modul til at blive kaldt skal du lave en funktion som kalder dit modul.. da (som jeg forstår det) funktionen du har lavet ligger i modulet..
Hvordan man lige kalder funktionen fra en forespørgsel ved jeg desværre ikke.. men ovennævnte virker i en forespørgsel..

For mange år siden brugte jeg denne foresørgsel - aldersfordeling ud fra cprnr.

SELECT DISTINCTROW Int((Now()-DateValue(Mid([LØNFIL].[Cprnr],1,2) & "-" & Mid([LØNFIL].[Cprnr],3,2) & "-19" & Mid([LØNFIL].[Cprnr],5,2)))/365.25) AS ALDER, Count(Int((Now()-DateValue(Mid([LØNFIL].[Cprnr],1,2) & "-" & Mid([LØNFIL].[Cprnr],3,2) & "-19" & Mid([LØNFIL].[Cprnr],5,2)))/365.25)) AS Antal
FROM LØNFIL LEFT JOIN KONTORADR ON LØNFIL.Kontor = KONTORADR.Kontornr
WHERE (((LØNFIL.Titel)<>"vikar"))
GROUP BY Int((Now()-DateValue(Mid([LØNFIL].[Cprnr],1,2) & "-" & Mid([LØNFIL].[Cprnr],3,2) & "-19" & Mid([LØNFIL].[Cprnr],5,2)))/365.25)
HAVING (((Int((Now()-DateValue(Mid([LØNFIL].[Cprnr],1,2) & "-" & Mid([LØNFIL].[Cprnr],3,2) & "-19" & Mid([LØNFIL].[Cprnr],5,2)))/365.25))>=20 And (Int((Now()-DateValue(Mid([LØNFIL].[Cprnr],1,2) & "-" & Mid([LØNFIL].[Cprnr],3,2) & "-19" & Mid([LØNFIL].[Cprnr],5,2)))/365.25))<=65))
ORDER BY Int((Now()-DateValue(Mid([LØNFIL].[Cprnr],1,2) & "-" & Mid([LØNFIL].[Cprnr],3,2) & "-19" & Mid([LØNFIL].[Cprnr],5,2)))/365.25);