Code bẩy lỗi theo điều kiện (1 người xem)

[Thaiduc]

Nhờ hướng dẫn, chỉnh sửa giùm code bẩy lỗi theo điều kiện sau:

Textbox "ngaysinh" nếu nhập vào ngày, tháng, năm sinh mà bằng hoặc lớn hơn 14 tuổi so với ngày của hệ thống máy tính thì khi nhập xong, chuyển qua textbox khác (textbox Dantoc) thì báo lỗi "NGUOI NAY LON HON 14 TUOI KHONG DUOC NHAP !" và không cho phép nhập tiếp hoặc thoát khỏi Form nhập dữ liệu. Nếu nhập vào ngày, tháng, năm sinh nhỏ hơn 14 tuổi thì form vẫn hoạt động bình thường và cho phép ghi (Có file VIDI kèm theo).

Rất mong sự giúp đở. Cám ơn !

 

[trung.aof]

Bạn làm xem cái này có được không này.

 

[nghiaphuc]

Bạn làm xem cái này có được không này.

Hình như bạn có nhầm lẫn rồi. Lấy năm sinh mà trừ cho năm hiện tại thì làm sao mà lớn hơn 14 được?
Cần phải sửa lại chỗ này:

Val((Year(Format(Me.Ngaysinh.Value, "dd/mm/yyyy")) - Year(Date))) > 14

thành

Year(Date) - Year(Format(Me.Ngaysinh.Value, "dd/mm/yyyy")) > 14

Thêm nữa, cứ mỗi lần nhập dữ liệu bị lỗi là bạn lại gán Me.Ngaysinh = "" và Call CmdTHOAT_Click thì làm sao mà người khác sửa lỗi được. Bản thân việc gán Me.Ngaysinh = "" cũng đã kích hoạt sub Ngaysinh_BeforeUpdate thực thi, như vậy lỗi lại chồng chất lỗi và cuối cùng là Form chẳng làm được việc gì nữa.

 

[Thaiduc]

Nhờ Nghiaphuc chỉnh sửa giúp với. Nhìn code sao nhiều khê quá, có thể rút gọn được không vậy. Cám ơn nhiều nhé!