setfocus

[Eibert]

Na een setfocusopdracht komt de focus in de verlangde textbox.

Me.tekst.setfocus

In die textbox staat al een tekst. De hele tekst is dan geselecteerd.
Hoe krijg ik het voor elkaar dat de cursor achter de bestaande tekst in de box gaat staan?

 

[OctaFish]

Dat doe je met:

Me.tekst.setfocus
Me.tekst.Selstart=Me.tekst.Sellength

 

[Harry46]

De cursor zetten aan het einde van de tekst, kun je voor de hele applicatie instellen bij Opties.
In VBA kan dat via:
Application.SetOption "Behavior Entering Field", 2
Per tekstvak kan het met:
Me!NaamTekstVak.SelStart=Len(Me!NaamTekstVak.text)+1

 

[Eibert]

Het geheel werkt niet.

Private Sub kzPlaatsNamen_LostFocus()
   ...
   Me.tekst.SetFocus
   Me.tekst.SelStart = Me.tekst.SelLength

of:

Private Sub tekst_GotFocus()
   Me.tekst.SelStart = Me.tekst.SelLength
   ...

of :

Private Sub tekst_GotFocus()
   Me!tekst.SelStart = Len(Me!tekst.Text) + 1

En .. waar stel ik de algemene optie in?

Application.SetOption "Behavior Entering Field", 2

 

[OctaFish]

De code
Application.SetOption "Behavior Entering Field", 2
kun je in een functie zetten, die je bijvoorbeeld in een AutoExec macro aanroept.
Het is een programma-instelling, die je heel makkelijk kunt aanpassen zonder toeters en bellen. Je vindt hem in het menu <Extra>, <Opties>, <Toetsenbord>, onder <Focus naar verplaatsing.

Overigens moet SelStart=Sellength prima werken, ik heb er nooit problemen mee...

 

[Eibert]

Bedankt.