Mình có code sau để xóa pass khi đăng nhập phần mềm,phần Front End trên mỗi máy ,còn Back End trên máy chủ.
Code này có tác dụng xóa pass trên Back End khi đang nhập p/m, link phần mềm mình để trên file Access khác có link đến Front End.
Mà như vậy thì khi mở lên sẽ không thể xóa pass do khi mở p/m qua mạng nó chỉ cho mở theo kiểu Read Only,có cách nào để bỏ Read Only không mọi người.
Thanks
Code này có tác dụng xóa pass trên Back End khi đang nhập p/m, link phần mềm mình để trên file Access khác có link đến Front End.
MÌnh đang gặp vấn đề ở câu lệnh OpenDatabase ,vì nhiều máy dùng qua mạng Lan nên linkdatabase phải ở dạng đường dẫn mạng (\\pc-03\D\abc.accdb) .Sub setPass(oldPass As String, newPass As String)
Dim tempDB As Database
Dim linkdatabase As String
linkdatabase = DLookup("[DatabaseLink]", "UsysCRMSLink", "[DatabaseLink] <> ''")
Set tempDB = OpenDatabase(linkdatabase, True, False, "MS Access;PWD=" & oldPass)
tempDB.NewPassword oldPass, newPass
tempDB.Close
End Sub
Mà như vậy thì khi mở lên sẽ không thể xóa pass do khi mở p/m qua mạng nó chỉ cho mở theo kiểu Read Only,có cách nào để bỏ Read Only không mọi người.
Thanks