Newsgroup: it.comp.appl.access
Titolo: UCASE per tutta la maschera

ho creato una maschera associata ad una tabella,
Vorrei che tutti i controlli campi e conseguentemente tutti i campi della
tabella vengano memorizzati in MAIUSCOLO anche se si scrivono minuscolo
come posso fare?
è possibile farlo per tutta la tabella/maschera con un solo codice o devo
inserire il codice ad ogni controllo?
grazie
luigi
ps. sarebbe cosa gradita anche sapere il codice da mettere :-))
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it


Ciao
le strade possone essere molte:
per esempio su deselezionato del controllo:
Private Sub TuoNomeControllo_LostFocus()
Me.TuoNomeControllo = UCase(Me.TuoNomeControllo)
End Sub
Si può usare una query di aggiornamento per tutta la tabella con la stessa 
sintassi (TuoCampo = UCase([NomeCampo])).
Ci possono essere anche altre strade via codice...magari prima di salvare il 
recordset.
Ciao, Carlo

 ha scritto nel messaggio 
news:f4it2r$sqn$1...@news.newsland.it...

Puoi anche far eseguire questo codice sull'evento key press....in questo 
modo la digitazione viene corretta in modo istantaneo senza poi dover 
aggiornare...
Dim strCarattere As String
    strCarattere = Chr(KeyAscii)
    KeyAscii = Asc(UCase(strCarattere))
Ciao
-- 
Roberto da Parma

 -- 
O usi i withevents o su Form_beforeUpdate
ci metti un bel tag (es. "Big") sui controlli che ti sevono e
dim ctl as control
for each ctl in me.controls
    if ctl.tag = "Big" then ctl = ucase(ctl)
next


 Ciao
questo l'ho provato, ma non funziona!
se inserisco in minuscolo caratteri in qualsiasi controllo della maschera,
questi rimangono minuscoli.
luigi
ps. ma ti sei trasferito definitivamente a parma?
e la campagna?
ciao


 Ciao, Carlo
greazie 
luigi


MA ha scritto:



che è stò tag? un codice? o un modulo?
-- 


> > č possibile farlo per tutta la tabella/maschera con un solo codice o 

Hai sbagliato qualcosa....
in primis...non sono quel "Roberto"....lui č da "casa"..."dal 
portatile"...."dalla campagna"...anzi colgo l'occasione per salutarlo e 
sperare che possa esserci alla prossima CISA, sarebbe un onore conoscerti di 
persona!
secondo....il codice funziona....ha sempre funzionato...molto probabilmente 
lo inserisci nell'evento sbagliato (quello corretto č KEYPRESS)
Quello che ti ha suggerito MA forse perň fa ancora piů al caso tuo...


 ha scritto nel messaggio 
news:f4j508$dpf$1...@news.newsland.it...

è una proprietà dei controlli...usa anche la guida!


 Ciao
grazie!
luigi


 > Hai sbagliato qualcosa....


Prova cosě:
Private Sub MioControllo_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
 
       Case 97 To 122, 224 To 253: KeyAscii = KeyAscii - 32
 
     End Select
End Sub
E' chiaro che l'evento č il KeyPress del controllo non della form..
--
sv


 sv
ma se l'evento devo inserirlo su ogni controllo diventa un casino! 
qualcosa per tutta la form?
ps ma Roberto da Parma intendeva il keypress della Form o ho sbagliato a
capire?
grazie


 maschera, questi rimangono minuscoli.
Per farlo funzionare devi impostare la proprietą Anteprima tasti
della maschera a Sģ.
-- 
HTH
Karl
*********
Access FAQ: 
www.donkarl.com/it
 

 next
su form beforeupdate posso inserire o ceneratore di espressione, di codice
o di macro,
scusa l'insistenza, ma non ho capito " ci metti un bel tag (es. "Big") sui
controlli che ti sevono "
grazie 
luigi
-- 


 ps. sarebbe cosa gradita anche sapere il codice da mettere :-))
(come ti ha suggerito MA)
Selezioni i controlli (non le etichette) che contengono i dati da 
trasfomare, nelle proprietà trovi "Tag" e ci inserisci "Big" (senza doppie 
virgolette).
Gestisci l'evento della form "prima di aggiornare" e trasformi lì in 
maiuscolo i dati inseriti
'--------
dim oCtrl as Control
For each oCtrl in Me.Controls
    if oCtrl.Tag = "Big" then
        oCtrl = ucase(oCtrl)
    end if
next
set oCtrl = nothing
'--------
Ciao.
-- 
Sergio MAZZA 

 grazie
Confermo che vale per la form:
Private Sub Form_KeyPress(KeyAscii As Integer)
Dim strCarattere As String
strCarattere = Chr(KeyAscii)
KeyAscii = Asc(UCase(strCarattere))
End Sub
Subito sotto la proprietą di evento "Su pressione" trovi anche "Anteprima 
Tasti" che va impostata a sģ.
Ciao, Carlo 

 ha scritto nel messaggio 
news:f4jd47$8rg$1...@tdi.cu.mi.it...

Oppure segui le "minuziose" indicazioni di Carlo... :-)
Hai già due possibilità...
Saluti
-- 
Roberto da Parma

 Ciao, Carlo
aaahhh!   grazie!!!!  ci sono!!! 
grazie a tutti!
e scusate la mia.....ignoranza!
luigi
