Controle invullen van een tekstveld in userform

Status
Niet open voor verdere reacties.
C

CvV

Gebruiker
Lid geworden
19 mei 2016
Berichten
24
Ik heb een userform waarin sommige tekstvelden verplicht ingevuld moeten worden, tenzij het userform wordt afgesloten.
Ik test dit uit in de Exit van het betreffende tekstveld. Indien het tekstveld niet is ingevuld wordt een foutboodschap gegeven.
Dit heeft echter tot gevolg dat wanneer je het userform afsluit met het kruisje rechtsboven, je eerst de foutboodschap krijgt en pas daarna wordt het userform gesloten.
Hoe kan ik voorkomen dat deze foutboodschap wordt gegeven?
Een voorbeeld is bijgesloten.
 

Bijlagen

  • voorbeeld.xlsm
    13,8 KB · Weergaven: 27
Bedankt, zowel voor de vlotte reactie als duidelijke antwoord.
 
Graag gedaan.
Overigens kan je die .Setfocus opdrachten er beter uit halen.
Dat effect wordt al bereikt door de Cancel = True.
Die breekt het verlaten van de textbox af.

Ik zou het zo doen:
Code: 
Private Sub txtVoornaam_Exit(ByVal Cancel As MSForms.ReturnBoolean)
  If txtVoornaam.Text = "" And Not Sluit Then
    MsgBox "Tik de voornaam in!"
    Cancel = True
  Else
    txtVoornaam.Text = StrConv(Trim(txtVoornaam.Text), vbProperCase)
  End If
End Sub
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan