Dag allemaal,
In een userform heeft een gebruiker de keuze om een email adres in te vullen. Uiteraard voordat ik de tekst weg schrijf naar een excelblad wil ik controleren of het @ (apenstaartje) voorkomt en een "." (***@***.nl).
Ik hoef geen controle voor een .hotmail, .gmail etc. omdat er teveel varianten zijn. Laat staan .nl, .com etc.
Ik heb nu de volgende code:
Het gaat alleen om het onderste stukje van de code. (Het bovenste stuk werkt prima en markeert alle velden rood als er iets ontbreekt).
De uitkomst van de onderste code is dat op het moment dat er iets is ingevuld hij rood markeert. Hij blijft goed als er exact *@*.* wordt ingevuld. Ik wil de "*" als elke tekst hebben.
Wie kan mij helpen?
In een userform heeft een gebruiker de keuze om een email adres in te vullen. Uiteraard voordat ik de tekst weg schrijf naar een excelblad wil ik controleren of het @ (apenstaartje) voorkomt en een "." (***@***.nl).
Ik hoef geen controle voor een .hotmail, .gmail etc. omdat er teveel varianten zijn. Laat staan .nl, .com etc.
Ik heb nu de volgende code:
Code:
Private Function EverythingFiledIn() As Boolean
Dim ctl As MSForms.control
Dim EmptyTextFocus As Boolean
EverythingFiledIn = True
EmptyTextFocus = False
For Each ctl In frameKlantgegevens.Controls
If TypeOf ctl Is MSForms.TextBox Then
If Not ctl.Name = "txtEmail" Then
If ctl.Value = "" Then
ctl.BackColor = rgbPink
If Not EmptyTextFocus Then
ctl.SetFocus
End If
EverythingFiledIn = False
EmptyTextFocus = True
End If
End If
End If
Next ctl
If txtEmail.Value <> "" Then
If Not txtEmail.Value = "*" & "@" & "*" & "." & "*" Then
txtEmail.BackColor = rgbPink
EverythingFiledIn = False
End If
End If
End Function
Het gaat alleen om het onderste stukje van de code. (Het bovenste stuk werkt prima en markeert alle velden rood als er iets ontbreekt).
De uitkomst van de onderste code is dat op het moment dat er iets is ingevuld hij rood markeert. Hij blijft goed als er exact *@*.* wordt ingevuld. Ik wil de "*" als elke tekst hebben.
Wie kan mij helpen?