Split Database Backup 1

[DoctorJDM]

Hi all

Have a split database and would like to back up both parts from a command button on a front-end menu form.

I can use a simple command like this for the front-end

If MsgBox("Do you want to back up the database?", vbYesNo + vbQuestion + vbDefaultButton2) = vbYes Then
CommandBars("Menu Bar").Controls("Tools").Controls("Database utilities").Controls("Back up database...").accDoDefaultAction
End If

This is not too elegant and I'd prefer it to name the file automatically, adding a date-stamp. Then do the more important back end.

 

[genomon]

If all you need is a full copy, you can use the File System object & its methods to copy and manipulte files (don't forget to set a reference to the Scripting Runtime library in your project).

"Don't be irreplaceable. If you can't be replaced, you can't be promoted."

 

[DoctorJDM]

Thanks Genomon, I'm sure you're right. Any pointers to doing it?

David

 

[genomon]

Dim fso As Scripting.FileSystemObject

Set fso = CreateObject("Scripting.FileSystemObject")

fso.CopyFile "source", "destination"

Set fso = Nothing

There are many other methods and proerties availabe. Do a help search on the File System object, and have a look at object browser in the IDE. Don't forget to set the library reference.

"Don't be irreplaceable. If you can't be replaced, you can't be promoted."

 

[DoctorJDM]

Thanks Genomon

Looks like I need to do some learning on this one.

 

[jrbarnett]

You can also use the FileCopy command without the need for the scripting reference.
The syntax is:

FileCopy "source", "destination"

John

 

[JerryKlmns]

[bjrbarnett[/b]

FileCopy fails when the file is in use. FE would be in that state, because the code would be running form it.

 

[DoctorJDM]

Thanks guys, first to Genomon for the lead, then picked up by jbrbarnett.

The FileCopy command worked without need for scripting and without problems of 'file in use' since it is the backend database I'm backing up from the front end.

Used simple OnClick procedure to create copy with date appended

Dim CurrentDate As String
CurrentDate = Format(now,"DDMMYY")
FileCopy "C:\Backend\DB_be.mdb", "C:\Client\Backups\Copy" & CurrentDate & ".mdb"