Newsgroup: it.comp.appl.access
Titolo: Importo in lettere su report

Dovrei aggiungere  a un report che ha solo una casella chiamata
"importo" il cui valore deriva da una query, l'importo in lettere (tipo
assegno).
Da bravo utente del ng, sono andato sul sitocomune e ho scaricato
l'esempio "Convertire numeri in testo" di F.Luciani.
L'esempio viene applicato ad una maschera che carica il modulo in
entrata (su caricamento) mentre nel mio caso dovrei semplicemente
chiamare la routine ("eurocheque ?") passargli il valore del campo
importo e pubblicare l'output della routine nella nuova casella di testo
chiamata "diconsi".
Domande:
1) come faccio a dire al report (richiamato da un pulsante di una
maschera e che ha come origine dati una query) di caricare il modulo
"modCurrency2String" ?
2)come faccio a passargli il  valore ?
3) come faccio a recuperare il valore letterale ?
Mi guidereste passo passo ?
Lo so, sono domande stupide, ma da autodidatta non so che pesci pigliare
!
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 ha scritto nel messaggio
news:f4a38053d6e77385d56...@mygate.mailgate.org...

Cotruisciti una funzione in un modulo che richiama la EuroCheque; la
funzione riceverà in input il valore numerico e restituirà il valore
alfanumerico. La funzione la puoi inserire direttamente nei controlli del
report (come origine dati) o nella query (se esiste) del report creandoti
dei campi calcolati.
Es.
'-------------
Function daNumeroAtesto(importo As Double, Optional testolingua As Byte = 1)
As String
Dim sNumberValue As String, sCaseValue As String, txtValore as String
EuroCheque importo, sNumberValue, txtValore, testolingua
testoGrammi = txtValtxtValore
End Function
'-------------
Ciao.
--
Sergio MAZZA

 Sergio MAZZA
Abbi pazienza....
Ho costruito la seg. funzione (copiando la tua) inserendola in "Modulo1"
Function daNumeroAtesto(IMPORTO As Double, Optional testolingua As Byte
= 1) As String
Dim sNumberValue As String, sCaseValue As String, txtValore As String,
Testoeuro As String
EuroCheque IMPORTO, sNumberValue, txtValore, testolingua
Testoeuro = txtValore
End Function
 
Ora ho la mia casella di testo sul report chiamata "Diconsi" :
vorrei inserire nei controlli come origine dati, (se ho capito bene)
"testoeuro" : ho provato varie strade ma mi da' sempre errore o mi apre
la
mascherina per farmi digitare un valore per "testoeuro".
Come dovevo fare ?
grazie



Mandarmi a quel paese...
Ho dimenticato di modificare la penultima riga della funzione (testoGrammi =
txtValtxtValore); il codice giusto è:
'-------------
Function daNumeroAtesto(importo As Double, Optional testolingua As Byte = 1)
As String
Dim sNumberValue As String, txtValore as String
EuroCheque importo, sNumberValue, txtValore, testolingua
daNumeroAtesto = txtValtxtValore
End Function
'-------------
Quindi l'origine dati della casella di testo "Diconsi" diventa:
'-----------
= daNumeroAtesto([Importo])
'-----------
Controlla anche che [importo] contenga sempre valori numerici, magari
utilizzando la funzione nz() (vedi help):
'-----------
= daNumeroAtesto(Nz([Importo];0))
'-----------
Ciao.
--
Sergio MAZZA

Ti ringrazio molto, funziona alla perfezione !
Grazie


 ha scritto nel messaggio
news:663cf3c5115743a5346...@mygate.mailgate.org...

Mi potete spiegare i vari passaggi...piu' dettaglitamente anche io ho
l'esigenza di convertire in report numero > lettere
[Importo] >>>>> [Importo lettere]
ma il modulo da Voi costruito non e' accettato dal
mio a97 mi da' errore si txtvaltxtvalore!!!!
Grazie