[VB6] Prima lettera maiuscola

[Petra]

Ho una textbox e un command. In pratica all'evento click del command mi inserisce il contenuto della textbox in un'apposita tabella all'interno di un db in Access. La questione è che voglio forzare l'utente ad inserire la prima lettera maiuscola per ogni parola all'interno della textbox. Il codice che ho scritto è il seguente:

Private Sub Command1_Click()
 rs.AddNew
 If Me.Text1.Text <> Empty Then
  rs!Cliente = UCase(Chr(Asc(Me.Text1.Text))) & Right(Me.Text1.Text, Len(Me.Text1.Text) - 1) 
 End If
 rs.Update
End Sub

1) La funzioncina che ho scritto sembra funzionare, ma non vorrei avere spiacevoli inconvenienti. Secondo voi darà problemi scritta in questo modo ?

2) Voi avete come la scrivereste ? ? C'è un metodo più veloce e sicuro ?

Grazie!!

[Petra]

Private Sub Command1_Click()
Dim arr As Variant, cont As Integer, nome As String
arr = Split(Me.Text1.Text, " ")
For cont = 0 To UBound(arr)
 arr(cont) = UCase(Chr(Asc(arr(cont)))) & LCase(Right(arr(cont)), Len(arr(cont)) - 1)
 nome = nome & " " & arr(cont)
Next
MsgBox Trim(nome)
End Sub

Questa l'ho appena scritta. Consente di convertire la prima lettera di ogni parola, situata in una stringa, in maiuscola e le altre in minuscolo, ma vorrei sapere se esiste una funzione che mi evita tutto ciò...non vorrei avere trovare errori all'interno del db!!!

[Boolean]

beh, in effetti ti sei resa la vita un bel po' complicata!

decisamente più semplice in questo modo:

Dim s As String
s = StrConv("questa è una frase di prova",vbProperCase)

in s troverai questo:

Questa È Una Frase Di Prova

Boolean

[oregon]

E per i nomi composti come Maria Rita, Giovanni Paolo ... ?

Ti consiglio questo semplice codice (la Split mi sembra inutile ...)

Private Sub Command1_Click()
  Dim nome As String
  nome = StrConv(Trim$(Text1.Text), vbProperCase)
  MsgBox Trim(nome)
End Sub

P.S. Ooops ... sei arrivato prima di un soffio ... ... Buongiorno

[Boolean]

Buongiorno Antonio

beh.. per lo meno non sono stato smentito sulla soluzione è consolante...

Boolean

[Petra]

Vi ringrazio!!