maidinhdan > 12-02-15, 11:28 AM
(20-01-15, 03:47 PM)caotrunghieu Đã viết: Khai báo field Email bắt buộc phải có @, nếu không có thì báo lỗi.
Public Function kiemtraemail(EmailAddress As String) As Boolean
kiemtraemail = EmailAddress Like "*@[A-Z,a-z,0-9]*.*" ' Kiểm tra chỉ gồm có những kí tự này mới chấp nhận
End Function
Private Sub EmailText_AfterUpdate()
If (kiemtraemail(EmailText.Text) = False) Then ‘ Nếu địa chỉ email không đúng
Beep ‘ Kêu 1 tiếng bíp cho người dùng sợ
MsgBox "chu y: Dia chi email khong hop le", vbOKOnly, "Thong bao"
End If
End Sub