Tekst ongeselecteerd openen

[Nicu]

Hoi,

Ik heb een formulier die als ik hem open een tekst veld laat zien, de tekst die daarin staat is altijd gelijk helemaal geselecteerd, maar dat wil ik niet. Kan dit veranderd worden?

Gr. Josh

 

[OctaFish]

Als je het eenmalig wilt aanpassen kun je de werking van het toetsenbord veranderen. Zet dan in je <Opties> de instelling <Focus na verplaatsing> op <Einde van record>. Overigens een instelling waar je na verloop van tijd vermoedelijk ook niet vrolijk van word...

 

[OctaFish]

Er is overigens ook nog een manier om het gedrag van de cursor met VBA in te stellen. Je kunt dan bij het openen van een formulier de huidige waarde afvangen in een variabele, en een nieuwe waarde instellen. Bij sluiten van het formulier herstel je dan de oorspronkelijke instelling.

Option Compare Database
Option Explicit
Dim varSetting As Variant

Private Sub Form_Current()
    varSetting = Application.GetOption("Behavior entering field")
    Application.SetOption "Behavior entering field", 2
End Sub

Private Sub Form_Close()
    Application.SetOption "Behavior entering field", varSetting
End Sub