syquyen1987
Thành viên hoạt động



- Tham gia
- 8/7/18
- Bài viết
- 193
- Được thích
- 43
Dear mọi người,
Hiện tại tôi có một file Access có pass bảo mật khi mở file. Tôi muốn người dùng sau khi vào cập nhật số liệu thì click thoát file là sẽ tạo một file Access Backup với không có pass bảo mật. Tôi chỉ làm được tạo file Backup nhưng vẫn có pass bảo mật. Nhờ mọi người giúp đỡ với ạ. Dưới đây là code hiện tại ạ
Hiện tại tôi có một file Access có pass bảo mật khi mở file. Tôi muốn người dùng sau khi vào cập nhật số liệu thì click thoát file là sẽ tạo một file Access Backup với không có pass bảo mật. Tôi chỉ làm được tạo file Backup nhưng vẫn có pass bảo mật. Nhờ mọi người giúp đỡ với ạ. Dưới đây là code hiện tại ạ
Mã:
Public Function CreateBackupFile() As Boolean
Dim Source As String
Dim Target As String
Dim Obj As Object
Dim Path As String
Dim a
Source = CurrentDb.Name
'Path = "https://94z00-my.sharepoint.com/personal/q2828_on365_cc/Documents/09. Metallurgy Job Regristration/BACKUP FILE"
Path = CurrentProject.Path
'Path = "E:"
Target = Path & "/BACKUP FILE/BKUP " & Format(Date, "yyyy-mm-dd") & ".accdb"
Set Obj = CreateObject("Scripting.FileSystemObject")
If Obj.FolderExists(Path) Then
a = Obj.copyfile(Source, Target, True)
Else
Obj.CreateFolder (Path)
a = Obj.copyfile(Source, Target, True)
End If
Set Obj = Nothing
Set a = Nothing
End Function