Newsgroup: it.comp.appl.access
Titolo: nomi in maiuscolo

In una tabella come faccio a fare in modo che scrivendo dei nomi o testo
qualsiasi questi diventino subito con la prima lettera maiuscola?
Ciao

 Ciao
Utilizza questa Funzione su eveto Dopo Aggiornamento....
Function Proper(X)
' Capitalize first letter of every word in a field.
' Use in an event procedure in AfterUpdate of control;
' for example, [Last Name] = Proper([Last Name]).
' Names such as O'Brien and Wilson-Smythe are properly capitalized,
' but MacDonald is changed to Macdonald, and van Buren to Van Buren.
' Note: For this function to work correctly, you must specify
' Option Compare Database in the Declarations section of this module.
' Example: StrConv("dev ashish", vbProperCase)
Dim Temp$, C$, OldC$, i As Integer
    If IsNull(X) Then
        Exit Function
    Else
        Temp$ = CStr(LCase(X))
        ' Initialize OldC$ to a single space because first
        ' letter needs to be capitalized but has no preceding letter.
        OldC$ = " "
        For i = 1 To Len(Temp$)
            C$ = Mid$(Temp$, i, 1)
            If C$ >= "a" And C$ <= "z" And _
                (OldC$ < "a" Or OldC$ > "z") Then
                    Mid$(Temp$, i, 1) = UCase$(C$)
            End If
            OldC$ = C$
        Next i
        Proper = Temp$
    End If
End Function
@Alex
-- 
Posted from  [146.133.1.30] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 ha scritto nel messaggio
news:055d2cbeb5c77f4075...@mygate.mailgate.org...


 Ciao
E direi che non sai neanche come si dovrebbe quotare, cioč scrivendo DOPO il
quoting!!!
Antonio

 Function Proper(X)
CUT
Scusa Alex, ma non e' meglio scrivere:
StrConv(Me.TuoControllo, vbProperCase)
Ciao
Sib

 Antonio
ANTONIO, Comprendimi....!
Carissimo "lcrimail", quello che ti ho trasmesso è CODICE VB
da inserire in un MODULO e da richiamare nell'evento Dopo_Aggiornamento
del Controllo di cui vuoi Formattare il TESTO...
Ora i casi sono 2 o impari velocemente la strana LINGUA, o per ora fai
a meno di quello che hai chiesto, perchè è l'unico sistema per fare ciò
che hai chiesto......
Scherzi a parte prova, se hai dubbi li chiariamo....
@Alex
-- 
Posted from  [62.98.31.167] 


 
Assolutamente SI..., non ci pensavo, e il codice postato era l'unica
cosa che mi veniva in mente perchè l'ho recuperata da MVPS....
Grazie per l'appunto...!
Ciao @Alex.


 Grazie per l'appunto...!
Figurati, non era mica un appunto, era un suggerimento.
A volte uno per non sapere/ricordare alcune funzioni sceglie la strada piu'
complicata (vedi mio post di ieri)
Ciao
Sib

 ANTONIO, Comprendimi....!
Umpf!
Antonio

 Sib
In effetti non mi sono capito o spiegato bene, il riferimento all'appunto
era inteso come SUGGERIMENTO....!
Ho una pessima memoria standard, ma quella Fotografica fa concorrenza al 
mio Compiuter, quindi spesso ricordo dove trovare i suggerimenti, ed in effetti
è più veloce risolvere il problema che pensare come risolverlo...!
Ciao @Alex.
-- 
Posted from  [62.98.12.144] 


 è più veloce risolvere il problema che pensare come risolverlo...!
Vero (come dicevo vedi il mio post sui numerici).
Ora che ci faccio caso: Alex o Alessandro?
Ciao
Sib

 Sib
Come vuoi, if fatto è che non uso il Browser per accedere al NG, spessissimo
utilizzo il Portale di Mailgate, quindi il nome è variabile a seconda se
mi ricordo o meno di cambiarlo....!
In ogni caso sono sempre "IO".
Spero di avere il piacere di incontrare te e gli altri al "RADUNO".
Bye Alessandro Baraldi (@Alex)
-- 
Posted from  [62.98.108.35] 
