Office: Textbox: Ans Ende der Eingabe springen

Hallo,
ich habe in einem Formular, in welches 10stellige Codenummern eingegeben werden sollen.
Die ersten 5 Ziffern der Nummer sind immer gleich, deswegen lasse ich die ersten Nummern bei Fokuserhalt schon vorausfüllen.

Code:

Private Sub TxCNr_GotFocus()
    If Nz(Me.TxCNr, "") = "" Then
        Me.TxCNr= 37145
        Me.TxCNr.SelStart = 5
    End If
End Sub

Mit SelStart=5 springe ich ans Ende der Zahl. Funktioniertauch ganz gut. Es sei denn ;-)
Klickt man ans linke Ende des Eingabefeldes, bleibt die Eingabemarke links von der Vorauswahl

und man muss erst ans Ende der Zahl klicken, um seine Zahl richtig eingeben zu können.
Ich habe schon versucht, im Code kurzzeitig auf ein anderes feld zu springen, aber dadurch wird der obige Code ja erneut getriggert.
Habt Ihr eine Lösung?
Gruß
Doming

 

Hallo Doming,
teile es doch in zwei Felder und sperre das feste Feld. Soll je eh nicht angefasst werden. Und dann baust Du den String zusammen und machst daraus wieder eine Zahl.

 

Hm, ja, wäre eine Möglichkeit...
Da ich derzeit aber mit aktiven Datensätzen bastle, habe ich, um meine Kollegen nicht zu verwirren, ein paar zum Testen angelegt, die nicht dem genannten Muster entsprechen. Die kann ich dann nicht mehr aufrufen :-) (Luxusprobleme)

 

Ja, eigentlich ein altes Thema. Siehe Ländervorwahl, Postleitzahl mit Länderkennzeichen oder auch Hausnummern. Der eine möchte gern alles extra und dem anderen ist es wurscht.

 

Der einfachste Weg ist Sendkeys. Damit simulierst du die Eingabe und der Cursor steht automatisch richtig.