Newsgroup: it.comp.appl.access
Titolo: Calcolo dell'età.

Un saluto cordiale a tutto il NG.
Ho un problema da risolvere il più presto possibile.
Come faccio ad ottenere in maniera automatica l'età di un paziente quando
nella Form relativa immetto la data di nascita?
Non ricordo sinceramente se c'è qualcosa del genere sul Sito comune.
Grazie
Saluti
Rita.

 nella Form relativa immetto la data di nascita?
Con una certa approssimazione basterebbe fare
year(date) - year(data_inserita)
per darti l'età millesimale...
Antonio

 ha scritto nel messaggio
news:vUD_7.23036$SE3.7...@twister1.libero.it...

Per Antonio Biso.
Dispettosooooo!! Roberto è stato il primo....ed il primo.......del NG non si
scorda mai!!! Ehehehe
Grazie mille Antonio
prima o poi ti conoscerò...eheheh
Ciao
Rita

 prima o poi ti conoscerò...eheheh
A tua disposizione mon amour...
Antonio

 Non ricordo sinceramente se c'è qualcosa del genere sul Sito comune.
Per più che una certa approssimazione:
DatDiff("aaaa";[data_inserita];Date())+
(Format(Date();"mmgg")<Format([data_inserita];"mmgg"))
--
HTH
Karl
*********
Access-FAQ (tedesco): 
http://www.donkarl.com

 ha scritto nel messaggio
news:a1fsno$q5khh$1...@ID-46617.news.dfncis.de...

Grazie anche a te per l'aiuto, Karl.
Saluti
Rita.

 wrote in message
PnU_7.397$cU4....@twister1.libero.it...

Hheehehehhe
A te non ti vuole conoscere Karl, a me sì...
Eh eh eh
Antonio

 ha scritto nel messaggio
news:QBY_7.1269$cU4....@twister1.libero.it...

Antonio...
Ci credo solo se me lo dice Karl in persona...ehehehehe
Ciao
Rita

 wrote in message
JFY_7.1281$cU4....@twister1.libero.it...

Non hai capito: sei tu che non lo vuoi conoscere, visto che a lui non l'hai
detto...
Antonio

 ha scritto nel messaggio
news:9fZ_7.1407$cU4....@twister1.libero.it...

Chi ha detto che io non voglia conoscere Karl?
Sono ben lieta. Non mi tiro certo indietro...ehehehe
Ciao Antonio

 Sono ben lieta. Non mi tiro certo indietro...ehehehe
Va beh... tanto io non sono geloso su queste cose...
Antonio

 ha scritto nel messaggio
news:a1fsno$q5khh$1...@ID-46617.news.dfncis.de...

Ciao Karl, scusami ma devo chiederti ancora delle delucidazioni.
Il campo 'età' che dovrebbe contenere l'età in automatico si trova in una
sottomaschera. Dove devo inserire il codice che mi hai scritto? La data di
nascita si trova nella Form che contiene la sottomaschera ed è ottenuta con
la formula Dlookup.
Grazie ancora.
Rita

 la formula Dlookup.
Questo che ho scritto non è codice ma un espressione per usare in
un campo calcolato p.e. in una query o un form. Normalmente non si
salva l'età ma calcolala (beh, il mio italiano...). Se basta calcolare puoi
scrivere come Controlsource del'elemento:
=DateDiff("aaaa";parent![data_inserita];Date())+
(Format(Date();"mmgg")<Format(parent![data_inserita];"mmgg"))
Invece per anche salvare l'èta puoi usare l'evento AfterUpdate del
elemento dove inseri la data e scrivere codice come:
Me!NomeDelControlloCheContieneLaSottomaschera!eta = _
DateDiff("yyyy", Me![data_inserita], Date())+ _
(Format(Date(), "mmdd")<Format([data_inserita], "mmdd"))


 ha scritto nel messaggio
news:a1pe25$s3vhl$1...@ID-46617.news.dfncis.de...

