Tùy chọn
Hàm buộc trường Email phải có @, không có ký tự đặc biệt
- Hàm buộc trường Email phải có @, không có ký tự đặc biệt
-
Hàm buộc trường Email phải có @, không có ký tự đặc biệt
maidinhdan > 12-02-15, 11:28 AM
Hàm buộc trường Email phải có @, không có ký tự đặc biệt.
Hỏi:
(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.
Trả lời:
Đầu tiên bạn tạo một hàm để kiểm tra
Mã: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
Kế tiếp: Trong Form1 bạn thêm vào đó 1 textbox với thuộc tính name là EmailText dùng để nhập địa chỉ email. Sau đó, nhấp chọn textbox vào Event chọn thủ tục After Update và chèn dòng lệnh như sau:
Mã: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
Chúc bạn thành công!
Xin anh Noname xem xét có thể đưa vào "Thư viện hàm" được không ạh! -
RE: Hàm buộc trường Email phải có @, không có ký tự đặc biệt
maidinhdan > 07-03-15, 03:32 PM
(12-02-15, 11:28 AM)maidinhdan Đã viết: Hàm buộc trường Email phải có @, không có ký tự đặc biệt.
Hỏi:
[quote='caotrunghieu' pid='24954' dateline='1421740033']
Khai báo field Email bắt buộc phải có @, nếu không có thì báo lỗi.
Cách thứ 2: Muốn buộc điều kiện ngay trong table luôn, cột Email phải có @ thì làm như sau
Ví dụ: Tạo cột tên là DiachiEmail
Sau đó tại dòng:
- Validation Rule gõ vào cụm từ:
- Validation Text gõ vào cụm từ:Mã PHP:Like "*" & "@" & "*"
Mã PHP:"Bạn điền thiếu chữ @, Vui lòng xem lại và điền thêm vào nhé"
Đơn giản không nào!
Chúc bạn thành công.