Formato testo con UCase

[fruttosio79]

Ciao,
utilizzo questa formula:

newcognome = UCase(Left(newcognome,1)) & LCase(Mid(newcognome,2))

per rendere il campo con questo formato:
"Aaaaaaaaaaa"

Se però newcognome è composto da più campi mi esce "Aaaaa aaaaa"
Come faccio a cambiarla per rendere i campi "Aaaaaa Aaaaaaa"

Ciao a tutti

[weppos]

Splitta la stringa agli spazi e avvia la funzione ad ogni elemento.

[fruttosio79]

Lo splitto così:
newcognome = Split(newcognome, " ")
inserendoci uno spazio tra ognuno e poi? come faccio a impostare su tutti
newcognome = UCase(Left(newcognome,1)) & LCase(Mid(newcognome,2))

[weppos]

Fai un ciclo per tutti gli elementi dell'array risultante ed applici quella riga di funzione.

[Jacqui]

Function primalettera(stringa)
	array_parole=split(trim(stringa)," ")
	for each words in array_parole
	primalettera=primalettera & ucase(left(words,1)) & lcase(right(words,len(words)-1)) & " "
next
End function

[fruttosio79]

Ciao,
funziona benissimo grazieee