• 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!034

    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ừ:
    Mã PHP:
    Like "*" "@" "*" 
    - Validation Text gõ vào cụm từ:
    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.