anhduyks1 > 04-03-15, 02:45 PM
(04-03-15, 02:29 PM)maidinhdan Đã viết:(03-03-15, 10:30 PM)anhduyks1 Đã viết:(03-03-15, 08:50 PM)maidinhdan Đã viết: Còn muốn biết cách làm chi tiết có video kèm code thì xem tại đây: http://thuthuataccess.com/forum/post-250...l#pid25077
Cuối cùng là những đoạn code trong ý số 2 mình trả lời phía trên.
Cảm ơn bạn vì cho mình video mình làm được rồi chứ đọc nhằm cái hơi khó hiểu tý
Nếu xem video mà chưa biết làm nửa! chỉ có nước thỉnh thầy xuống núi thôi.
maidinhdan > 04-03-15, 06:34 PM
(04-03-15, 02:45 PM)anhduyks1 Đã viết:
Nút khóa và mở khóa làm rồi sau còn cái chổ nhập pass thì mình ko hiểu lắm.
Private Sub Form_Load()
Dim Message, Title, MyValue
Message = "Vui long nhap mat khau bao ve he thong !"
Title = "Kiem tra" ' Set title.
MyValue = InputBox(Message, Title)
If MyValue <> "Pass của bạn" Then
DoCmd.Quit
End If
If MyValue <> "pass của bạn" Then
DoCmd.Quit
End If
End Sub
anhduyks1 > 04-03-15, 09:12 PM
(04-03-15, 06:34 PM)maidinhdan Đã viết:(04-03-15, 02:45 PM)anhduyks1 Đã viết:
Nút khóa và mở khóa làm rồi sau còn cái chổ nhập pass thì mình ko hiểu lắm.
Là ý thứ 2 trong bài đầu bạn hỏi tôi trả lời rồi: mở cơ sở dữ liệu ở đây là mở khóa Back End ( để thấy được Table, Query, Form, Report...)
Pass trong hình đó là một đoạn VBA do tác giả tạo, nói chung kiểu tạo nào nó cũng giống nhau thôi,
Hình trên pass được lưu trên VBA thay vì lưu trong table giống như tạo form login ( pass lưu trong table)
Mình xin ví dụ minh họa cho bạn hiểu nè.
BẠn đã tạo được Nút khóa và mở khoa trong form ( tạm gọi đó là frmkhoashift nhé)
Thay vì ai cũng mở được form đó, nhưng bạn lại tạo ra một form khác, giống như hình trên, khi bạn điền đúng mật khẩu mới cho mở formkhoashif ( chỉ vậy thôi hà)
Và còn nhiều cách nửa để người ta không mở được formkhoashift của bạn , giống như dùng câu lệnh này nè dùng Inputbox kết hợp với hàm if trong VBA
Bạn tham khảo demo ứng dụng Quản lý văn phòng phẩm của mình nó na ná như trên nhưng mình tiết kiệm không sử dụng như hình tác giả trên ( bạn để ý nút Hệ thống gốc trên cùng bên phải màn hình - bạn nhấn vào nó sẽ đòi bạn mật khẩu, nhập sai nó tống bạn ra khỏi sàn đấu liền.
Link demo nè: http://thuthuataccess.com/forum/thread-8327.html
Bạn đưa vào sự kiện form load của formKhashift
Mã PHP:Private Sub Form_Load()
Dim Message, Title, MyValue
Message = "Vui long nhap mat khau bao ve he thong !"
Title = "Kiem tra" ' Set title.
MyValue = InputBox(Message, Title)
If MyValue <> "Pass của bạn" Then
DoCmd.Quit
End If
If MyValue <> "pass của bạn" Then
DoCmd.Quit
End If
End Sub
maidinhdan > 05-03-15, 09:21 AM
(04-03-15, 09:12 PM)anhduyks1 Đã viết: Vậy cái này mình chỉ tạo thêm 1 cái đăng nhập vào hệ thống là được rồi phải không?