Bekijk de onderstaande video om te zien hoe je onze site als een web app op je startscherm installeert.
Opmerking: Deze functie is mogelijk niet beschikbaar in sommige browsers.
Probeer het zo eens:
Bekijk bijlage 326289
Het email adres wordt nu zowel bij het invullen als bij een druk op de knop gecontroleerd.
Graag gedaan
Function ValidInput(ByVal cString As String) As String
Dim i As Integer
For i = 1 To Len(cString)
If InStr("ABCDEFGHIJKLMNOPQRSTUVWXYZ123456789 ", UCase(Mid(cString, i, 1))) = 0 Then
ValidInput = Left(cString, 1) 'Als we maar iets teruggeven dat verschillend is van de input.
Exit Function
End If
Next
ValidInput = cString
End Function
Public Function ValidateEmailAddress(ByVal strEmailAddress As String) As Boolean
On Error GoTo Catch
Dim objRegExp As New RegExp
Dim blnIsValidEmail As Boolean
objRegExp.IgnoreCase = True
objRegExp.Global = True
objRegExp.Pattern = "^([a-zA-Z0-9_\-\.]+)@[a-z0-9-]+(\.[a-z0-9-]+)*(\.[a-z]{2,3})$"
blnIsValidEmail = objRegExp.Test(strEmailAddress)
ValidateEmailAddress = blnIsValidEmail
Exit Function
Catch:
End Function
We gebruiken essentiële cookies om deze site te laten werken, en optionele cookies om de ervaring te verbeteren.