[Last Call] Learn how to a build a cloud-first strategyRegister Now

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 1243
  • Last Modified:

Permission Denied error 70 when using filecopy

I have a split database and wish to make a copy of the data back-end via code.  To do this, I have a button on a form which calls the copy routine.  One of the first actions in the code is to close the form which called the routine to ensure any remaining unwritten data is written to the database.

When I step through the code using F8 the routine works perfectly.  When I run the code from the button on the form, I get an Error 70 Permission Denied error on the FileCopy line.  I suspect that the backend database is still locked.  but I don't know how I can get around this problem.

I've tried putting in a loop that continues to try the filecopy routine until the Error 70 doesn't occur.  However, this doesn't seem to work as the routine gets trapped in the loop.

Is there a way to test if the Error 70 will occur before attempting it?  Maybe testing to see if the back-end database is still locked?

Here's the code:
=============
Sub CreateBackUp()
    On Error GoTo ErrTrap
   
    'close any open forms and present the backup dialog
    DoCmd.Close acForm, "frmContacts"
   
    'grab the current backend name to rename the copy when its made
    Dim myLinkedName
    myLinkedName = CurrentDb.TableDefs("tblContacts").Connect
    myLinkedName = Right(myLinkedName, Len(myLinkedName) - InStr(1, myLinkedName, "="))
   
    'make the copy
    FileCopy Source:=myLinkedName, destination:=Left(myLinkedName, Len(myLinkedName) - 6) & " " & Format(Now(), "yyyymmddhhss") & ".dcsdb"
   
    'reopen the contacts form
    DoCmd.OpenForm "frmContacts"
   
    'avoid the error trap
    Exit Sub
     
ErrTrap:
    MsgBox "An unexpected error occured and is described as: " & Err.Description
    DoCmd.OpenForm "frmContacts"
    Exit Sub
   
End Sub
=================

Many thanks for your help.
0
BigDaveStafford
Asked:
BigDaveStafford
  • 4
  • 2
1 Solution
 
DatabaseMX (Joe Anderson - Microsoft MVP, Access and Data Platform)Commented:
Instead of using FileCopy, use the File System Object, wherein you can copy an open file.

Here are some links to get you started:

http://msdn.microsoft.com/en-us/library/aa242124%28VS.60%29.aspx

http://msdn.microsoft.com/en-us/library/hww8txat%28VS.85%29.aspx

http://msdn.microsoft.com/en-us/library/z9ty6h50.aspx

mx
0
 
BigDaveStaffordAuthor Commented:
Thanks for this comment.  If I use the File System Object can I be sure that any data from the form has been written to the backend file?

Thanks
0
 
DatabaseMX (Joe Anderson - Microsoft MVP, Access and Data Platform)Commented:
" If I use the File System Object can I be sure that any data from the form has been written to the backend file?"

The FSO in itself will not insure that. You must do that, by Saving any current data that is being edited. But that should be easy to do.

I use the FSO daily in a backup routine that backups up 25 mdb backends on a server.  

Where exactly are you running this backup code from ?
0
Get quick recovery of individual SharePoint items

Free tool – Veeam Explorer for Microsoft SharePoint, enables fast, easy restores of SharePoint sites, documents, libraries and lists — all with no agents to manage and no additional licenses to buy.

 
BigDaveStaffordAuthor Commented:
Thanks again. I'll give the fso a try. I'm running the code from the front end of a split database so ensuring there's no pending edits should be easy.

Thanks
0
 
DatabaseMX (Joe Anderson - Microsoft MVP, Access and Data Platform)Commented:
ok
0
 
DatabaseMX (Joe Anderson - Microsoft MVP, Access and Data Platform)Commented:
LOTS of cool things you can do with FSO ... pretty easy to use also.

thx.mx
0

Featured Post

Technology Partners: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

  • 4
  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now