Newsgroup: it.comp.appl.access
Titolo: Euròlogo

Chi mi sa dire se è possibile, con 4 righe di codice, cambiare quella
"schifezza" ("L. "#.##0;"-L. "#.##0) che Access97 mette dentro nel formato
dei campi delle maschere che prima del cambiamento della valuta in euro nel
pannello di controllo di uindovs erano dei campi di maschera di
formato"valutaaa"?!?!?
ps: in tutte le maschere in una botta sola, ovvio!
Ciao grazie e.....
...Buon Anno
MadMin

 formato"valutaaa"?!?!?
Perche' schifezza? cos'ha che non ti piace?
Usa il copia/incolla, tanto lo devi fare una volta sola.
Altrimenti ti serve non poco codice.
Sib
--
----------------------------------------------------
la mia home:
http://digilander.iol.it/syb
----------------------------------------------------
il sito comune di it.comp.database.access:
http://www.sitocomune.com
----------------------------------------------------
4000 anni fa', il saggio egizio Ptahhotep scrisse:
"... perche' non esistono saggi per nascita."
------------------------------------------------------
Saturiamo ECHELON:
bin laden saddam attentato medio oriente

 > Chi mi sa dire se č possibile, con 4 righe di codice, cambiare quella

ciao Sib (illo?)
Il fatto č che se achsess naintiseven non metteva quella "schifezza" lě
io stavo a posto colla conversione euro. Se restava il formato "Valuta"..
ioooo.. non avrei dovuto fare piu nulla.
Maaaa... torniamo alla schifezza , visto che ci sta(ma non si puo evitare
che cambi dopo il passaggio di uindovs all'euro?).
Se achsess mi avesse lasciato intatto il formato del campo,io avrei avuto il
simbolo "?" al posto della "L" e a me restava solo da dividere i campi
(ehmm... per lo piu di tipo numerico double) nelle tabelle per 1936.27. E
invece NO!!!
Invece c'č la "schifezza" ------------------> ("L. "#.##0;"-L. "#.##0)
AAAAAAAAAAAARRRRRRRRRGGGGGGGGGGGHHHHHHHHHHHHHHHHHHHHHHHHHHHH!!!
Io ci ho provato a scrivere 4 righe ( 8 a dire il  vero) ma:
1) se utilizzo l'insieme Forms sono costretto ad aprirle tutte.
2) se utilizzo l'insieme Container alla fine si scopre (come ho scoperto..
quasi alla fine) che l'insieme .Documents di tipo Form non mi fa "vedere" i
campi della Form.....
............
.....................
DOPPIO AAAAAAAAAAAARRRRRRRRRGGGGGGGGGGGHHHHHHHHHHHHHHHHHHHHHHHHHHHH!!!
Che fare?!?!?!?!
Grazie e...
...ghud iear Sib
ps: tieni presente che ho moltissime form nelle applicazioni e non mi va di
passarmele tutte ad una ad una

 1) se utilizzo l'insieme Forms sono costretto ad aprirle tutte.
Che importa, le apri e poi le chiudi (da codice si intende, mica a mano.
Ciao


"MoltenEye" <a...@a.aa> ha scritto nel messaggio
news:4M5Y7.1246$Xj.6...@news2.tin.it...

Io ho utilizzato questa funzione che ho posto nell'evento open
delle maschere e report.
utilizzandola cosi':    call VediCampiValuta(me)
mi risulta veloce e pratica.
Questa cosa mia ha davvero fatto crepare
quando l'ho scoperta, ma che gli costava lasciare intatto il formato
Currency ed analizzarlo a runtime agli sviluppatori di access ????
Public Function VediCampiValuta(obj As Object)
Dim I As Long
Dim Formato As String
    On Error Resume Next
    For I = 0 To obj.Controls.count - 1
        Select Case obj.Controls(I).ControlType
        Case 109, 111:
            Formato = obj.Controls(I).Format
            If Formato Like "*€*" Or Formato Like "*L.*" Or Formato Like
"*#.##0,00;*" Then
                obj.Controls(I).Format = "Currency"
            End If
        End Select
    Next I
End Function
Bye :o)