I'm surprised that when I go to File-->Backup Database within Access
only the front end is backed up.

Surely I'm missing some setting that I have to select so Access backs
up both front end and back end.

Any ideas?

Thanks

you're surprised? Umm... and how exactly is Access supposed to figure
out you're using a split database unless you tell it? Write a batch
file?

Umm... am I supposed to be surprised that you're not psychic and didn't
figure this out/read my mind?

You need to open the back-end and back it up...

Tony D'Ambra
Web Site: aadconsulting.com
Web Blog: accessextra.net

"bborden51 (AT) NoSpamgmail (DOT) com" <bborden51 (AT) gmail (DOT) com> wrote

Question: I didn't know there was a "File-->Backup Database" command in
Access. I am using Access 2002 (XP) and have never seen that menu
option. Is it only in Access 2003? or do you require certain references
or add-ins for it to work?

Thanks!
Jim

Jim: It does exist in Access 2003 but I found out that it was not in
Access 2002.

I wish it would backup the program AND it's linked tables instead of
just the programs but I just put a button VB procedure on a form to
backup the tables. I copied some of the code from this NG. Here it
is:

Private Sub cmdBackupTables_Click()
sAppFileBruce =
"C:\SurgeonDatabase\Backup\BackupforBruce\BruceTab leBackup" &
DatePart("m", Date) & DatePart("d", Date) & DatePart("yyyy", Date) &
".mdb"
sAppFileOld = "C:\SurgeonDatabase\Backup\OldTableBackup.mdb"
sAppFileBak = "C:\SurgeonDatabase\Backup\CurrentTableBackup.mdb"
sAppFileData = "C:\SurgeonDatabase\Program\WorkingTableDB_be.mdb"

Dim cnn As ADODB.Connection
Dim rst As New ADODB.Recordset
Set cnn = CurrentProject.Connection
rst.ActiveConnection = cnn
rst.Open "SELECT * FROM tblCompanyFacts", cnn, adOpenKeyset,
adLockOptimistic, adCmdText
rst.MoveFirst

If rst.Fields("BackupCounter") >= 3 Then
If Len(Dir(sAppFileBruce, vbDirectory)) <> 0 Then
Kill sAppFileBruce
End If
FileCopy sAppFileData, sAppFileBruce
rst.Fields("BackupCounter") = 0
End If

Kill sAppFileOld
FileCopy sAppFileBak, sAppFileOld
Kill sAppFileBak
FileCopy sAppFileData, sAppFileBak

MsgBox "Your Data Table has been backed up!", vbOKOnly

rst.Fields("BackupCounter") = rst.Fields("BackupCounter") + 1
rst.Fields("LastBackup") = Date()
rst.UpdateBatch
tboLastbackup.Requery
rst.Close
Set rst = Nothing
Set cnn = Nothing

End Sub

is the code you are using adding records to a single backup database?
Just a thought about this: Coudn't you use the VBA copyfile procedures
using the scripting file system objects that are listed in Helen
Feddema's stuff referenced above. Youc could modify them to copy your
back end file instead of the Current Database, as she has the code.
This would give you a newly named file each time you back up. I'm not
sure the code you are using does that... (I always struggle reading
other people's code.)

I am trying to figure out a way to:

1) Backup the database, then
2) Run compact and repair with the push of a button.

Helen's code looks like it could handle the backup with a little
modification.

The tricky thing with this is that I need to disconnect all the links
before I can compact and repair. I would then want to restore the
links. It should not be too hard.

My end users have a hard time remembering to open the back end to
compact and repair...