Newsgroup: it.comp.appl.access
Titolo: A tutti i "Prof." che frequentano questo NG.

Non crediate che " Prof." sia un appellativo utilizzato ironicamente nei vs.
confronti, sono veramente convinto che molti di voi sono super preparati
sull'utilizzo di Access, VB, e quant'altro ci sia.
Io invece sono un neofita che cerca di imparare da tutti voi, come
migliorare le proprie applicazioni create con Access, e che mi consentono di
gestire meglio la mia piccola attività Artigiana.
Dunque a tutti voi di buona volontà espongo il mio problema.
La mia attività, integra, in parte,  un servizio di manutenzione periodica
(annuale), riferito ad alcune centinaia di clienti.
Ho creato un database di Access per la gestione dei miei Clienti, che ho
provveduto ad automatizzare( dopo centinaia di migliaia di lire spese in
libri e ore di studio prima di incontrare voi ) con alcune semplici
funzioni.
Tra le tante cose ho creato dei report per la stampa dei bollettini postali
di CCP e delle lettere di accompagnamento di detti bollettini, e qui ho
incontrato uno scoglio insuperabile (parlo per me), la conversione di un
campo "TotaleInCifre" nel campo "TotaleInLettere" da stampare sul bollettino
e da savlare nel record riferito a cliente, in modo da tenerne memoria di
anno in anno.
In un primo momento, avevo creato nella tabella Annuale, riferita al
cliente, un campo vuoto, dove scrivevo manualmente il testo corrispondente
all'importo.
Successivamente, avevo notato che, nella casistica della realizzazione dei
lavori di manutenzione sopra citati, gli importi da pagare, per molti
clienti erano uguali, e quindi gli importi che ricorrevano potevano essere
raggruppati in un centinaio di voci.
Vi confesso che, molto semplicisticamente, (applicando forse un metodo del
Paleolitico, e non sapendo nemmeno immaginare di meglio), ho creato una
tabella indicizzata per importo collegandola con un join alla tabella
Clienti dove una query eseguita in una Form riempiva il campo calcolato
"TotaleInCifre" e una funzione DLookUp ricercava il corrispondente valore in
lettere facendolo apparire nel campo "TotaleInLettere", quindi alla
pressione di un pulsante stampavo la lettera o il bollettino, filtrato e
compilato, con i valori ricavati come descritto.
Ora, potete facilmente immaginare quale e quanto grande sia la macchinosità
e l'inadeguatezza di questo sistema, soprattutto quando l'importo risultante
non compare nella tabella Conversione.
Quello che chiedo a voi, a questo punto è:
-volete aiutarmi a risolvere questo problema?, magari con del codice
appropriato che mi permetta di visualizzare (nella maschera),
memorizzare(nella tabella Annuale) e stampare(nel report Bollettino) il
valore in lettere del numero convertito?
Un grazie anticipate, a tutti voi Genii dell'informatica, che leggerete
questo lungo post e vorrete darmi una mano.
P.S. Non mandatemi ( a parte ' a quel paese' ), a visitare il sito comune
per trovare la soluzione, ho già trovato del codice in materia, ma non sò
come fare per adeguarlo alle mie necessità.
Ancora grazie, per l'aiuto e per quanto fate apprendere a tutti noi neofiti
che vi leggiamo.

 ha scritto nel messaggio
news:cu4B5.41916$3R6.8...@news.infostrada.it...

Vai nel Sito Comune, nella Sezione Download ce ne è una del Prof Federico
Luciani intitolata:
"Access 97 - Convertire numeri in testo (12=> Dodici).
--
Roberto
---------------------------------------------
il sito comune di it.comp.appl.access:
http://members.xoom.it/it_db_access/
---------------------------------------------

 come fare per adeguarlo alle mie necessità.
Dovresti apportare delle modifiche al codice.
Se non sei in grado di farlo aggiungi questa funzioncina
Public Function NumToStr(vNum As Variant) As String
    Dim sNV As String
    Dim sCV As String
    EuroCheque vNum, sNV, sCV, 1
    NumToStr = sCV
End Function
poi crea una query sulla tabella in questione ed aggiungi
il campo calcolato:
NumToStr([camponumerico])
-- 
Federico
--------------------------------------
Sito Comune di it.comp.appl.access
http://members.xoom.it/it_db_access
--------------------------------------
Tutte le richieste che mi arrivano
in privato, vengono cestinate.
--------------------------------------
Rimuovi paperino. per e-mail
--------------------------------------