Newsgroup: it.comp.lang.visual-basic
Titolo: Modifica carattere

Ciao a  tutti,
In acces Ho inserito in una maschera di inserimento dati il calcolo del
codice fiscale.
Nel campo luogo di nascita, man mano ke sidigita il luogo di nascita, il
nome viene completato automaticamente in quanto viene preso da una tabella
denominata Comuni.
Su luogo di nascita sull evento modifica è inserito questo codice:
Private Sub Luogo_di_nascita_Change()
    Dim s As String
    Dim T As String
    Dim Colore As Long
    On Error GoTo ErrFas
    Colore = 0
    T = Trim(Nz(Me.Luogo_di_nascita.Text, ""))
    If T = "" Then
        Me.Luogo_di_nascita.Tag = T
        Exit Sub
    End If
    If Len(T) = 1 Then s = T
    COMUNI.Seek ">=", T
    If Not COMUNI.EOF And Not COMUNI.NoMatch Then
      If UCase(T) = UCase(Mid(COMUNI!COMU_DESCR, 1, Len(T))) Then
        If Len(T) > Len(Me.Luogo_di_nascita.Tag) Then
            Me.Luogo_di_nascita = COMUNI!COMU_DESCR
            Me.Luogo_di_nascita.SelStart = Len(T)
            Me.Luogo_di_nascita.SelLength = Len(Me.Luogo_di_nascita) -
(Len(T))
            Me.txtCodiceComune = COMUNI!COMU_COD
        End If
      Else
        If Me.Luogo_di_nascita.ForeColor = 0 Then MsgBox "Comune non in
elenco"
        Colore = &H80&
        Me.txtCodiceComune = ""
        Me.Luogo_di_nascita.SetFocus
      End If
    End If
   If IsNull(Luogo_di_nascita) Then
     CodiceFiscale = ""
   End If
    If Me.Luogo_di_nascita.ForeColor <> Colore Then
Me.Luogo_di_nascita.ForeColor = Colore
    Me.Luogo_di_nascita.Tag = T
Exit Sub
ErrFas:
    MsgBox ("FasMsg: " & Err.Number & " " & Err.Description)
    Err.Clear
End Sub
In pratica il nome del luogo di nascita me lo da maiuscolo.
Io vorrei ke dopo l'aggiornamento divenisse minuscolo cioe ad esempio se il
nome fosse SAN COLOMBANO : San Colombano,
se fosse CERVIGNANO DEL FRIULI: Cervignano del Friuli.
Grazie mille..

 se fosse CERVIGNANO DEL FRIULI: Cervignano del Friuli.
qui è dura...
bisognerebbe dividere le singole parole, e stabilire un criterio per il
quale certe devono avere l'iniziale maiuscola, e certe altre no.
una curiosità: nel tuo elenco, i comuni come sono scritti?
btw, calcolare il codice fiscale è una cosa che fanno tutti, ma che non
dovrebbe fare nessuno.
-- 
Salutoni
Sergio
Per rispondere... togli il group dall'indirizzo
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 Sergio
Sono scritti in maiuscolo.perchè non dovrebbe fare nessuno?
Infatti bisognerebbe dare un criterio e dividere le stringhe..ma non saprei
come fare..

 come fare..
le stringhe si dividono cercando particolari caratteri al loro interno, il
criterio potrebbe essere la lunghezza, oppure l'appartenenza ad un
"vocabolario".
vedi tu quale cosa ti sembra piů appropriata.


 non dovrebbe fare nessuno.
O, meglio, è fondamentale che ci sia la possibilità di 'ritoccare' 
manualmente il CF generato dal sw.
Di buste paga ritoccate col bianchetto perchè 'il gestionale quel C.F. non 
lo accetta...' ne ho già viste troppe.
Alberto
-- 
"C'è un Calvelli dentro ognuno di noi" (cit.) 

Cerca sulla guida di VB UCase()
Quella fa il contrario di quello che cerchi tu.
La guida propone anche le funzioni collegate (quindi
dovrebbe farti vedere quello che cerchi).
Ciao, Sauro.

 quale certe devono avere l'iniziale maiuscola, e certe altre no.
mal che vada, con propercase scrive Cervignano Del Friuli.
ancora accettabile.
problema maggiore e' l'apostrofo. se non sono e' seguito da spazio,
propercase scrive
L'aquila
Acquaviva D'isernia
ciao, a.