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

Ecco il mio problemino: come si utilizza maiusc.iniz.
In effetti io ho la necessità di trasformare in maiuscolo tutte
le prime lettere di ogni parola all'interno di una tabella.
Grazie e buona pasqua a tutti.
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 Grazie e buona pasqua a tutti.
<F1> StrConv
-- 
HTH
Karl
*********
Access-FAQ (tedesco): 
http://www.donkarl.com

 <F1> StrConv
Io faccio la stessa cosa per le maschere: uso il codice VBA.
Apri la tabella che ti interessa e scorrila tutta fino alla fine. Usa le
funzioni UCase e LCase per ingrandire o rimpiccolire le lettere. Per farti
un esempio
Private Sub Riscrivi()
Dim Tabella as Recordset
  Set Tabella=Currentdb.OpenRecordset("Tabella1")
  Do While Tabella.EOF=false
    Tabella.Edit
    Tabella!Campo1=UCase(Left(Tabella!Campo1), 1)) & _
                   LCase(Mid(Tabella!Campo1, 2, finestringa))
    Tabella.Update
    Tabella.MoveNext
  Loop
  Tabella.Close
End Sub
P.S.: Tabella1, Campo1 e finestringa sono nomi e valori che dovrai mettere
tu ovviamente :o))
Ciao buon lavoro
--------------------------------
Inviato via 
http://usenet.libero.it

 tu ovviamente :o))
Allora forse ti aiuta questo thread:
http://groups.google.com/groups?&as_ugroup=it.comp.appl.access&as_usubject=Iniziali%20maiuscole&as_uauthors=Donaubauer


Stessa necessità, però io vorrei che il testo immesso nella form fosse tutto
convertito in maiuscolo indipendentemente dall'immissione in minuscolo.
Grazie.


Ripescando la Sub che ho scritto in precedenza e adattandola alla tua
richiesta, viene fuori così:
Private Sub Riscrivi()
Dim I As Integer, Stringa As String
  Stringa = ""
  I = 1
  Do While I <= Len(Me.NomeTextBox)
    Stringa = Stringa & UCase(Mid(Me.NomeTextBox, I, 1))
    I = I + 1
  Loop
  Me.NomeTextBox = Stringa
End Sub
NomeTextBox è il nome della casella del form a cui vuoi applicare
l'ingrandimento


 ha scritto nel messaggio
news:212Z210Z172Z4Y1...@usenet.libero.it...

La funzione prima può essere sostituita con un semplice :
me.NomeTextBox= ucase(me.NomeTextBox)
messo su DopoAggiornamento del campo.
Questo dopo l'aggiornamento porta il campo in maiuscolo.
Se invece vuoi che man mano che vengono inseriti i caratteri questi vengano
già scritti in maiuscolo, devi usare una cosa simile a questa:
1) Crea un nuovo modulo e inserisci questa funzione:
Public Function MkUpper(KeyAscii As Integer) As Integer
    ' trasforma in maiuscolo ogni carattere inserito (al posto di picture!)
    ' chiamata dall'evento KeyPress di ogni campo, in questo modo
    'KeyAscii = MkUpper(KeyAscii)
    Select Case KeyAscii
      Case 97 To 122, 224 To 253: KeyAscii = KeyAscii - 32
    End Select
    MkUpper = KeyAscii
End Function
2) Salvalo col nome MK_UPPER
3) Vai nella maschera e sulle proprietà del control dove vuoi il maiuscolo,
vai sull'evento SuPressione. Inserisci questa riga nella sub:
KeyAscii=MkUpper(KeyAscii)
FATTO.
Ora se vai sul control e scrivi, tutto viene inserito in maiuscolo.

Grazie per le risposte esaustive, per ora a me interessa solo convertire in
maiuscolo dopo la scrittura del campo ma può essermi utile anche
contemporaneamente alla battitura. Grazie.

 ha scritto nel messaggio
news:b8jv6r$kt8$1...@lacerta.tiscalinet.it...

Per convertire in maiuscolo contestualmente alla battitura, puoi inserire la
seguente routine a fronte dell'evento KeyPress del controllo che ti
interessa:
Private Sub TuoControllo_KeyPress(KeyAscii As Integer)
    Dim strCarattere As String
    strCarattere = Chr(KeyAscii)
    KeyAscii = Asc(UCase(strCarattere))
End Sub
Ciao
Galliano

Veramente utile sapersi,grazie.
Se invece volessi in maiuscolo solamente le iniziali per esempio nella
stampa indirizzo su report?