Inhoud tekstvak selecteren bij klikken

[Systeempje]

Beste,

Hoe kan ik het volgende instellen:
Ik heb een tekstvak waar automatisch altijd 0 instaat (standaard waarde). Nu wil ik als ik in het tekstvak klik automatisch de 0 (inhoud) geselecteerd wordt?
Nu moet ik elke keer de inhoud handmatig selecteren en wissen of op F2 klikken.

Ik werk niet met de TAB toets, dit is geen oplossing.

Edit:

Private Sub veldnaam_Click()
SendKeys "{f2}"
End Sub

Als iemand anders een andere betere oplossing heeft mag dit ook!!

 

[OctaFish]

Met Sendkeys "+{F2}" open je de waarde uit het tekstvak in het Zoomvenster. Dan is hij wel geselecteerd...

 

[OctaFish]

Of dit:

Me.[Veld].SelStart = Me.[Veld].SelLength
SendKeys "+{END}"

 

[Systeempje]

YES!

Die werken ook, geweldig
Nu wil ik dit standaard bij alle velden.

Dit kan toch alleen maar met een Public Function en dan Call call call ......
Of kan het makkelijker?

 

[ReneDirks]

Private Sub Text1_Click()
  Me.Text1.SelStart = 0
  Me.Text1.SelLength = Len(Me.Text1)
End Sub

 

[OctaFish]

De oplossing van René bestaat ook uit twee regeltjes, en dat is denk ik ook wel het minimum.
Wil je er een functie van maken, dan zul je die functie moeten aanroepen met een variabele, dus dan moet je per tekstvak een variabele vullen met de naam van het element. Dan ben je dus ook minstens een regel kwijt:

Call TekstSelectie("TekstveldNaam")

Dus ik zou het gewoon op de objecten zelf zetten, want je wint er niet zoveel mee als je er een functie van maakt.