Visualizzare automaticamente spese

[francesco@68]

Salve e buon pomeriggio a tutti.
Il mio problema è questo ho creato un piccolo database per la gestione delle mie giornate lavorative.Ora ho una maschera collegata ad una tabella,dove inserisco tutti i dati.
Es:Nome- Cognome -ore lavorate-destinazione ecc.La maschera funziona perfettamente e anche altre maschere di ricerca funzionano alla meraviglia.Però vorrei evitare di inserire ogni volta nella maschera descritta sopra la trasferta che varia a seconda della località.Es:Località:Napoli-Trasferta:€18,30
località:Roma-Trasferta:€46,48.
Ora lo faccio manualmente,vorrei che questo avvenga in automatico.Cioè all'inserimento della località il cambio nel campo trasferta avvenga in automatico,visto che le trasferte variano e quindi diventa fastidioso inserirle manualmente.Ringrazio anticipatamente.

[nicola75ss]

Stiamo parlando di access immagino.

Se è così prova a dare uno sguardo a questo file che ti ho caricato

http://myfreefilehosting.com/f/be82f4eaa8_0.21MB

[francesco@68]

Originariamente inviato da nicola75ss
Stiamo parlando di access immagino.

Se è così prova a dare uno sguardo a questo file che ti ho caricato

http://myfreefilehosting.com/f/be82f4eaa8_0.21MB

Si scusa stiamo parlando di Access 2003.Si in effetti è questo quello che volevo,ma non riesco a capire come far cambiare il costo,ho fatto la modifica nella tabella da me chiamata "destinazione" aggiungendo il "costo" ma nel campo non mi si cambia.

[nicola75ss]

Se guardi il mio file troverai questo codice

Private Sub Form_Current()
Me![costo] = DLookup("costo", "trasferte", "trasferta ='" & Me![trasferta] & "'")
End Sub

Private Sub trasferta_AfterUpdate()
Me![costo] = DLookup("costo", "trasferte", "trasferta ='" & Me![trasferta] & "'")
End Sub

ovviamente devi modificare i nomi dei campi e delle tabelle a quelle che hai tu.

[francesco@68]

Originariamente inviato da nicola75ss
Se guardi il mio file troverai questo codice

Private Sub Form_Current()
Me![costo] = DLookup("costo", "trasferte", "trasferta ='" & Me![trasferta] & "'")
End Sub

Private Sub trasferta_AfterUpdate()
Me![costo] = DLookup("costo", "trasferte", "trasferta ='" & Me![trasferta] & "'")
End Sub

ovviamente devi modificare i nomi dei campi e delle tabelle a quelle che hai tu.

Ok ora ci lavoro un pò poi ti faccio sapere,caso mai ti posso caricare il file se non ci riesco?
Devo fare un attimo un lavoro ad un amico, ci sentiamo dopo e Grazie

[nicola75ss]

Volentieri ma adesso sto uscendo. Se ne riparla domani.

[francesco@68]

Originariamente inviato da nicola75ss
Volentieri ma adesso sto uscendo. Se ne riparla domani.

Ok va bene a domani ti faccio sapere.Ciao

[francesco@68]

Originariamente inviato da francesco@68
Ok va bene a domani ti faccio sapere.Ciao

Buona giornata,poi ieri sono riuscito nell'impresa e ti ringrazio :
ora però il problema mi nasce nel report legato a quella maschera.
Prima avevo due campi nella maschera,il primo per trasferte a €18,30 e il secondo per trasferte a €36,00-46,00 ecc.che immettevo manualmente,e quindi nel report mi venivano conteggiati separatamente.Ora avendo un solo campo che ovviamente grazie a te cambia in automatico,nel report mi viene conteggiato tutto sotto un unica voce,quindi non riesco più a distinguere le trasferte.Spero in un aiuto

[nicola75ss]

Non ci ho capito granchè.
Mi verrebbe più comodo se caricassi l'mdb.

[francesco@68]

Originariamente inviato da nicola75ss
Non ci ho capito granchè.
Mi verrebbe più comodo se caricassi l'mdb.

Eccoti il link http://www.savefile.com/files/1834528
Scusa per il ritardo ma ora sono arrivato.Logicamente aprilo con il tasto "shift".Fammi sapere e grazie Ciao