Blanksteg i textruta

[short]

När man hoppar till en textruta med tabtangenten eller när man markerar en textruta direkt ställer sig markören ibland på position två och därmed hamnar en blank i position ett. Antag att textrutan är avsedd för 8 pos datum. När man då har skrivit in 7 siffror går det inte att skriva in den sista. Är användaren ovan så leder det till en felanmälan. Min fråga är om det finns något sätt att försäkra sig om att markören alltid står på första positionen i textrutan innan man skriver?

[Monshi]

Koden

Me.TextBox1.SelStart = 0

ser till att man alltid hamnar på position noll när man väljer en textbox men mellanslaget finns ju där och hamnar då istället sist i det som matas in och blockerar än att det skrivs in åtta tecken.

 

Frågan är om du inte bör ta reda på varför det finns ett tecken där redan eller kanske rensa textrutan när den väljs? Kanske rensa den om det bara finns något enstaka tecken eller kontrollera om första tecknet är icke nummer och ta bort denna?

[short]

Jag gjorde så här:

Private Sub TextBox16_GotFocus()
   If Mid(Sheets("Registrering av nytt register").TextBox16, 1, 1) = " " Then
       Sheets("Registrering av nytt register").TextBox16.Value = ""
   End If
End Sub

 

Det verkar fungera. Tack!

[Monshi]

Så kan man göra, ser bra ut.

 

ett litet tips, använd VBA-namnen i koden och gärna With-satser.