Iniziale maiuscola

[Access sitocomune]

Salve a tutti,
è il mio primo accesso al News Group.
Mi aiutereste a trovare la soluzione al mio problema?

In una tabella, i campi Cognome, Nome, vorrei che fossero scritti in
automatico Con Le Iniziali Maiuscole.
Come si fà?

sulle proprietà del campo, al formato, so che: Per scrivere tutto maiuscolo,
basta inserire >, tutto minuscolo <,
e per creare l'iniziale maiuscola in automatico?

Proprio così, vorrei che indipendentemente da come viene digitato, il
Cognome e il Nome sia trasformato automaticamente in Maiuscolo.
Nei miei 4 corposi volumi di Access non ho trovato soluzione.

AIUTATEMI! Grazie.

[Giorgio]

Potresti utilizzare questa funzione VBA:

'------------------------------------------------------------
' SUB Avviata per adattare la stringa in formato Ucase
'------------------------------------------------------------
Public Function UWord(ByRef testo As String) As String
Dim a As Long

'Dopo ogni spazio -solo mette una maiuscola e tutto il resto è minuscolo
testo = LCase(Trim(testo))
If Len(testo) = 0 Then Exit Function
Mid(testo, 1, 1) = UCase(Left(testo, 1))
a = InStr(1, testo, " ") + 1
Do Until a < 2
testo = Left(testo, a - 1) + LTrim(Mid(testo, a - 1))
Mid(testo, a, 1) = UCase(Mid(testo, a, 1))

a = InStr(a, testo, " ") + 1
Loop
UWord = testo
End Function

Post by Access sitocomune
Salve a tutti,
è il mio primo accesso al News Group.
Mi aiutereste a trovare la soluzione al mio problema?
In una tabella, i campi Cognome, Nome, vorrei che fossero scritti in
automatico Con Le Iniziali Maiuscole.
Come si fà?
sulle proprietà del campo, al formato, so che: Per scrivere tutto
maiuscolo, basta inserire >, tutto minuscolo <,
e per creare l'iniziale maiuscola in automatico?
Proprio così, vorrei che indipendentemente da come viene digitato, il
Cognome e il Nome sia trasformato automaticamente in Maiuscolo.
Nei miei 4 corposi volumi di Access non ho trovato soluzione.
AIUTATEMI! Grazie.

[frcavallaro]

Questo con codice Visual Basic!
Ma esiste un parametro da inserire semplicemente nel campo "Formato" in
modalità struttura?
---------------------------------------------------------

Post by Giorgio
'------------------------------------------------------------
' SUB Avviata per adattare la stringa in formato Ucase
'------------------------------------------------------------
Public Function UWord(ByRef testo As String) As String
Dim a As Long
'Dopo ogni spazio -solo mette una maiuscola e tutto il resto è minuscolo
testo = LCase(Trim(testo))
If Len(testo) = 0 Then Exit Function
Mid(testo, 1, 1) = UCase(Left(testo, 1))
a = InStr(1, testo, " ") + 1
Do Until a < 2
testo = Left(testo, a - 1) + LTrim(Mid(testo, a - 1))
Mid(testo, a, 1) = UCase(Mid(testo, a, 1))
a = InStr(a, testo, " ") + 1
Loop
UWord = testo
End Function

Post by Access sitocomune
Salve a tutti,
è il mio primo accesso al News Group.
Mi aiutereste a trovare la soluzione al mio problema?
In una tabella, i campi Cognome, Nome, vorrei che fossero scritti in
automatico Con Le Iniziali Maiuscole.
Come si fà?
sulle proprietà del campo, al formato, so che: Per scrivere tutto
maiuscolo, basta inserire >, tutto minuscolo <,
e per creare l'iniziale maiuscola in automatico?
Proprio così, vorrei che indipendentemente da come viene digitato, il
Cognome e il Nome sia trasformato automaticamente in Maiuscolo.
Nei miei 4 corposi volumi di Access non ho trovato soluzione.
AIUTATEMI! Grazie.

[TheMax]

Post by frcavallaro
Questo con codice Visual Basic!
Ma esiste un parametro da inserire semplicemente nel campo "Formato"
in modalità struttura?

E questo si chiama "postare dopo il quoting", è usanza di questo gruppo
postare le risposte dopo il testo del mittente, come ho fatto io, aiuta a
leggere i messaggi, consiglio ad entrambi di leggere le "istruzioni per
l'uso" postate da Roberto oggi.

Comunque non mi risulta sia possibile, la funzione che ti ha postato Giorgio
è la migliore.

Ciao,
Massimo

[MA]

