bloemenman
Gebruiker
- Lid geworden
- 18 jun 2012
- Berichten
- 118
Hallo beste helpers,
Ik heb een invul formulier gemaakt waarin ik onderstaande code gebruik om een melding weer te geven wanneer er verplichte velden niet ingevuld zijn.
Private Sub CommandButton5_Click()
Dim cFile As String
Dim antwoord
If Range("D4") = "" Then
MsgBox "Je moet de NAAM KLANT verplicht invullen"
Range("D4").Select
Exit Sub
End If
In het formulier moet ook verplicht een email adres ingevuld worden. Graag wil een code die melding maakt als het ingevulde niet aan de eisen voor een email adres voldoen zoals het @ en de .(punt)
wie kan mij helpen?
Ik heb een invul formulier gemaakt waarin ik onderstaande code gebruik om een melding weer te geven wanneer er verplichte velden niet ingevuld zijn.
Private Sub CommandButton5_Click()
Dim cFile As String
Dim antwoord
If Range("D4") = "" Then
MsgBox "Je moet de NAAM KLANT verplicht invullen"
Range("D4").Select
Exit Sub
End If
In het formulier moet ook verplicht een email adres ingevuld worden. Graag wil een code die melding maakt als het ingevulde niet aan de eisen voor een email adres voldoen zoals het @ en de .(punt)
wie kan mij helpen?