1 2 3 4 5 6 7 8 9
|
Private Sub cmdOK_Click()
If InStr(1, Me!Courriel, "@", vbTextCompare) = 0 Or InStr(1, Me!Courriel, "'", vbTextCompare) > 0 Or InStr(1, Me!Courriel, """", vbTextCompare) > 0 Then
MsgBox "L'adresse de messagerie que vous venez d'entrer n'est pas une adresse de messagerie Internet valide !", vbExclamation, "HOP Contact"
Exit Sub
ElseIf InStr(1, Me!Contact, "'", vbTextCompare) > 0 Or InStr(1, Me!Contact, """", vbTextCompare) > 0 Then
MsgBox "Le nom du contact n'est pas un nom valide !", vbExclamation, "HOP'Contact"
Exit Sub
Else |
Partager