Đánh giá chủ đề:
  • 1 Votes - 4 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Hàm] Hàm buộc trường Email phải có @, không có ký tự đặc biệt
#1
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!
Chữ ký của maidinhdan * Để được hỗ trợ tốt nhất, nhấn vào link dưới đây để xem.
1. [Hướng dẫn] Kiểu file gửi lên để được giúp đỡ
2. [Hướng dẫn] Nội quy diễn đàn
3. [Hướng dẫn] Cách Đưa file và hình vào diễn đàn
4.[Hướng dẫn] Để xây dựng một ứng dụng hoàn hảo và lời cảm tạ
5. Cần tìm Demo hay ứng dụng sử dụng thanh tìm kiếm phía trên cùng, bên phải của diễn đàn.
* Nếu muốn cảm ơn, hãy nhấn nút thank, không cần viết thêm bài nào nửa.



ღღღღღTài sản của maidinhdan (View All Items) ღღღღღ
Reply
Những người đã cảm ơn Noname , Xuân Thanh , Che_Guevara
#2
(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.


File đính kèm
.zip   TestEmail.zip (Kích cỡ: 6.77 KB / Tải về: 13)
Chữ ký của maidinhdan * Để được hỗ trợ tốt nhất, nhấn vào link dưới đây để xem.
1. [Hướng dẫn] Kiểu file gửi lên để được giúp đỡ
2. [Hướng dẫn] Nội quy diễn đàn
3. [Hướng dẫn] Cách Đưa file và hình vào diễn đàn
4.[Hướng dẫn] Để xây dựng một ứng dụng hoàn hảo và lời cảm tạ
5. Cần tìm Demo hay ứng dụng sử dụng thanh tìm kiếm phía trên cùng, bên phải của diễn đàn.
* Nếu muốn cảm ơn, hãy nhấn nút thank, không cần viết thêm bài nào nửa.



ღღღღღTài sản của maidinhdan (View All Items) ღღღღღ
Reply
Những người đã cảm ơn


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  Hàm xử lý trường Họ Tên (Xóa bỏ khoảng trắng thừa, chữ hoa họ tên) tranthanhan1962 0 537 24-06-15, 04:15 PM
Bài mới nhất: tranthanhan1962
  [Hàm] Hàm chuyển từ có dấu sang không dấu trong Tiếng Việt Xuân Thanh 3 1,061 15-04-14, 09:41 AM
Bài mới nhất: vulhu06
  Hàm kiểm tra 1 chuỗi có phải là số không Noname 0 2,922 31-08-10, 09:08 AM
Bài mới nhất: Noname

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