In TextBox geen tekens toestaan.

[markwat]

is het mogelijk om een TextBox geen tekens (oa. \ / " ; : ) toe te staan? dit omdat de TextBox een map naam wordt.

Private Sub TextBox3_Change()
    TextBox3.Text = UCase(Left(TextBox3.Text, 1)) & LCase(Mid(TextBox3.Text, 2))
End Sub

 

[edmoor]

Heb je het dan over een formulierbesturings element textbox?
Of een ActiveX textbox?
Of een textbox in een userform?

 

[markwat]

beste Edmoor,

tekst wat ik moet in vullen in een UserForm die ik oproep door een Knop.

 

[edmoor]

Dit achter de TextBox:

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If InStr(1, "<>:/\|?*" & Chr(34), Chr(KeyAscii)) > 0 Then KeyAscii = 0
End Sub

 

[markwat]

Beste Edmoor,

Het werkt perfect!
hartelijk dank!
ik heb nog 1 probleempje met Tekst maar dit zet ik een een volgende vraag. om alles geordend te houden op de site.
deze zet ik op beantwoord.