Post by Giorgio
'------------------------------------------------------------
' SUB Avviata per adattare la stringa in formato Ucase
'------------------------------------------------------------
Public Function UWord(ByRef testo As String) As String
Dim a As Long
'Dopo ogni spazio -solo mette una maiuscola e tutto il resto è
minuscolo testo = LCase(Trim(testo))
If Len(testo) = 0 Then Exit Function
Mid(testo, 1, 1) = UCase(Left(testo, 1))
a = InStr(1, testo, " ") + 1
Do Until a < 2
testo = Left(testo, a - 1) + LTrim(Mid(testo, a - 1))
Mid(testo, a, 1) = UCase(Mid(testo, a, 1))
a = InStr(a, testo, " ") + 1
Loop
UWord = testo
End Function

Post by Access sitocomune
Salve a tutti,
è il mio primo accesso al News Group.
Mi aiutereste a trovare la soluzione al mio problema?
In una tabella, i campi Cognome, Nome, vorrei che fossero scritti in
automatico Con Le Iniziali Maiuscole.
Come si fà?
sulle proprietà del campo, al formato, so che: Per scrivere tutto
maiuscolo, basta inserire >, tutto minuscolo <,
e per creare l'iniziale maiuscola in automatico?
Proprio così, vorrei che indipendentemente da come viene digitato, il
Cognome e il Nome sia trasformato automaticamente in Maiuscolo.
Nei miei 4 corposi volumi di Access non ho trovato soluzione.
AIUTATEMI! Grazie.

Fai una query di aggiornamento con strconv(Nome, 3)

[Carlo Costarella]

Post by Access sitocomune
Salve a tutti,
è il mio primo accesso al News Group.
Mi aiutereste a trovare la soluzione al mio problema?
In una tabella, i campi Cognome, Nome, vorrei che fossero scritti in
automatico Con Le Iniziali Maiuscole.
Come si fà?
sulle proprietà del campo, al formato, so che: Per scrivere tutto
maiuscolo, basta inserire >, tutto minuscolo <,
e per creare l'iniziale maiuscola in automatico?
Proprio così, vorrei che indipendentemente da come viene digitato, il
Cognome e il Nome sia trasformato automaticamente in Maiuscolo.
Nei miei 4 corposi volumi di Access non ho trovato soluzione.
AIUTATEMI! Grazie.

Solo un po di codice dopo aggiornamento del controllo:

Private Sub TuoControllo_AfterUpdate()
Me.TuoControllo= StrConv(Me.TuoControllo, vbProperCase)
End Sub

StrConv può essere usata anche nelle query.

Ciao, Carlo

[frcavallaro]

Post by Carlo Costarella

Post by Access sitocomune
Salve a tutti,
è il mio primo accesso al News Group.
Mi aiutereste a trovare la soluzione al mio problema?
In una tabella, i campi Cognome, Nome, vorrei che fossero scritti in
automatico Con Le Iniziali Maiuscole.
Come si fà?
sulle proprietà del campo, al formato, so che: Per scrivere tutto
maiuscolo, basta inserire >, tutto minuscolo <,
e per creare l'iniziale maiuscola in automatico?
Proprio così, vorrei che indipendentemente da come viene digitato, il
Cognome e il Nome sia trasformato automaticamente in Maiuscolo.
Nei miei 4 corposi volumi di Access non ho trovato soluzione.
AIUTATEMI! Grazie.

Private Sub TuoControllo_AfterUpdate()
Me.TuoControllo= StrConv(Me.TuoControllo, vbProperCase)
End Sub
StrConv può essere usata anche nelle query.
Ciao, Carlo

--------------------------------------------------------------------------
Mi sembra interessante la tua soluzione, mi aiuteresti ulteriormente?
Cosa intendi? Quale controllo?

Purtroppo ribadisco che è da poco che uso access.

Salutoni da frcavallaro

[TANNHAUSER]

Post by frcavallaro

Post by Carlo Costarella
Private Sub TuoControllo_AfterUpdate()
Me.TuoControllo= StrConv(Me.TuoControllo, vbProperCase)
End Sub
StrConv può essere usata anche nelle query.
Ciao, Carlo

--------------------------------------------------------------------------
Mi sembra interessante la tua soluzione, mi aiuteresti ulteriormente?
Cosa intendi? Quale controllo?
Purtroppo ribadisco che è da poco che uso access.
Salutoni da frcavallaro

Carlo ti ha indicato la via per trasformare in maiuscola la prima lettera
di qualsiasi parola digitata in un controllo Casella di Testo di una
maschera.
Nella maschera dove andrai ad inserire i tuoi dati avrai un controllo
associato al campo Nome della tabella, supponiamo, Anagrafica (lo stesso
ragionamento vale poi per Cognome e per qualsiasi altro campo di testo).
Nelle proprietà del controllo, linguetta Evento, riga Dopo aggiornamento
scegli Routine e inserisci il codice che ti ha postato Carlo.

