Backingup to another location on system

The quick and dirty approach is to use the built-in Macros to back up copies of your tables to another database. Caveat: the database must be pre-existing (therefore, the latest backup overwrites the earlier ones).
The more complex but flexible route is to write your own code, using the TransferDatabase method to copy items to another location.
Check out http://www.helenfeddema.com and Dev Ashsish's site (The Access Web), on http://www.mvps.org for code ideas.

Denis

If anyone can remember to write DOS batch files then you could create a batch file to do the copying and pasting for you and run the batch file using the Shell Command.

Now all we need is someone who can remember how to use variable naming in DOS

Peter

These two subs run for me within Access2K. Other DOS commands are possible.

hey,

erm, exactly how do i go about using the subs?


thanx

Only thing to add to this is I remember having the classic 'DoEvents doesn't really pause program execution to allow the Shell Command to finish problem'...so, I use a little routine that inserts a 2 second pause


And for Satty's benefit although I did answer in PM.

Call both the copy and timer functions like this within a function.
Use any variable names you wish, of course, variables named for example clarity.


Mike

i bet u guys r thinkin wat a thicko!! sorry guys i just aint gettin this. this is what i have got so far as the final codes.

am i suppose to enter this in a module?

Option Compare Database

Private Declare Sub sapiSleep Lib "kernel32" _
Alias "Sleep" _
(ByVal dwMilliseconds As Long)
'---insert above at top of module

Sub sCopyFile(ByVal strSource As String, ByVal strCopy As String)

strCopy = " C:\Documents and Settings\Administrator\Desktop" & strSource & "Backup" & strCopy

Call Shell(Environ$("COMSPEC") & strCopy, vbNormalFocus)
DoEvents

End Sub

Sub sDeleteTarget(ByVal MyTarg As String)

MyTarg = " C:\Documents and Settings\Administrator\My Documents\Satty\A2 ICT Project" & MyTarg
' MyTarg = " /c del S:\directory\file.ext" as the format of MyTarg
Call Shell(Environ$("COMSPEC") & MyTarg, vbNormalFocus)
DoEvents

End Sub

'---below is the actual sub
Sub sSleep(lngMilliSec As Long)
If lngMilliSec > 0 Then
Call sapiSleep(lngMilliSec)
End If
End Sub

Click to expand...

i think i have done this totally wrong! nothing happens?

sorry guys...


Satty

Just came across a tutorial -- on Helen Feddema's website. Access Archon #115 covers code for saving an Access database as another db, from within Access, using a form interface. You get to choose the filename.
http://www.helenfeddema.com/access.htm it's near the bottom of the page.

Denis

Satty,

I'm sorry, I think I've just confused you.
My code snippets do not handle the entire question you presented. Really, I was responding to bat17's DOS batch file comment with a subroutine that did the same thing without needing to execute a *.bat file.

The subroutines I posted do one small task. If you had the ability to write a VBA Function already - you could write one that called those subroutines and they could issue DOS commands that would copy/delete files. DOS, btw, is not part of Access/Excel or VBA. It's part of the original Microsoft operating system - support (or virtual support) for which is included on all versions of Windows (currently).

At this point, I think it might be easier or more informative for you to follow SydneyGeek's links which he very kindly posted twice. Feel free to copy the routines somewhere handy with some notes as to how to use them, should you in the future need to use them for something.

My actual personal use was to automate the rebuilding of an xls 'client'. In the near inevitable event that the users would *do something bad* to a spreadsheet I gave them for data-entry, I wanted to be able to copy a blank template xls to the new location and then I used transferspreadsheet to push the data out of an access database. Obviously, this is a different kind of problem from what you have - it could be made to work for you, but, frankly, I would not have attempted this method for your particular question.

Good luck

Mike