Calcolo dei campi automatico in Access

[natasha]

Buongiorno a tutti,
ho creato una semplice tabella Access coi tre campi "Data", "AnniScadenza" e "DataScadenza". Vorrei che, dopo aver inserito la data in "Data" e gli anni di scadenza in "AnniScadenza", in "DataScadenza" comparisse in automatico la data di "Data", aumentata del numero di anni inseriti in "AnniScadenza". E' possibile? Come fare?
Kisses,

Nat

[fabio309]

Prova questa funzione:
Day([Data]) & "/" & Month([Data]) & "/" & Year([Data])+ Year([AnniScadenza])

questa la uso in una query, comunque dovrebbe essere semplice trasferirla anche su codice

Ciao

[natasha]

eh eh eh ho trovato io un metodo più semplice...
Costruisco una maschera per la Tabella poi in visualizzazione Struttura, vado nelle Proprietà del campo DataScadenza e come "Origine controllo" metto

=[Data]+[AnniScadenza]*365

E' possibile, naturalmente, complicare a piacere la funzione per tenere conto degli anni bisestili....
Ciao e grazie!
Kisses,

Nat

[fabio309]

Avendo lavorato parecchio con access ti consiglio di aggiornare il campo sull'evento afterupdate sia del controllo che ha come origine Data si adi quello che ha come origine AnniScadenza

ciao :bubu:

[natasha]

ho provato anche questo, ma l'aggiornamento non funziona!!

[fabio309]

Perchè la tua funzione
=[Data]+[AnniScadenza]*365
lavora bene in maschera ma poi sulla tabella non hai il valore aggiornato
Se è così dipende dal fatto che il controllo a cui assegni il valore non è collegato con il relativo campo della tabella.

Dico bene?

[natasha]

sì, dici proprio bene...

[fabio309]

Quando mi capita una situazione simile ricorre a questo metodo:
inserisco una casella di testo(dtaDataScadenza) direttamente collegata al campo DataScadenza in genere imposta la proprietà

dtaDataScadenza.visible=False

perchè non mi interessa vedere il valore aggiornato, e per evitare che qualcuno ci intervenga direttamente facendo confusione.

inserisco una casella di testo (dtaData) collegata al campo Data e un'altra (txtAnniScadenza) collegata al campo AnniScadenza

sull'evento afterupdate dei controlli dtaData e txtAnniScadenza metti del codice tipo:
if isnull(dtaData) or isnull(txtAnniScadenza) then exit sub
if txtAnniScadenza>cstMaxScadenza then exit sub
'controlli a dis...piacere
dtaDataScadenza=Day([dtaData]) & "/" & Month([dtaData]) & "/" & Year([dtaData])+ Year([txtAnniScadenza])

me.requery

spero di esserti stato utile

Ciao ciao