Melding weergeven

Status
Niet open voor verdere reacties.
Het moet op dezelfde plekken als in mijn voorbeeld, dat lijkt me duidelijk.
Plaats anders je document, dan doe ik het voor je.
 
Laatst bewerkt:
Goede avond,

Lees net je berichtje. Erg aardig, dankje.
Hoop dat ik het bestandje goed heb toegevoegd:confused:
Weet niet goed hoe het documentje bij jouw opent, anders kan je op het balkje onder het ordernummer klikken
 
Laatst bewerkt:
Laatst bewerkt:
Graag gedaan :)
 
edmoor zei:
Graag gedaan :)
Klik om te vergroten...

Goede avond Edmoor,

wil je me nog met een dingetje helpen:rolleyes:?

Het werkt echt prima en reuze blij mee.

Zodra je het opgeslagen formulier wilt aanpassen komt er direct een foutmelding. Ik denk dat ik wel snap waarom, alleen geen idee of dit verholpen kan worden.
 
Als je zegt een foutmelding te krijgen is het altijd handig (gewenst) deze hier ook te plaatsen.
 
Het document dat je plaatste zit de functie ValidateEmailAddress niet meer in.
 
Nee, daardoor kan niet de complete module verdwijnen.
 
Dit is het bestandje dat wordt opgeslagen zodra op de knop "verzenden" geklikt wordt.
 
Ik zie nergens een knop "verzenden".
 
Ow sorry, ik bedoel in het bestand wat jij voor mij hebt geperfectioneerd. "Nieuwe klant 2"
 
Geen idee of die de schuldige is. Het enige dat ik zie is dat heel Module1 weg is en die hoort aanwezig te zijn met deze inhoud:
Code: 
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
 
Laatst bewerkt:
De oorzaak is wat er in #36 staat.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan