[Access] cursore lasciare spazio vuoto dopo testo

Anonimo
2010-04-08T13:57:19+00:00

Ciao a tutti,

ho una casella di testo che si compila concatenando più caselle di testo e quando mi posiziono al suo interno (la  casella chiamate "descrizione) il cursore si posiziona automaticamente alla fine del testo gia scritto (e fin qui tutto bene).

Pero vorrei che oltre a posizionarsi alla fine il cursore si posizionasse lasciando uno spazio vuoto in modo da poter inserire prontamente del testo aggiuntivo.

attualmente utiilizzo questa routine:

Private Sub Descrizione_Enter()

Me!descrizione.SelStart = Len("" & Me!descrizione)

End Sub

Grazie per l'attenzione

Microsoft 365 e Office | Access | Per la casa | Windows

Domanda bloccata. Questa domanda è stata eseguita dalla community del supporto tecnico Microsoft. È possibile votare se è utile, ma non è possibile aggiungere commenti o risposte o seguire la domanda.

0 commenti Nessun commento
Risposta accettata dall'autore della domanda
Anonimo
2010-04-08T16:33:53+00:00

Ciao Luca,

credo di non aver capito :(

Vuoi mettere all'inizio del testo "a" e alla fine del testo "per" ?

Se è così non conviene inserirlo direttamente nel campo Descrizione perchè ogni volta che passi sulla casella testo associata, anche involontariamente, essa verrà modificata, se ci passi due o tre volte diventa un pasticcio.

Se quello che devi fare è mostrare il risultato in un report, conviene utilizzare, nel report, un controllo la cui origine è

= "a " & [Nome Campo] & " per"

Ciao

Giorgio Rancati

La risposta è stata utile?

0 commenti Nessun commento
Risposta accettata dall'autore della domanda
Anonimo
2010-04-08T16:19:29+00:00

ok ho risolto aggiungendo al tuo codice SendKeys "per "

La risposta è stata utile?

0 commenti Nessun commento
Risposta accettata dall'autore della domanda
Anonimo
2010-04-08T14:40:20+00:00

Ciao Luca,

il cursore non si può posizionare uno spazio dopo perchè lo "spazio dopo" non esiste.

Quello che puoi fare è aggiungere uno spazio e toglierlo se non si inserisce altro testo, ovviamente la maschera va in edit ogni volta che passi sulla casella testo Descrizione.

Esempio:


Private Sub Descrizione_Enter()

    If IsNull(Me!Descrizione) = True Then

       Exit Sub

    End If

    'Aggiungo un o spazio

    Me!Descrizione = Me!Descrizione + " "

    Me!Descrizione.SelStart = Len(Me!Descrizione)

End Sub

Private Sub Descrizione_Exit(Cancel As Integer)

    'Rimuovo l'eventuale spazio lasciato

    Me!Descrizione = RTrim(Me!Descrizione)

End Sub


Ciao

Giorgio Rancati

La risposta è stata utile?

0 commenti Nessun commento

6 risposte aggiuntive

Ordina per: Più utili
  1. Anonimo
    2010-04-09T16:28:40+00:00

    Grazie giorgio mi hai risolto anche questo problema :-)

    La risposta è stata utile?

    0 commenti Nessun commento
  2. Anonimo
    2010-04-08T14:48:52+00:00

    Ciao giorgio va alla grande, grazie.

    sperando di non abusare troppo della tua pazienza vorrei chiederti se oltre al testo che si precompila automaticamente posso aggiungere anche del testo fisso?

    ad esempio ora mi scrive

    qualifica, nome e cognome io vorrei poter inserire , fisso per ogni inserimento come prima parola "a" senza virgolette e alla fine del testo automatico "per" sempre senza virgolette.

    Puoi aiutarmi?

    La risposta è stata utile?

    0 commenti Nessun commento