Xử lý hiện thông báo khi không nhập dữ liệu vào texbox
Xử lý hiện thông báo khi không nhập dữ liệu vào texbox
Noname > 25-08-10, 08:10 PM
Bạn sử dụng event on Lost Focus của textbox muốn ktra. Khi thoát khỏi thì check có IsNull hay kô? nếu IsNull là true thì quay lại ô đó textbox.SetFocus
Vd: bạn có textbox Date
Mã:
Private Sub txtDate_LostFocus()
If IsNull(txtDate) Then
MsgBox "Ban phai nhap ngay vao o nay", vbCritical, "Thong bao"
txtDate.SetFocus
Cancel = True
End Sub