Ciao Karl scusami, ma come vedi ho bisogno ancora di te perchè non capisco
dove sbaglio! A me interessa salvare il valore del campo età.
Ho cmq fatto tutti i tentativi anche per capire.
Mi succede questo:
1) Ho inserito nella query un campo calcolato con la prima espressione che
mi hai inviato. Ho poi inserito il campo calcolato nella maschera e quando
vado ad esguire il tutto, mi viene sempre fuori il valore 102, non so
perchè.
La data di nascita è ad es. 31/12/63 o 98, il  campo calcolato tira fuori il
numero 102.
2) Ho inserito la seconda espressione nell' Origine Controllo del campo età
(casella di  testo) . Mi dà errore.
3) Ho inserito nell'evento AfterUpdate del campo età il codice scritto da
te, ma non succede nulla, anzi dove c'è scritto Date() elimina le parentesi
tonde! Non riesce a mentenerle.
Sicuramente sbaglio io qualcosa, ma non riesco a venirne fuori.
Grazie ancora
Rita

 tonde! Non riesce a mentenerle.
Parliamo di:
Me!NomeDelControlloCheContieneLaSottomaschera!eta = _
DateDiff("yyyy", Me![data_inserita], Date())+ _
(Format(Date(), "mmdd")<Format([data_inserita], "mmdd"))
Vuol dire "Date()" e "Date" e la stessa cosa per VBA.
Eliminare le parentesi va bene e non fa nulla.
Certo debbi sostituire
"NomeDelControlloCheContieneLaSottomaschera", "eta" e
[data_inserita] con le nome dei tuoi controlli.
Come si chiamano questi controlli?
Poi debbi veramente inserire una data. Altrimenti l'evento
DopoAggiornamento non succede.


 parentesi tonde! Non riesce a mentenerle.
Parliamo di
Me!NomeDelControlloCheContieneLaSottomaschera!eta = _
DateDiff("yyyy", Me![data_inserita], Date())+ _
(Format(Date(), "mmdd")<Format([data_inserita], "mmdd"))
Vuol dire "Date()" e "Date" e la stessa cosa per VBA.
Eliminare le parentesi va bene e non fa nulla.
Certo debbi sostituire
"NomeDelControlloCheContieneLaSottomaschera", "eta" e
[data_inserita] con i nomi dei tuoi controlli.
Come si chiamano questi controlli?
Poi debbi veramente inserire una data. Altrimenti l'evento
DopoAggiornamento del controllo non succede.
Forse aiuta citare il tuo sub qui nel newsgroup.


 ha scritto nel messaggio
news:a1q7i0$scvi6$1...@ID-46617.news.dfncis.de...

Ciao Karl, quando ti ho scritto avevo già fatto quello che mi hai detto di
fare.
Cmq ricontrollo il tutto.
Scusa la domanda, ma cosa vuoi dire con 'sub'?
Grazie mille.
Rita.

 Scusa la domanda, ma cosa vuoi dire con 'sub'?
SuBBacqueria..
Su RAieducational Channel
Antonio

 ha scritto nel messaggio
news:Twx08.23356$aD.8...@twister2.libero.it...

Ciao Antonio, ma che è SuBBacqueria? Vuoi scherzare?
Continuo a non capire o sono 'rintronata'? Mi spiegate che significa?????
Accidenti l'età che avanza.....
Ciao
Rita (sigh..)

 wrote in message
KRD08.25556$cU4.8...@twister1.libero.it...

Non vedevi l'ottavo nano?!?
Ahi ah iahi...
Comunque la sub è una procedura di codice, che si differenzia dalla function
in quanto non restituisce valori...
Antonio

 ha scritto nel messaggio
news:TrS08.29272$cU4.9...@twister1.libero.it...

Grazie Antonio, ok ora ho capito, sì conosco Procedure Sub ....End Sub.
Non avevo afferrato.
E' un periodo un pò critico...eheheheh, ho troppe rogne di lavoro e mi sento
'ingrippata', un pò è anche l'età!!!!
Ciao
Rita

 'ingrippata', un pò è anche l'età!!!!
Io conosco una tecnica di massaggi cinesi che ti potrebbero "sgrippare"...
Che ne dici della proposta?
Antonio

 ha scritto nel messaggio
news:lhW08.29322$aD.10...@twister2.libero.it...

Ti ringrazio Antonio, sto pensando alla tua proposta......sai ci sono anche
corsi di meditazione corporea....chissà che non  ci si 'sgrippa'
definitivamente...
Eheheheh
Ciao Rita.

 wrote in message
GzY08.30806$cU4.1...@twister1.libero.it...

Hmmm... deve essere interessante sgripparci a vicenda...
Antonio

 Che ne dici della proposta?
Anch'io mi sento tutto ingrippato.
Grazie, telefonami in ufficio per decidere dove e quando.

 Hmmm... deve essere interessante sgripparci a vicenda...
Spero che massaggi meglio di come quoti...


Ragazzi buona sgrippata!
Ciao
Rita