Newsgroup: it.comp.appl.access
Titolo: OT Traduzione FAQ 4.24

**********************+
4.24 Position the cursor/selection
Problem
In a text box you want to set the cursor "automatically" to the first
or last position or you want to select the complete text.
Solution
You can set the cursor behaviour for the entire database in
the menu Tools/Options/Keyboard.
For single controls you can program it. Either you use the
following VBA commands in the events "Enter" or "OnClick" of
the control or you first position the cursor into the control e.g. with:
Me!MyTextbox.SetFocus
Set the cursor to the beginning of the text:
Me!MyTextbox.SelStart = 0
Set the cursor to the end of the text:
Me!MyTextbox.SelStart = Len("" & Me!MyTextbox)
Select the complete text:
Me!MyTextbox.SelStart = 0
Me!MyTextbox.SelLength = Len("" & Me!MyTextbox)
The empty string avoids an error message of the Len function
if there's no text at all. Instead you can also use:
Len(Nz(Me!MyTextbox))
****************************
-- 
cu
Karl
*********
Access FAQ: 
www.donkarl.com/it
 

 Me!MyTextbox.SetFocus




4.24 Posizione del cursore/selettore
Problema
In una casella di testo (test box) si vuole impostare automaticamente il
cursore all'inizio o alla fine del testo o selezionare completamente il
testo stesso.
Soluzione
E' possibile settare il cursore direttamente dal menù
Strumenti/Opzioni/Tastiera
E' comunque possibile programmare ogni singolo controllo. Per fare ciò può
utilizzare il seguente comando VBA negli eventi "Su Invio" e "Su Click"
del controllo in questione. 
In primo luogo bisogna posizionare il cursore nel controllo (focus) con :
Me!MyTextbox.SetFocus
Con questo codice si regola il cursore all'inizio del testo :
Me!MyTextbox.SelStart = 0
Con questo codice si regola il cursore all'estremità del testo :
Me!MyTextbox.SelStart = Len("" & Me!MyTextbox)
Con questo codice si Seleziona il testo completo :
Me!MyTextbox.SelStart = 0
Me!MyTextbox.SelLength = Len("" & Me!MyTextbox)
La stringa vuota evita un messaggio di errore della funzione di Len.  
Si può usare anche : 
Len(Nz(Me!MyTextbox))
-- 
Ciao
Pablitomf (Maurizio Facciuti)
------------------------------
http://www.sitocomune.com/
http://www.accessgroup.it/
------------------------------
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 Me!MyTextbox.SetFocus




4.24 Posizionare il cursore/selezionare.
Problema
In una casella di testo si vuole posizionare il cursore automaticamente
all'inizio o alla fine del testo o si vuole selezionare tutto il testo
stesso.
Soluzione
Si puň impostare il comportamento del cursore per tutto il database
attraverso il menů Strumenti/Opzioni/Tastiera.
I controlli vanno programmati singolarmente. Si puň usare la seguente
istruzione VBA sull'evento "Su INVIO" o "Su click" del controllo o, in
alternativa, si puň posizionare il cursore all'interno del controllo
stesso, per esempio con:
Me!MioControllo.SetFocus
Posizionare il cursore all'inizio del testo:
Me!MioControllo.SelStart = 0
Posizionare il cursore alla fine del testo:
Me!MioControllo.SelStart = Len("" & Me!MioControllo)
Selezionare l'intero testo:
Me!MioControllo.SelStart = 0
Me!MioControllo.SelLength = Len("" & Me!MioControllo)
La stringa vuota impedisce l'errore della funzione Len se non vi č alcun
testo. Si puň anche utilizzare:
Len(Nz(Me!MioControllo))
****************************


 Me!MyTextbox.SetFocus




4.24 Posizione del cursore/selezione.
Problema
In una casella di testo vuoi posizionare il cursore “automaticamente”
all'inizio o alla fine, oppure vuoi selezionare l’intero testo.
Soluzione
Puoi impostare il comportamento del cursore per tutto il database
attraverso il menù Strumenti/Opzioni/Tastiera/Comportamento cursore nel
campo.
I controlli li puoi programmare singolarmente. O utilizzi le seguenti
istruzioni VBA nell'evento "Su INVIO" o "Su click" del controllo oppure
prima posizioni il cursore all’interno del controllo p.e. con:
Me!MiCasellaDiTesto.SetFocus
Impostare il cursore all'inizio del testo:
Me!MiaCasellaDiTesto.SelStart = 0
Impostare  il cursore alla fine del testo:
Me!MiaCasellaDi Testo.SelStart = Len("" & Me!MiaCasellaDiTesto)
Selezionare l'intero testo:
Me!MiaCasellaDiTesto.SelStart = 0
Me! MiaCasellaDiTesto.SelLength = Len("" & Me!MiaCasellaDiTesto)
La stringa vuota impedisce l'errore della funzione Len se non vi è alcun
testo. Invece, puoi anche usare:
Len(Nz(Me!MiaCasellaDiTesto))
--
rgrds
SC
