Newsgroup: it.comp.appl.access
Titolo: Convertire in Euro.

Salve a tutto il Ng, sono nuovo ed ho un piccolo problema:
in un database x gestione immobiliare,  dove sono elencati gli appartamenti
con tutti i dati, digitando il prezzo in lire, vorrei avere automaticamente
convertito detto prezzo, in euro, nel campo successivo.
Sarò mai possibile?
Grazie .

 E' possibile e anche con poca fatica, basta che nel codice sull'evento
dopo aggiornamento si scrivi il seguente codice:
ammesso che testo0 sia la textbox in cui inserisci l'importo in lire e
testo2 sia la textbox in vui visualizzare il corrispettivo in eruor scrivi:
Private Sub Testo0_LostFocus()
If Nz(Testo0, "") = vbNullString Then
    Exit Sub
Else
    Testo2 = Val(Testo0) / 1936.27
End If
End Sub
Il gioco è fatto e sei euroconvertito. Se vuoi una precisione alle sole due
prime cifre decimali è sufficiente impostare la textbox testo2 e cioè click
con tasto destro sulla textbox, poi proprietà poi formato dato numero
generico e arrotondamento metti 2 cifre.
In bocca al lupo e ciao da Sittinghorse

 DImenticavo se il problema diventa poi convertire una sequenza di dati già
inputati basta crearsi una semplice query di aggiornamento tabella  e
crearsi un campo calcolato. Se hai problemi fai sapere.
Ciao


Grazie x le info, ho fatto come dicevi tu:
nel campo del prezzo in lire, tasto destro, proprietà, evento, dopo
aggiornamento, routine evento, aggiungo il tuo codice adattato al mio DB,
(Testo0 = prezzo), (Testo2 = Testo86), anche se nella tabella a cui fanno
capo sono ripettivamente (pr) e (preu), xchè?
Ritornando a noi, mi esce questo:
Private Sub prezzo_AfterUpdate()
Private Sub prezzo_LostFocus()
If Nz(prezzo, "") = vbNullString Then
    Exit Sub
Else
   Testo86 = Val(prezzo) / 1936.27
End If
End Sub
End Sub
Mi dirai che la prima e l'ultima riga non vanno bene, lo so, dammi qualche
info, grazie x la pazienza.

"{{{[[[1967[[[}}}" <a...@aa.aa> ha scritto nel messaggio
news:0i9N7.195147$sq5.9...@news.infostrada.it...

Quel pasticcio ti viene fuori poichè hai di fatto inserito una routine
evento all'interno di un'altra routine evento. Mi spiego meglio: esistono
due modi per inserire del codice o usi il tasto destro e nella tab eventi
fai click sull'evento e inseririsci codice, espressioni o macro oppure
quando sei in visualizzazione struttura della maschera fai click nel menù in
alto visualizza e poi codice. Ti compare il modulo di classe della maschera
in cui potrai inserire tutto il codice che vuoi. In alto, in questa nuova
maschera, trovi due caselle quella a sinistra elenca gli oggetti e quella a
destra gli eventi che dall'oggetto di sinistra sono supportati.
Ora questa è un po' la base della programmazione visuale a oggetti in cui
ogni classe di oggetti detiene delle proprietà e dei metodi che si attivano
in base a un evento. E di questo passo si potrebbe approfondire il discorso
ma per tornare a noi e spiegarti il problema ti è accaduto ciò quando tu hai
selezionato nella tab dopo aggiornamento, lui nel modulo ha creato la sub
casella di testo dopo aggiornamento poi tu di fatto inserendo il codice che
ti ho passato hai inserito un'altra sub all'interno di quella che lui ha
creato questo ti genera l'errore quindi per risolvere apri la maschera in
visualizzazione struttura, poi visualizza codice ti cerchi la tua sub e
cancelli la prima e l'ultima riga lasciando così intatto il resto.
IN SOSTANZA TI DOVRA' RIMANERE, RISPETTO A QUANTO MI HAI INVIATO, CIO' CHE
QUI DI SEGUITO RICOPIO:
Private Sub prezzo_LostFocus()
If Nz(prezzo, "") = vbNullString Then
    Exit Sub
Else
   Testo86 = Val(prezzo) / 1936.27
End If
End Sub
Spero di esserti stato utile, ciao e in bocca al lupo da sittinghorse.
Spero anche che le due righe di spiegazione vengano apprezzate come
spassionata informazione e non ti offendano mi è parso che non sei molto
esperto nell'uso di codice Visual Basic. Ciao e buon divertimento


Non mi č parso di scorgere affermazioni offensive nei tuoi msg, anzi.
Per quanto riguarda la conoscenza del VBA, hai ragione, non lo conosco molto
ho letto qualcosa su alcuni libri tipo (Microsoft Access 2000 Visual Basic
for Applications Nozioni di Base - Mondadori Informatica) e anche (Access 97
for Dummies), comprato e mai letto (i segreti di Visual Basic 6 - Apogeo -).
Vorrei conoscerlo a fondo, anche perché ho la passione dei Data Base, ma
sicuramente sbaglio approccio, o documentazione cartacea.
Ti saluto e ti ringrazio per tutto, mi hai tolto da un grosso impiccio, che
da solo non sarei riuscito a risolvere.