Query complicata di Access sulle date

[Carmybg]

Ciao a tutti,
devo fare una query complicata (almeno per me che non ho molti rudimenti in materia): avendo la data di nascita di molte persone voglio sapere chi di queste ha un età sopra i 65 anni. Non riesco proprio a capire come si fa! Mi sapete aiutare? Grazie mille per la pazienza

[nicola75ss]

Originariamente inviato da Carmybg
Ciao a tutti,
devo fare una query complicata (almeno per me che non ho molti rudimenti in materia): avendo la data di nascita di molte persone voglio sapere chi di queste ha un età sopra i 65 anni. Non riesco proprio a capire come si fa! Mi sapete aiutare? Grazie mille per la pazienza

Inserisci questa funzione in un modulo

Function Age(varBirthDate As Variant) As Integer
Dim varAge As Variant

If IsNull(varBirthDate) Then Age = 0: Exit Function

varAge = DateDiff("yyyy", varBirthDate, Now)
If Date < DateSerial(Year(Now), Month(varBirthDate), Day(varBirthDate)) Then
varAge = varAge - 1
End If
Age = CInt(varAge)
End Function

quando vai a fare la query la richiami così (in pratica aggiungi un campo calcolato o tramite sql o direttamente dalla griglia, come preferisci):

age(campo_data_nascita)

a questo punto devi solo impostare il criterio (> 63 o quello che vuoi).

[Carmybg]

Grazie!ho fatto tutto quello che hai detto, poi ho aperto la query in visualizzazione struttura, ho inserito tutto ma la query non va perché mi dice che "Funzione age non definita nell'espressione"...boh!Forse ho sbagliato qualcosa io?

[nicola75ss]

Originariamente inviato da Carmybg
Grazie!ho fatto tutto quello che hai detto, poi ho aperto la query in visualizzazione struttura, ho inserito tutto ma la query non va perché mi dice che "Funzione age non definita nell'espressione"...boh!Forse ho sbagliato qualcosa io?

Hai salvato il modulo dopo che l'hai copiato?
Clicca nella scheda modulo e vedi se c'è.

[Carmybg]

C'è!l'ho chiamato age

[Carmybg]

Forse la modalità struttura non accetta moduli che posso creare?

[Misterxxx]

Hai chiamato il modulo col nome della funzione .... rinomina il modulo con nome a piacere !!!!

ps = with compliments to nicola75ss !!!!!!!!!!!!!! Vai alla grande !!!!

[Carmybg]

FUNZIONA ALLA GRANDE!!!!!!
Grazie mille, siete fantastici.

[Misterxxx]

Originariamente inviato da Carmybg
FUNZIONA ALLA GRANDE!!!!!!
Grazie mille, siete fantastici.

[nicola75ss]

Originariamente inviato da Misterxxx
ps = with compliments to nicola75ss !!!!!!!!!!!!!! Vai alla grande !!!!

grazie mister.