S
skk
I want to accomplish 3 things.
I want to protect the Backend data (BE), protect Frontend (FE), and backup
the data automatically. I want to instll FE in users desktop and BE in
shared network drive.
I'm using Access 2003 and tried the security wizard but not so clear or
cumbersome to use. So, here is what I did. I've splitted database and have
the password protected on BE. After that, I've linked tables in FE and
noticed the ? mark in front of the table name in Linked Table Manager. I
don't know what it means....
I've copy this code from somewhere and make the backup copy automatically.
It works great Without the BE password protection but with the PW protection
it fails to make a back up at the point
"MkDir strDir & "BackupData" and error log says: "Path not found" When I'm
in the debugging mode I see it's reading the password of BE but right now I'm
stuck. Any suggestions will be greatly appreciated.
' Backup everyday
If ((Date - datBackup) > 1) Then
' Ask if they want to backup...
If vbYes = MsgBox("It is highly recommends backing up your data
to avoid " & _
"any accidental data loss. Would you like to backup now?", _
vbYesNo + vbQuestion, gstrAppTitle) Then
' Get the name of the data file
strData = Mid(db.TableDefs("ztblVersion").Connect, 11)
' Get the name of its folder
strDir = Left(strData, InStrRev(strData, "\"))
' See if the "BackupData" folder exists
If Len(Dir(strDir & "BackupData", vbDirectory)) = 0 Then
' Nope, build it!
MkDir strDir & "BackupData"
End If
I want to protect the Backend data (BE), protect Frontend (FE), and backup
the data automatically. I want to instll FE in users desktop and BE in
shared network drive.
I'm using Access 2003 and tried the security wizard but not so clear or
cumbersome to use. So, here is what I did. I've splitted database and have
the password protected on BE. After that, I've linked tables in FE and
noticed the ? mark in front of the table name in Linked Table Manager. I
don't know what it means....
I've copy this code from somewhere and make the backup copy automatically.
It works great Without the BE password protection but with the PW protection
it fails to make a back up at the point
"MkDir strDir & "BackupData" and error log says: "Path not found" When I'm
in the debugging mode I see it's reading the password of BE but right now I'm
stuck. Any suggestions will be greatly appreciated.
' Backup everyday
If ((Date - datBackup) > 1) Then
' Ask if they want to backup...
If vbYes = MsgBox("It is highly recommends backing up your data
to avoid " & _
"any accidental data loss. Would you like to backup now?", _
vbYesNo + vbQuestion, gstrAppTitle) Then
' Get the name of the data file
strData = Mid(db.TableDefs("ztblVersion").Connect, 11)
' Get the name of its folder
strDir = Left(strData, InStrRev(strData, "\"))
' See if the "BackupData" folder exists
If Len(Dir(strDir & "BackupData", vbDirectory)) = 0 Then
' Nope, build it!
MkDir strDir & "BackupData"
End If