TANNHAUSER

P.S. Sicuro che hai letto 4 tomi di Access?

[frcavallaro]

Post by TANNHAUSER

Post by frcavallaro

Post by Carlo Costarella
Private Sub TuoControllo_AfterUpdate()
Me.TuoControllo= StrConv(Me.TuoControllo, vbProperCase)
End Sub
StrConv può essere usata anche nelle query.
Ciao, Carlo

--------------------------------------------------------------------------
Mi sembra interessante la tua soluzione, mi aiuteresti ulteriormente?
Cosa intendi? Quale controllo?
Purtroppo ribadisco che è da poco che uso access.
Salutoni da frcavallaro

Carlo ti ha indicato la via per trasformare in maiuscola la prima lettera
di qualsiasi parola digitata in un controllo Casella di Testo di una
maschera.
Nella maschera dove andrai ad inserire i tuoi dati avrai un controllo
associato al campo Nome della tabella, supponiamo, Anagrafica (lo stesso
ragionamento vale poi per Cognome e per qualsiasi altro campo di testo).
Nelle proprietà del controllo, linguetta Evento, riga Dopo aggiornamento
scegli Routine e inserisci il codice che ti ha postato Carlo.
TANNHAUSER
P.S. Sicuro che hai letto 4 tomi di Access?
--
questo articolo e` stato inviato via web dal servizio gratuito

Confermo la lettura di 4 Tomi Access.
il primo 350 pagine Lire 40.000
il secondo 240 pagine Lire 29.000
il terzo 210 pagine ? 14,00
il quarto 370 pagine ? 25,31 tutti senza neanche i rudimenti di VBA

Ieri ho aquistato altri due tomi, stavolta dedicati VBA
il primo 460 pagine ? 30,47 (Imparare la programmazione di Access 2002)
il secondo 430 pagine ? 34,00 ( Access 2003 Uso avanzato e programmazione
VBA) ho cominciato a leggere per primo questo, sembra esaurinte.
( speriamo bene!), comunque penso che imparerò parecchio da questi
newsgroup.

salutoni
Ps,
la soluzione indicata da Carlo era proprio l'ideale.
Me.TuoControllo= StrConv(Me.TuoControllo, vbProperCase)
Grazie........

[frcavallaro]

Post by TANNHAUSER

Post by frcavallaro

Post by Carlo Costarella
Private Sub TuoControllo_AfterUpdate()
Me.TuoControllo= StrConv(Me.TuoControllo, vbProperCase)
End Sub
StrConv può essere usata anche nelle query.
Ciao, Carlo

--------------------------------------------------------------------------
Mi sembra interessante la tua soluzione, mi aiuteresti ulteriormente?
Cosa intendi? Quale controllo?
Purtroppo ribadisco che è da poco che uso access.
Salutoni da frcavallaro

Carlo ti ha indicato la via per trasformare in maiuscola la prima lettera
di qualsiasi parola digitata in un controllo Casella di Testo di una
maschera.
Nella maschera dove andrai ad inserire i tuoi dati avrai un controllo
associato al campo Nome della tabella, supponiamo, Anagrafica (lo stesso
ragionamento vale poi per Cognome e per qualsiasi altro campo di testo).
Nelle proprietà del controllo, linguetta Evento, riga Dopo aggiornamento
scegli Routine e inserisci il codice che ti ha postato Carlo.
TANNHAUSER
P.S. Sicuro che hai letto 4 tomi di Access?
--
questo articolo e` stato inviato via web dal servizio gratuito

Confermo la lettura di 4 Tomi Access.
il primo 350 pagine Lire 40.000
il secondo 240 pagine Lire 29.000
il terzo 210 pagine Euro 14,00
il quarto 370 pagine Euro 25,31 tutti senza neanche i rudimenti di VBA

Ieri ho aquistato altri due tomi, stavolta dedicati VBA
il primo 460 pagine Euro 30,47 (Imparare la programmazione di Access 2002)
il secondo 430 pagine Euro 34,00 ( Access 2003 Uso avanzato e programmazione
VBA) ho cominciato a leggere per primo questo, sembra esaurinte.
( speriamo bene!), comunque penso che imparerò parecchio da questi
newsgroup.

salutoni
Ps,
la soluzione indicata da Carlo era proprio l'ideale.
Me.TuoControllo= StrConv(Me.TuoControllo, vbProperCase)
Grazie........