khanghychu > 26-01-16, 08:40 PM
nguyenichtri > 27-01-16, 12:06 PM
(26-01-16, 08:40 PM)khanghychu Đã viết: Mình mới tham gia diễn đàn cũng như mới nghiên cứu access nên có gì nhờ mấy bạn hỗ trợ tận tình và chi tiết nhé. Cảm ơn các bạn trước.
Câu hỏi của mình: trên form nếu không nhập dữ liệu cho textbox thì sẽ thông báo: "ban phai nhap du lieu vao" và con chuột nằm tại ngay textbox đó. nếu không nhập dữ liệu thì không cho qua. Trên diễn đàn có nhiều bạn trả lời ý tứ 1:
với code:
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
Nhưng sao khi làm y vậy nhưng con chuột lại nhảy xuống textbox kế tiếp.
Rất mong các bạn giúp mình!
zinzin8x > 27-01-16, 04:24 PM
paulsteigel > 27-01-16, 09:08 PM
Private Sub txtDate_Exit(Cancel As Integer)
If Not IsNull(txtDate) Then Exit Sub
MsgBox "Ban phai nhap ngay vao o nay", vbCritical, "Thong bao"
'Chuyển Focus sang đối tượng sau
Text2.SetFocus
' chuyển lại focus về đối tượng của bạn
txtDate.SetFocus
DoCmd.CancelEvent
End Sub
'Hoặc
Private Sub txtDate_LostFocus()
If Not IsNull(txtDate) Then Exit Sub
MsgBox "Ban phai nhap ngay vao o nay", vbCritical, "Thong bao"
Text2.SetFocus
txtDate.SetFocus
DoCmd.CancelEvent
End Subkhải nguyên > 27-01-16, 10:48 PM
paulsteigel > 27-01-16, 11:19 PM
(27-01-16, 10:48 PM)khải nguyên Đã viết: Theo quy định thì phải đặt sự kiện GotFocus() hoặc LostFocus hoặc Exit ...vào ô kế tiếp ở đây là tecxt thứ 2 sau khi Enter tức là theo sắp sếp trong phần Tab Order...của Form đó thì mới đúng !Chia sẻ với Khải Nguyên một chút...
trong đó ( GotFocus() là sự kiện trước khi ô kế tiếp nhận chuột ) và LostFocus() là sự kiện sau khi ô kế tiếp nhận chuột !
bởi vì bạn làm kg đúng nên mới có hiện tượng vậy thôi .Hãy tham khảo ví dụ đính kèm nhé
[/url][url=http://www.mediafire.com/download/kma92egjjxc3ylm/THU_NGHIEM_LOST_FOCUS]File Đính Kèm
hoặc http://www.mediafire.com/download/kma92e...LOST_FOCUS
Chúc thành công !
khanghychu > 28-01-16, 01:07 AM
khải nguyên > 28-01-16, 07:45 AM
paulsteigel > 28-01-16, 08:55 AM
(28-01-16, 07:45 AM)khải nguyên Đã viết: Em cảm ơn bác paulsteigel nhiều ,trên đây là e giái thĩch cho 2 bạn khanghychu và nguyenichtri
chứ kg phải là nói do bác thù tục sai ....... với phạm vi trong bài viết này thôi .còn như bác nói nếu có nhiều ô trống thì lúc đó sẽ phải dùng cách khác chẳng hạn Gọi thủ tục trong Modul ,hoặc =Macro để kiểm tra tất cả dữ liệu của các textbox theo đk đó
cũng như bác nói nếu đặt con chuột ở text trước đó thì theo tôi thấy =exit rồi cũng tạo sựkiện cho chuột phải quay lại text rỗng đó .
Cảm ơn nhiều !
chúc cả nhà có sáng tốt đẹp !
khanghychu > 28-01-16, 01:09 PM