VBA formulieren input met hoofdletters

[tepke]

Hoi

Ik heb een formulier gemaakt met een tekstvlak de gene die gaat invoeren moet een order invoeren bv "IC151256"
Hij mag hierbij geen kleine letters gebruiken.

Kan ik ergens invoeren dat de gegevens volgens een bepaald patroon moeten worden ingevuld. bijvoorbeeld AA###### (AA hoofdletters ## cijfers

alvast bedankt

marc

 

[HSV]

Maak gebruik van een combobox, dat kan nooit fout gaan.

 

[sylvester-ponte]

anders maak je met vba iets dat voor hoofdletters zorgt,
en in de gaten houd dat er geen getallen op de verkeerde plaatsten worden ingevuld.

 

[Ginger]

Zoiets in het BeforeUpdate of Exit event van de TextBox?

 If Not TextBox1.Value Like "[A-Z][A-Z][0-9][0-9][0-9][0-9][0-9][0-9]" Then

 

[sylvester-ponte]

uitbreiding op Ginger:

Private Sub TextBox1_Change()
    T = "[A-Z][A-Z][0-9][0-9][0-9][0-9][0-9][0-9]"
    With TextBox1
        .Text = UCase(.Text)
       L = Len(.Text)
        If L > 8 Then .Text = Left(.Text, 8): Exit Sub
        If L > 0 And Not (.Text Like Left(T,L * 5)) Then .Text = Left(.Text,L - 1)
    End With
End Sub

 

[tepke]

hoi

ga nu de if statement gebruiken
If Not TextBox1.Value Like "[A-Z][A-Z][0-9][0-9][0-9][0-9][0-9][0-9]" Then

hierna wil ik de kleine letter naar hoofdletter omzetten hoe kan ik dit doen?
cijfers is niet belangrijk

 

[sylvester-ponte]

tepke, probeer het opzetje uit post 5 eens uit het is maar een beginnetje, maar toch .....

 

[HSV]

maar toch......

......waterdicht. :thumb:

Edit: zonder onderstaande regel lijkt het ook nog prima te werken @Sylvester.

 If L > 8 Then .Text = Left(.Text, 8): Exit Sub

 

[sylvester-ponte]

inderdaad Harry, Left("tekst",10) levert inderdaad gewoon zonder foutmelding "tekst" op.
dat had ik niet verwacht. :thumb:

 

[snb]

Waarom zou iemand geen 'onderkast' mogen invoeren ?

Als er verder mee gewerkt moet worden maak je er toch gewoon Ucase(Textbox1.Text) van ?