Newsgroup: it.comp.appl.access
Titolo: Selezione caratteri

Per cortesia un aiuto per completare il tutto.
Con questo codice stabilisco quanti caratteri permetto di digitare in un
campo, ma sono in difficoltà in caso entri nell' Else a far si che il
SetFocus mi evidenzi i caratteri dal 11mo in poi.
Private Sub Altro_tel_LostFocus()
If Len(Me.Altro_tel) <= 10 Then
    Me.Tel.SetFocus  ' Mi sposto su un altro campo
    Else
        MsgBox "Devi inserire solo 10 numeri"
        Me.Altro_tel.SetFocus
 End If
End Sub
Inoltre come seconda ipotesi come fare a troncare l'eccesso digitato dal
10mo carattere in poi?
Grazie a tutti
Saluti
Giorgio.

 ha scritto nel messaggio
news:JGTGb.9095$_P.3...@news4.tin.it...

Private SubAltro_tel_KeyDown(KeyCode As Integer, Shift As Integer)
    If Len(Me.Altro_tel.Text) > Altro_tel.Tag - 1 Then KeyCode = 0
End Sub
Basta questo.....! Inserisci nella proprietà TAG della TextBox il numero
di caratteri ad esempio 10.......!
Ciao.
@Alex.

 Grazie 1000 Alessandro
Buone feste

 @Alex.
Ciao Alex ho provato il tuo codice va a meraviglia, ma avrei la necessità di
una modifica se possibile.
Sicuramente mi sono spiegato male nel darti informazioni
Mi spiego meglio:
In un form ho 4 campi di inserimento dati del tipo:
1) Nome Banca con l'obbiettivo di inserire al massimo 10 caratteri
2) Sede/Filiale con l'obbiettivo di inserire la stessa quantità di caratteri
3) Abi con la necessità di inserire solo 5 caratteri
4) Cab con la stessa necessità del campo Abi
l'idea è che al raggiungimento del numero dei caratteri prestabiliti il
cursore si sposti sul campo successivo e che se necessario mi permetta di
modificare i dati
************************************
Considerazioni sul post che mi hai trasmesso
Constatazione
- Quando compilo il campo con il numero dei caratteri inseriti nel Tag
(proprietà), il cursore lampeggia sull'ultimo carattere e non mi permette di
usare la tastiera.
- Per spostarmi su di un ulteriore campo di inserimento devo cliccare sul
campo vuoto altrimenti con il tasto tab non funziona.
-Come fare in caso di errore a cancellare i caratteri dato che non me lo
permette essendo il campo già compilato? (il tasto Tab di cancellazione da
Dx a Sx    funziona solo se i caratteri inseriti sono meno di 5)
- Anche se esco dal campo e poi riento per cancellare non funziona cmq la
tastiera.
*******************************************
Ho provato a togliere dopo il Then , KeyCode e a inserire
"NomeCampoSuccessivo.SetFocus e debbo dire che potrebbe andare a puntino ma
cmq non riesco a cancellare i dati per eventuali errori in quel campo già
completo dei 5 caratteri.
Ciao e grazie 1000
Giorgio

 ha scritto nel messaggio
news:qt2Hb.9748$VW.4...@news3.tin.it...

GIORGIO......!!!
Se in un campo hai 5 caratteri e ne devi modificare 1 hai solo
2 possibilità:
1)Prima lo cancelli........ in questo modo liberi un posto ed i caratteri
da 5 passano a 4 così che hai la possibilità di inserire.....!
Con le frecce ti sposti nella posizione d'inserimento et voilà....!!!
2)Lo devi Selezionare e Sostituire, in questo modo non sarà aggiunto...!
Per l'altra questione non saprei cosa consigliarti, da me il tasto TAB
per selezionare il successivo funziona.... ma hai impostato a si la
proprietà Seleziona Con Tabulazione ed hai attribuito una corretta
sequenza ai controlli che devono ricevere il Focus.....!!!!!!
@Alex.