Ðề: Làm sao đặt password trong Acess
Của bạn thuanctk06 là nhờ MS làm giúp. Mình có hải kiểu làm bằng VBA:
1. Tạo 1table: tblUs có các trường TenDN, MatKhau (PASSWORD)
Bạn tạo 1form (form này bảy đầu tiên khi khởi động chương trình) có: txtTenDN, txtMatKhau, cmdDN.
Tại nút cmdDN (ở chuẩn On Click) viết code như sau:
Private Sub cmdDN_Click()
If Not IsNull(txtTenDN) = DLookup("TenDN", "tblUs", "TenDN='" & txtTenDN.Value & "'") And Not IsNull(txtMatKhau) = DLookup("MatKhau", "tblUs", "MatKhau='" & txtMatKhau.Value & "'") Then
MsgBox "Chao ban " & txtTenDN, vbInformation, "Hello !"
DoCmd.Close
Else
MsgBox "Bye bye ...", vbExclamation, "Bye..."
DoCmd.Quit
End If
End Sub
2. Bạn tạo 1form (form này bảy đầu tiên khi khởi động chương trình) có: txtTenDN, txtMatKhau, cmdDN
Tại nút cmdDN (ở chuẩn On Click) viết code như sau:
Private Sub cmdDN_Click()
If Not IsNull(txtTenDN) = "duyet" And Not IsNull(txtMatKhau) = "111111" Then
MsgBox "Chao ban " & txtTenDN, vbInformation, "Hello !"
DoCmd.Close
Else
MsgBox "Bye bye ...", vbExclamation, "Bye..."
DoCmd.Quit
End If
End Sub
Câu lệnh Docmd.Close bạn hãy thay câu lệnh cho phù hợp với mình nhé
Thân chào !