Newsgroup: it.comp.appl.access
Titolo: Caratteri in minuscolo su dati in sottomaschera

Buon giorno a tutto il n.g.
Probabilmente al momento dell'inserimento dei dati, li avrň digitati in 
minuscolo, questo č quanto mi accade.
In una maschera di ricerca con una sottomaschera integrata, seleziono la 
lettera iniziale degli utenti da ricercare nell'apposita casella combinata. 
Quando mi sposto sulla sottomaschera i dati mi appaiono tutti in minuscolo.
Oltre che a ridigitarli nuovamente, c'č un altro modo piů spiccio per 
sistemarli?
Grazie per l'attenzione.
Roberto



 Roberto
Hai presente la codifica asci ?
Io farei una procedura che aggiorna quel campo
Dim lRS as RecordSet
Set lRS = Currentdb.OpenRecordset("MIA_TABELLA")
Do while Not lRS.EOF
	lRS.Edit
	lRS!MIO_CAMPO = fCAPS(lRS!MIO_CAMPO)
	lRS.Update
	lRS.MoveNext
Loop
---------------------------------------------
Function fCAPS(ByVal pSTRING As String) As String
     Dim lSTRING As String
     Dim lRETURN As String
     lSTRING = pSTRING
     lRETURN = ""
     Do While Not lSTRING = ""
         If Asc(Mid(lSTRING, 1, 1)) >= 97 And _
			Asc(Mid(lSTRING, 1, 1)) <= 122 Then
             lRETURN = lRETURN & Chr(Asc(Mid(lSTRING, 1, 1)) - 32)
         Else
             lRETURN = lRETURN & Mid(lSTRING, 1, 1)
         End If
         lSTRING = Mid(lSTRING, 2)
     Loop
     fCAPS = lRETURN
End Function

 Roberto
Ho scoperto che il VB ha una propria funzione che fa (molto meglio della 
mia) lo stesso lavoro. UCase.
Quindi basta solo questo codice!
Dim lRS as RecordSet
Set lRS = Currentdb.OpenRecordset("MIA_TABELLA")
Do while Not lRS.EOF
     lRS.Edit
     lRS!MIO_CAMPO = UCase(lRS!MIO_CAMPO)
     lRS.Update
     lRS.MoveNext
Loop


Ciao Roberto,
se vuoi trasformare tutto in maiuscolo ti basta usare la funzione Ucase, se
vuoi trasformare solo la prima lettera in maiuscolo puoi usare la funzione
StrConv con il parametro vbProperCase.
Quindi puoi costruirti una query di aggiornamento tipo questa
----
UPDATE Tabella
    SET Nome=StrConv(Nome,3)
----
Ciao
-- 
Giorgio Rancati
[Office Access MVP]

 [Office Access MVP]
Grazie Giorgio, era proprio quello che cercavo.
Ho costruito la query di aggiornamento che mi hai suggerito ed in una solo
click ho aggiornato tutto in maiuscolo 213 record.
Grazie ancora.
Rob.
P.S. Ringrazio anche i due precedenti post.
Ne approfitto per chiederti un'altra cosa.  Con la query di aggiornamento 
posso modificare la maschera di input in tabella dei numeri telefonici?
Il db in questione è una guida telefonica dove ho immesso sia numeri di 
telefonia fissa che di cellulari ma non ho diviso il prefisso dal numero. E' 
possibile creare una query di aggiornamento che tenga diviso il prefisso dal 
numero telefonico con una slash \ tenendo presente che ci sono prefisso a 4 
numeri ? Uso solamente numerazione nazionale.
Grazie.

 numeri ? Uso solamente numerazione nazionale.
Ciao RobertOne,
se il tuo prefisso è sempre di 4 cifre (ma ne sei sicuro ?) puoi eseguire
questa query di aggiornamento
----
UPDATE Tabella
   SET Telefono=Left(Telefono,4)+"/"+Mid(Telefono,5)
----
eseguita la query puoi modificare la maschera di input del campo telefono in
questo modo
----
0000/999999999999;0
----
ma ripeto.. perchè forse non ho capito bene, sei sicuro che il tuo prefisso
sia sempre di 4 cifre ?


 sia sempre di 4 cifre ?
In effetti, non ho detto che i prefissi sono sempre di 4 cifre. Ma variano 
da 2 a 4 cifre; 02, 030, 0423 etc.
Roberto

 da 2 a 4 cifre; 02, 030, 0423 etc.
sě, scusa, avevo il sospetto di non aver capito :-)
in mancanza di una regola logica, credo sia difficile confezionare
l'automatismo che cerchi :(


 [Office Access MVP]
Grazie ugualmente per l'aiuto.
Rob.