Ms Access: How to extract Age Group Range Statistic

[@Sarahbalios]

ayayy wa jud mahina tlga ako sa ganito kaya fullwatched lang ako dito kahit d ko gets hehehe

[@Nurjima]

Wow very useful galing nmn

[@Jennyschannel]

Ang galing mo sa computer sir... Dagdag kaalaman.

[@sumirekawaii37]

Omg amazing medyo nagets ko ngayon tong vlog mo lodi..

[@KamayoAko]

thank you for visiting...

[@MiracleMARILAGdelaCruz]

Very useful - tnx for the techniques

[@thewolfofbitcoin6175]

nice!!!

[@tutsecret499]

Thank you. But I also I need to display the column Age and keep visible besides the Age group column. I know how to display the Age colunm but how to add the Age Group, next to Age column.

[@KamayoAko]

Yes, you are right add new module and copy paste below code and call this code in your query field along with BirthDate.... Public Function AgeGroup(dtmBirthDate As Date) As String Dim intAge As Integer 'Age Calculation intAge = DateDiff("yyyy", [dtmBirthDate], Now()) + _ Int(Format(Now(), "mmdd") < Format([dtmBirthDate], "mmdd")) 'ORIG 'Int(Format(Now(), "mmdd") > Format([dtmBirthDate], "mmdd")) 'intAge = DateDiff("yyyy", dtmBirthDate, Now) ' If Date < DateSerial(Year(Now), Month(dtmBirthDate), _ ' Day(dtmBirthDate)) Then Select Case intAge 'For each Age range, write out Age Group (used in qry) Case 0 To 5 AgeGroup = "1. Children 0 - 5 years old" Case 6 To 12 AgeGroup = "2. Children 6 - 12 years old" Case 13 To 17 AgeGroup = "3. Children 13 - 17 years old" Case 18 To 35 AgeGroup = "4. Children 18 - 35 years old" Case 36 To 50 AgeGroup = "5. Adult 36 - 50 years old" Case 51 To 65 AgeGroup = "6. Adult 51- 65 years old" Case Is >= 66 AgeGroup = "7. Adult 66 years old & Above" End Select End Function