Xuân Thanh > 22-09-20, 02:52 PM
thdanh > 23-09-20, 09:27 AM
Xuân Thanh > 24-09-20, 08:00 AM
(23-09-20, 09:27 AM)thdanh Đã viết: Đúng Rồi mình cần 1 cái Hàm thực hiện việc dò tìm pass (trong tableUser) khi nhâp vào nếu đúng thì để mở nút lệnh Xóa, Sửa còn sai thì thoát khỏi form. Sau đó lưu pass đó vào 1 table lưu vết đăng nhập. Mình chỉ cần như vậy thôi. Thân Chào.
Mình gởi bản demo nhờ các bác xem dùm ạ
http://www.mediafire.com/file/y4l9q7enrr...o.mdb/file
Private Sub Form_Load()
Me.btnSua.Enabled = False: Me.btnXoa.Enabled = False
End Sub
Private Sub txtPas_AfterUpdate()
If Me.txtPas = DLookup("Password", "tblUser", "UserName = " & Me.txtUser) Then
Me.btnSua.Enabled = True: Me.btnXoa.Enabled = True
' Thêm dòng lệnh lưu vết vào đây
Else
Msgbox "Sai MK", ,"Sory"
DoCmd.Close
End If
End Sub
thdanh > 24-09-20, 09:34 AM
(24-09-20, 08:00 AM)Xuân Thanh Đã viết:Dạ rất cảm ơn bác Xuân Thanh ạ ! bác có thể giúp mình thêm vào lưu thời gian và xóa record nào luôn được không ạ. Thân Chào. Chúc sức khỏe(23-09-20, 09:27 AM)thdanh Đã viết: Đúng Rồi mình cần 1 cái Hàm thực hiện việc dò tìm pass (trong tableUser) khi nhâp vào nếu đúng thì để mở nút lệnh Xóa, Sửa còn sai thì thoát khỏi form. Sau đó lưu pass đó vào 1 table lưu vết đăng nhập. Mình chỉ cần như vậy thôi. Thân Chào.
Mình gởi bản demo nhờ các bác xem dùm ạ
http://www.mediafire.com/file/y4l9q7enrr...o.mdb/file
Mã:Private Sub Form_Load()
Me.btnSua.Enabled = False: Me.btnXoa.Enabled = False
End Sub
Private Sub txtPas_AfterUpdate()
If Me.txtPas = DLookup("Password", "tblUser", "UserName = " & Me.txtUser) Then
Me.btnSua.Enabled = True: Me.btnXoa.Enabled = True
' Thêm dòng lệnh lưu vết vào đây
Else
Msgbox "Sai MK", ,"Sory"
DoCmd.Close
End If
End Sub
txtPas và txtUser là hai textbox trên form để nhập Pasword và UserName của người đang thực hiện
btnSua và btnXoa là hai nút lệnh Sửa và Xóa dữ liệu
Đây là giải pháp theo yêu cầu của bạn chứ thực tế chẳng ai làm như vậy hết. Người ta lưu vết là lưu cái User nào chỉnh sửa hoặc xóa, thời gian chỉnh sưa hoặc xóa, chỉnh sửa hoặc xóa record nào chứ lưu vết cái pas làm gì, không có ý nghĩa
Thiện > 20-05-21, 10:25 PM