-
11-14-2009, 05:31 PM #1Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Hỏi đăng nhập quá 3 lần thì thoát.
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:
- Cho mình hỏi về Marco chút.
- Làm cách nào khi nhập phát hiện dữ liệu đã có trong table khác
- Chuyên đề ứng dụng : Thiết kế chương trình Sổ Quỹ Tiền Mặt(Phần 3 - File đ1nh kèm)
- Có cách nào để cho Textbox ( Kiểu number) hiển thị chữ "New" cho một bản ghi mới không ?
- Sửa sai câu lệnh SQL
- Quản lý mua bán hàng - Phần 4: Thiết kế form
- Xin trợ giúp sự kiện xảy ra trong Combox
- Cho mình hỏi Nhập đường dẫn 1 file ảnh vào chương trình để lưu!
- Vấn đề với khoá phím Alt-F4
- Giúp em tạo Form và Form bằng VBA
-
11-14-2009, 06:48 PM #2Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Ðề: 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!
-
11-16-2009, 06:35 PM #3Silver member
- Ngày tham gia
- Aug 2015
- Bài viết
- 31
Ðề: 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.
-
11-16-2009, 06:43 PM #4Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Ðề: Hỏi đăng nhập quá 3 lần thì thoát.
Gửi bởi phuyen89
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
Kể với bác sĩ, anh M. cho biết bữa qua là sinh nhật của mình nên có đi ăn tối, rồi trở về nhà quan hệ tình dục với vợ. Trong quá trình quan hệ , vợ anh dùng miệng "tác động" nhiều vào vùng tinh hoàn....
Hy hữu. Anh chàng suýt mất tinh hoàn vì chơi bằng miệng với vợ