Hỏi đăng nhập quá 3 lần thì thoát.

[anhdjen]

Mình làm một cái Form đăng nhập.
Cấu trúc gồm 2 textbox:txtUser và txtPW,2 cmd:cmdOK,cmdCancel
Em chỉ sử dụng hàm if đơn giản đề viết các trường hợp thôi.
Vấn đề 1:Nhưng khi làm thì phát sinh trường hợp này.Khi gõ PW sai thì đưa ra bảng thông báo nhưng các ký tự *** trong txtPW không bị xoá đi.Em muôn khi đánh sai PW thì txtPW sẽ tự xoá.
Vấn đề 2:Em muốn nếu người khác đăng nhập mà quá 3 lần thì tự động thoát chương trình.Như thế phải viết Code như thế nào.

View more random threads:

• Tắt thông báo xóa Record hay action query
• Lỗi khi thêm dữ liệu vào CSDL Access
• Gán giá trị trong table vào biến trong ACCESS!
• TIP :Cho Access thoát khỏi .... Access !
• xây dựng môt số hàm thông dụng
• Xin giúp đỡ về code tìm ngày ạ!
• NotInlist Event (Nhiều người gặp phải)
• Giải pháp nào cho compact CSDL lớn !
• Các viết lệnh trong AC
• Cho em hỏi về hàm làm tròn trong VBA ?

[truongnx]

Ðề: Hỏi đăng nhập quá 3 lần thì thoát.

Vấn đề 2: Em khai báo 1 biến đếm ở phần khai báo dùng chung của form (sau phần khai báo Option Compare Database ...) có kiểu là Byte
Mỗi lần NSD gõ sai password thì tăng biến đếm lên 1 và kiểm tra nếu biến đếm = 3 thì thoát.

Vấn đề 1: Nếu gõ sai password thì em in ra thông báo và xóa txtPW:
If txtPW <> ...
Msgbox "Password khong hop le..."
txtPW = Null
txtPW.Setfocus
dem=dem + 1
if dem = 3 then Docmd.Quit
Else
...
End if

Chúc thành công!

[thoinay]

Ðề: Hỏi đăng nhập quá 3 lần thì thoát.

Chào dongnamb.Mình muốn sau textbox DN.Thì mình sử dụng label này để hiên thị thông báo là "hay nhạp user và mật khẩu".Nhưng khi người dùng nhập sai thì cũng chính cái label này lại đổi thành sai user và mật khẩu.Nhưng label này lại chuyển sang màu đỏ chứ không phải là màu đen như lúc truóc.Em không muon dung msgbox để đưa thông báo mà dùng label thì phải viết thủ tục như thế nào cho cái label này.

[masterit3838]

Ðề: Hỏi đăng nhập quá 3 lần thì thoát.

Chào dongnamb.Mình muốn sau textbox DN.Thì mình sử dụng label này để hiên thị thông báo là "hay nhạp user và mật khẩu".Nhưng khi người dùng nhập sai thì cũng chính cái label này lại đổi thành sai user và mật khẩu.Nhưng label này lại chuyển sang màu đỏ chứ không phải là màu đen như lúc truóc.Em không muon dung msgbox để đưa thông báo mà dùng label thì phải viết thủ tục như thế nào cho cái label này.

Em sửa lại như sau:
If txtPW <> ...
Label.Caption = "Thông báo bạn muốn hiện ở Lable"
Label.ForeColor = 255 'Đổi sang chữ màu đỏ, nếu muốn quay về màu đen thì đặt = 0
txtPW = Null
txtPW.Setfocus
dem=dem + 1
if dem = 3 then Docmd.Quit
Else
...
End if
'Lable là tên lable của em