[access] - capitalizzare iniziali e problema apostrofo.

[Misterxxx]

Originariamente inviato da nicola75ss
Ciao a tutti.Tanto per cambiare ho un problema con access.

Supponiamo che abbia un campo cognome del tipo "D'AMICO".

Se eseguo una query del genere

select stconv("D'AMICO",3) AS capit

ottengo D'amico.

C'è un modo per "capitalizzare" anche le lettere che seguono l'apostrofo?
Grazie come sempre.

Prova un funzione tipo:

Public Function Maiuscola(testo)
Dim testo2, n
For n = 1 To Len(testo)
If n = 1 Then
    testo2 = UCase(Left$(testo, 1))
    Else
        If Mid$(testo, n - 1, 1) = "'" Then
            testo2 = testo2 + UCase(Mid$(testo, n, 1))
            Else
            testo2 = testo2 + Mid$(testo, n, 1)
            End If
    End If
    Next n
Maiuscola = testo2

che è quasi uguale ma contempla l'apostrofo; vedi se è da aggiustare che l'ho tirata giù di getto.