Ezy Code to backup your database.
Just put this code on a button..
//////////////////////////////////////////////////
Private Sub cmdBackUp_Click()
On Error GoTo ErrorHandler
Dim strFilter As String
Dim lngFlags As Long
Dim strFileOpen As String
Dim i As Integer
Dim mydb As Object
Dim mytable As Object
strFilter = ahtAddFilterItem(strFilter, "MDB (*.MDB)", "*.MDB")
strFileOpen = ahtCommonFileOpenSave(InitialDir:="C:\", OpenFile:=False, _
Filter:=strFilter, FilterIndex:=3, Flags:=lngFlags, _
DialogTitle:="Time To Backup!")
' Since you passed in a variable for lngFlags,
' the function places the output flags value in the variable.
Debug.Print Hex(lngFlags)
'Retrieve name of letter chosen in dialog
Call sBackUp(strFileOpen)
Set mydb = Application.CurrentDb
For i = 0 To mydb.TableDefs.Count - 1
Set mytable = mydb.TableDefs(i)
If Left(mytable.Name, 4) <> "Msys" And Left(mytable.Name, 1) <> "~" Then
DoCmd.Echo True, "Exporting Table " & mytable.Name & " to " & strFileOpen
DoCmd.CopyObject strFileOpen, mytable.Name, acTable, mytable.Name
End If
Next i
ErrorHandlerExit:
Exit Sub
ErrorHandler:
If Err.Number = 32755 Then
MsgBox "Cancelled file selection"
Else
MsgBox "Error No: " & Err.Number & "; Description: " & Err.description
End If
Resume ErrorHandlerExit
End Sub
Public Sub sBackUp(strOutputDatabase As String)
Dim dboutput As Object
If Len(Dir(strOutputDatabase)) > 0 Then
DoCmd.Hourglass False
If MsgBox("Output Database exists. Overwrite?", _
vbYesNo + vbQuestion) = vbYes Then
Kill strOutputDatabase
Else
Exit Sub
End If
End If
Set dboutput = DBEngine.Workspaces(0).CreateDatabase(strOutputDat abase, ";LANGID=0x0409;CP=1252;COUNTRY=0")
dboutput.Close
End Sub