Newsgroup: it.comp.appl.access
Titolo: Conversione prima lettera in maiuscolo

Come si può convertire in maiuscolo la prima lettera di ogni parola mentre
la si scrive?
C'è una funzione specifica (magari tramite macro), oppure solo via codice?
Un ringraziamento a tutti Voi!!!

 la si scrive?
Non ti basterebbe che sia fatto alla fine della scrittura (immagino perchè
non l'hai detto) nel controllo della maschera?
Se sì, su evento dopo aggiornamento di quel controllo scriverai
me!tuocontrollo = ucase(left(me!tuocontrollo,1)) & mid(me!tuocontrollo,2)
Antonio


Che io ricordi una funzione VBA non c'è, la devi costruire:
(es.)
'-------------
me!caselladitesto = ucase(left(me!caselladitesto,1)) &
mid(me!caselladitesto,2,len(me!caselladitesto))
'-------------
Ciao.

L<?????????????
l'unico problema è che ? rappresenta un carattere quindi se metti 9 ?
costruisci una stringa di 10 caratteri e se scrivi
michele questo diventa Michele ma con 3 spazi alla fine.
come toglierli non saprei.
ciao
Riccardo

 Un ringraziamento a tutti Voi!!!
se ti va bene convertirle dopo averle scritte, allora devi gestire l'eveto
DopoAggiornamento del controllo testo:
Private Sub txtTuoControllo_AfterUpdate()
    Me.txtTuoControllo = StrConv(Me.txtTuoControllo, vbProperCase)
End Sub
se nel controllo scrivi: 
pippo va al mercato -> Pippo Va Al Mercato
-- 
Federico
--------------------------------------
Sito Comune di it.comp.appl.access
http://members.xoom.it/it_db_access
mailto:
it_db_...@usa.net
--------------------------------------
Tutte le richieste che mi arrivano
in privato, vengono cestinate.
--------------------------------------
Rimuovi paperino. per e-mail
--------------------------------------

 mid(me!caselladitesto,2,len(me!caselladitesto))
Ehm, ehm...
ma mid(me!caselladitesto,2) basta e avanza eh...
Antonio

 
Metti questo pezzo di codice sull'evento "su pressione" del controllo di 
testo (naturalmente devi sostituire Testo0 con il nome del tuo 
controllo).
Converte in maiuscolo solamente quando digiti sul controllo vuoto o 
quando l'ultima lettera e' spazio (non e' il massimo ma per ora mi e' 
venuto in mente solo questo :) ).
If Len(Testo0.Text) <> 0 Then
  If Right(Testo0.Text, 1) = " " Then
    If KeyAscii >= 97 And KeyAscii <= 122 Then KeyAscii = KeyAscii - 32
  End If
Else
  If KeyAscii >= 97 And KeyAscii <= 122 Then KeyAscii = KeyAscii - 32
End If
Ciao
-- 
JBad

pippo va al mercato -> Pippo Va Al Mercato
E se volessi trasformarle tutte in maiuscolo?
Grazie.
Luca


cerchi nell'help: StrConv
e trovi
StrConv(string, conversion)
dove conversion:
vbUpperCase	1	Rende maiuscola la stringa.
vbLowerCase	2	Rende minuscola la stringa.
vbProperCase	3	Rende maiuscola la prima lettera di ogni parola della stringa.
...



Evabbé, io l'ho solo utilizzato cosě...
Ciao.

 Luca
########
Metti il segno >  nel formato del controllo
Riccardo

vbProperCase	3	Rende maiuscola la prima lettera di ogni parola della stringa.
Scusami, ma la mia ignoranza non mi permette di prescindere da un
esempio pratico. Io ho un textbox (diciamo text1) che deve diventare
maiuscola, cosa devo scrvere tra quelle benedette parentesi?
Dall'help di access non č che si capisca un gran che...
Grazie ancora.
Luca

Metti il segno >  nel formato del controllo
Cazzarola, questo sě che funziona!!! Grazie anche a te.
Luca

 Luca
______
Penso che dovresti metterci il nome del textbox es:
StrConv(me.text1, vbUpperCase )
ciao Riccardo

 mid(me!tuocontrollo,2)
questa mi mancava
Un saluto
Michele Amato
p.s.
Vedo se riesco a ricambiare al volo :-)))
sapevi che con una variabile di tipo Date puoi ciclare con un for...
Dim d as Date
for d = CDate("01/01/2000") to CDate("31/12/2000")
  Debug.Print d
next

 next
Buono a sapersi anche questo!
Ciao
--
Silvio
il sito comune di it.comp.appl.access:
http://members.xoom.it/it_db_access

Vi ringrazio per i numerosi suggerimenti; infatti sarebbe stato molto
semplice usare una maschera di input, purtroppo con Access 2000 non è
possibile.
    Saluti!!!

 wrote in message
8uu8vs$bu0$1...@suite03.caspur.it...

E il rasoio di Occam dove lo mettiamo?
Antonio


Dove vuoi, ma non a casa mia...
Ciao.
P.S. ma chi che Occam? L'anagramma di Macco?

 wrote in message
8vbh6b$si9$1...@suite03.caspur.it...

Filosofo del 300
Ma il problema in cui sembra dibattersi la Scienza non è casuale come si
potrebbe dare per scontato. All'origine del problema c'è l'ipoteca che grava
sulla Scienza stessa da parte di una precisa filosofia. Una filosofia
medievale basata sulle dissertazioni di un sacerdote della Chiesa cattolica
del tempo, un certo Guglielmo di Occam. Un pensatore del '300 che oggi viene
considerato come uno dei massimi esponenti di quella corrente che prende il
nome di nominalismo.
La sua figura sembra appartenere al passato invece è oggi presente più che
mai.
L'enunciato di Guglielmo di Occam, nella sua sintesi, è molto semplice e
categorico e si identifica in una sua perentoria frase stralciata dalla sua
opera: "Entia non sunt multiplicanda praeter necessitatem", che
letteralmente significa: "le entità non vanno moltiplicate oltre il
necessario".
La frase , nel contesto di quanto ha scritto Guglielmo di Occam, si traduce
in un preciso canone di ragionamento che viene denominato ed è conosciuto
come il "rasoio di Occam", un rasoio che taglia via le cose non necessarie.
In sostanza Occam affermava che non dobbiamo inventare di sana pianta cose
che non esistono. Non dobbiamo trasformare concetti astratti in entità reali
per poi usarli dove e come ci fanno comodo.
Quando lo facciamo finiamo per trovarci in un mare di assurdità.
"Quindi....tagliamoli via......"
Lo stesso concetto può essere esteso al fatto che se ci sono più soluzioni,
deve essere perseguita quella più breve...
Il filosofo Antonio